mrtg/webstat.pl@870131689a5c
mrtg/webstat.pl
Sat, 21 May 2011 22:05:42 +0200
- author
- Michael Schloh von Bennewitz <michael@schloh.com>
- date
- Sat, 21 May 2011 22:05:42 +0200
- changeset 340
- 870131689a5c
- parent 135
- cd68ee26852b
- child 737
- b3e405e9af87
- permissions
- -rw-r--r--
Correct diverse buildconf of upstream release and reconcile packaging somewhat.
These changes stem from the obvious changes in the latest vendor release, but
from discussions with trolls Daniel and Oswald as well regarding build config.
This commital follows conclusion of buildconf adjustments to allow the new
vendor version to build on Linux AMD64, but is incomplete as many packaging
comments show. The next series of changes focus on Solaris IA32 and reduction
of buildconf adjustments testing old problems comprehensively in anticipation
of discussion at the upcoming Nokia Contributor Summit in Berlin.
1 #! @l_prefix@/bin/perl
2 ##
3 ## webstats.pl: return HTTP server hits and bytes
4 ##
5 ## Configure Apache HTTP server like so:
6 ## <Location /server-status>
7 ## SetHandler server-status
8 ## Order allow,deny
9 ## Allow from localhost
10 ## </Location>
11 ## ExtendedStatus On
12 ##
14 @res = `@l_prefix@/bin/lynx -dump http://localhost/server-status`;
16 foreach $res (@res) {
17 if ($res =~ /Server uptime: (.*)$/) {
18 $up = $1;last
19 }
20 else {
21 next
22 }
24 if ($res =~ /Server at/) {
25 $server = $res;
26 last
27 }
28 else {
29 next
30 }
31 }
33 @res = `@l_prefix@/bin/lynx -dump http://localhost/server-status?auto`;
35 foreach $res (@res) {
36 if ($res =~ /Total Accesses: (\d+)/) {
37 $d1 = $1;
38 next
39 }
41 if ($res =~ /Total kBytes: (\d+)/) {
42 $d2 = $1 * 1024;
43 next
44 }
45 }
47 $d1 = int($d1);
48 $d2 = int($d2);
50 if ($ARGV[0] eq "hits") {
51 print "$d1\n";
52 print "$d1\n";
53 } elsif ($ARGV[0] eq "bytes") {
54 print "$d2\n";
55 print "$d2\n";
56 }
58 print "$up\n";
59 print "$server";
60 print "$null\n";
61 print "$null\n";
