$svrname stats for $iface

#!/usr/bin/perl # # copyright Martin Pot 2003 # http://martybugs.net/wireless/rrdtool/ # # wlan.cgi # define the wireless interface my $iface = 'eth2'; # get the server name (or you could hard code some description here) my $svrname = $ENV{'SERVER_NAME'}; my ($name, $descr); # get url parameters my @values = split(/&/, $ENV{'QUERY_STRING'}); foreach my $i (@values) { ($varname, $mydata) = split(/=/, $i); if ($varname eq 'trend') { $name = $mydata; } } # get the appropriate descriptive name if ($name eq '') { $descr = 'Overview' } elsif ($name eq $iface.'-snr') { $descr = 'SNR' } elsif ($name eq $iface.'-sig') { $descr = 'Signal & Noise' } elsif ($name eq $iface.'-rate') { $descr = 'Link Rate' } else { $name = 'error'; $descr = 'unknown trend'; } print "Content-type: text/html;\n\n"; print < $svrname stats for $iface :: $descr

END ; if ($name eq 'error') { print <
END ; } elsif ($name eq '') { print <

END ; } else { print <

Weekly Graph (30 minute averages)

Monthly Graph (2 hour averages)

Yearly Graph (12 hour averages)

END ; } print <

END ;