mirror of https://github.com/aredn/aredn.git
25 lines
1.6 KiB
Perl
Executable File
25 lines
1.6 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
BEGIN {push @INC, '/www/cgi-bin'};
|
|
use perlfunc;
|
|
|
|
my $filename = '/tmp/snrlog';
|
|
my $MAXLINES=2880; # 2days worth
|
|
|
|
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
|
|
$d = sprintf ("%02d/%02d %02d:%02d:%02d",$mon, $mday,$hour, $min, $sec);
|
|
($s, $n) = get_wifi_signal(get_interface("wifi"));
|
|
$s = 0 if $s eq "N/A";
|
|
$n = 0 if $n eq "N/A";
|
|
|
|
open(my $fh, '>>', $filename) or die "Could not open file '$filename' $!";
|
|
print $fh "$d,$s,$n\n";
|
|
close $fh;
|
|
|
|
$lcount=`wc -l < $filename`;
|
|
chomp($lcount);
|
|
|
|
if($lcount>$MAXLINES)
|
|
{
|
|
$rc=`tail -n$MAXLINES $filename > $filename.tmp`;
|
|
$rc=`mv $filename.tmp $filename`;
|
|
} |