| 
                Last change
                  on this file since 1577 was
                  1316,
                  checked in by quentin, 16 years ago
           | 
        
        
          | 
            Handle ~urls as well when gathering statistics
           | 
        
        
          
            
              - 
                  Property svn:executable set to
                  
*
               
             
           | 
        
        | 
            File size:
            316 bytes
           | 
      
      
        
  | Line |   | 
|---|
| 1 | #!/bin/sh | 
|---|
| 2 | perl -ne 'BEGIN { $| = 1 } | 
|---|
| 3 | next unless /^18\./; | 
|---|
| 4 | next if /^18\.181\./; | 
|---|
| 5 | chomp; split; | 
|---|
| 6 | if ($_[1] eq "scripts.mit.edu" && $_[2] =~ m|/(~[^/]+)/|) { | 
|---|
| 7 | print "$1\n"; | 
|---|
| 8 | } else { | 
|---|
| 9 | print "$_[1]\n"; | 
|---|
| 10 | }' >> /var/log/httpd/statistics_log | 
|---|
| 11 | #awk '/^18\./ && ! /^18.181/ { print $2; fflush() }' >> /var/log/httpd/statistics_log | 
|---|
       
      
      Note: See 
TracBrowser
        for help on using the repository browser.