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

mrtg/webstat.pl@a2c6460cfb16 (annotated)

Mon, 28 Jan 2013 17:37:18 +0100

Correct socket error reporting improvement with IPv6 portable code,
after helpful recommendation by Saúl Ibarra Corretgé on OSips devlist.

 #! @l_prefix@/bin/perl
 ##
 ##  webstat.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";
 print "$null\n";
 print "$null\n";