Mirrors
/
aredn
mirror of https://github.com/aredn/aredn.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

feature: enhance snrlog to handle neigbors dropping in and out and leaving mesh

This commit is contained in:
AE6XE 2015-12-14 20:55:07 -08:00
parent b2c4913680
commit ad856844bf
1 changed files with 58 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
files/usr/local/bin/snrlog
View File

@ -35,8 +35,20 @@
$MAXLINES=2880; # 2 days worth
$tmpdir="/tmp/snrlog";
$lastdat="/tmp/snr.dat";
$sigdir="/sys/kernel/debug/ieee80211/phy0/netdev\:wlan0/stations";
if ( -e $lastdat )
{
open(FILE, "<$lastdat") or die "Unable to read \"$lastdat\"";
while($line = <FILE>)
{
($mac,$last) = split /\|/, $line;
chomp ($lasttime{$mac} = $last);
}
close FILE ;
}
$nf = `iw wlan0 survey dump | grep -A 1 'in use' | tail -1`;
$nf =~ s/^[^-\d]*([-\d]+).*$/$1/;
chomp $nf;
@ -45,20 +57,25 @@ if (! -e $tmpdir ) { system("mkdir $tmpdir > /dev/null"); }
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$d = sprintf ("%02d/%02d %02d:%02d:%02d",$mon+1, $mday,$hour, $min, $sec);
chomp ($now=`cat /proc/uptime | cut -f1 -d" "`);
foreach $sigmac ( `ls $sigdir` )
{
chomp $sigmac;
$filename = `ls $tmpdir/$sigmac*` ;
$filename =~ /^.*\/([^-]*)-(.*)$/;
$isFile = $1;
$hnamef = $2;
$isFile = "";
$hnamef = "";
$ipsig = "";
$macfname = "";
$macfname = `ls $tmpdir/$sigmac*` ;
$macfname =~ /^.*\/([^-]*)-(.*)$/;
$isFile = $1;
$hnamef = $2;
chomp ($ip = `cat /proc/net/arp | grep $sigmac | cut -f1 -d\" "`);
chomp ($ipsig = `cat /proc/net/arp | grep $sigmac | cut -f1 -d\" "`);
$hname="";
foreach(`nslookup $ip`)
foreach(`nslookup $ipsig`)
{
next unless ($hname) = /Address 1: $ip (\S+)/;
next unless ($hname) = /Address 1: $ipsig (\S+)/;
$hname =~ s/\..*$// ;
break;
}
@ -67,9 +84,9 @@ foreach $sigmac ( `ls $sigdir` )
{
$sigdat = "$sigmac-$hname";
}
elsif ( $hnamef eq $ip and $hname )
elsif ( $hnamef eq $ipsig and $hname )
{
system("mv $tmpdir/$sigmac-$ip $tmpdir/$sigmac-$hname > /dev/null");
system("mv $tmpdir/$sigmac-$ipsig $tmpdir/$sigmac-$hname > /dev/null");
$sigdat = "$sigmac-$hname";
}
elsif ($hname and ! $hnamef and $isFile )
@ -77,14 +94,14 @@ foreach $sigmac ( `ls $sigdir` )
system("mv $tmpdir/$sigmac- $tmpdir/$sigmac-$hname > /dev/null");
$sigdat = "$sigmac-$hname";
}
elsif (( $hnamef eq $ip) or ( $ip and ! $isFile ))
elsif (( $hnamef eq $ipsig) or ( $ipsig and ! $isFile ))
{
$sigdat = "$sigmac-$ip";
$sigdat = "$sigmac-$ipsig";
}
elsif ( $isFile and ! $hnamef and $ip )
elsif ( $isFile and ! $hnamef and $ipsig )
{
system("mv $tmpdir/$sigmac- $tmpdir/$sigmac-$ip > /dev/null");
$sigdat = "$sigmac-$ip";
system("mv $tmpdir/$sigmac- $tmpdir/$sigmac-$ipsig > /dev/null");
$sigdat = "$sigmac-$ipsig";
}
elsif ($hnamef and ! $hname )
{
@ -101,7 +118,7 @@ foreach $sigmac ( `ls $sigdir` )
}
chomp ($siglevel = `cat $sigdir/$sigmac/last_signal`) ;
if ($siglevel < -100 or $siglevel >= 0 ) { next; }
if ($siglevel < -95 or $siglevel >= 0 ) { $siglevel = "-95"; }
open(my $fh, '>>', "$tmpdir/$sigdat") or die "Could not open file '$tmpdir/$sigdat' $!";
print $fh "$d,$siglevel,$nf\n";
@ -114,4 +131,30 @@ foreach $sigmac ( `ls $sigdir` )
$rc=`tail -n$MAXLINES $tmpdir/$sigdat > $tmpdir/$sigdat.tmp`;
$rc=`mv $tmpdir/$sigdat.tmp $tmpdir/$sigdat`;
}
$neighbor{$sigmac}="1";
$lasttime{$sigmac}=$now;
}
# process neigbors that are no longer connected
foreach $sigmac (`ls $tmpdir`)
{
chomp $sigmac ;
$sigf = $sigmac;
$sigmac =~ s/-.*$//;
if ( $now - $lasttime{$sigmac} > 25000 )
{
unlink "$tmpdir/$sigf" ;
delete $lasttime{$sigmac};
}
elsif ( ! $neighbor{$sigmac} )
{
open(my $fh, '>>', "$tmpdir/$sigf") or die "Could not open file '$tmpdir/$sigf' $!";
print $fh "$d,-95,-95\n";
close $fh;
}
}
open($fh, ">$lastdat") or die "Unable to create \"$lastdat\" $!";
for (keys %lasttime) { print $fh "$_|$lasttime{$_}\n"; }
close $fh;