OpenPKG Specs: mrtg/webstat.pl@d176107091ef (annotated)

mrtg/webstat.pl@d176107091ef (annotated)

Thu, 09 Apr 2009 01:03:24 +0200

Update to new vendor version, integrate flag pictures, and correct URLs.

 #!@l_prefix@/bin/perl
 ##
 ##  webstats.pl: return HTTP server hits and bytes
 ##
 ##  Configure Apache HTTP server like so:
 ##    <Location /server-status>
 ##        SetHandler server-status
 ##        Order allow,deny
 ##        Allow from localhost
 ##    </Location>
 ##    ExtendedStatus On
 ##
 @res = `@l_prefix@/bin/lynx -dump http://localhost/server-status`;
 foreach $res (@res) {
     if ($res =~ /Server uptime: (.*)$/) {
         $up = $1;last
     }
     else
         next
     if ($res =~ /Server at/) {
         $server = $res;
         last
     }
     else
         next
 }
 @res = `@l_prefix@/bin/lynx -dump http://localhost/server-status?auto`;
 foreach $res (@res) {
     if ($res =~ /Total Accesses: (\d+)/) {
         $d1 = $1;
         next
     }
     if ($res =~ /Total kBytes: (\d+)/) {
         $d2 = $1 * 1024;
         next
     }
 }
 $d1 = int($d1);
 $d2 = int($d2);
 if ($ARGV[0] eq "hits") {
     print "$d1\n";
     print "$d1\n";
 } elsif ($ARGV[0] eq "bytes") {
     print "$d2\n";
     print "$d2\n";
 }
 print "$up\n";
 print "$server";