aredn/files/www/cgi-bin/mesh

439 lines
11 KiB
Plaintext
Raw Normal View History

#!/usr/bin/perl
$debug = 0;
BEGIN {push @INC, '/www/cgi-bin'};
use perlfunc;
# collect some variables
$node = nvram_get("node");
$node = "NOCALL" if $node eq "";
$tactical = nvram_get("tactical");
$config = nvram_get("config");
$config = "not set" if $config eq "" or not -d "/etc/config.$config";
($my_ip) = get_ip4_network("wlan0");
read_postdata();
system "mkdir -p /tmp/web";
system "touch /tmp/web/automesh" if $parms{auto};
system "rm -f /tmp/web/automesh" if $parms{stop};
# parse the txtinfo output
$table = "none";
chomp($tmperr = `mktemp /tmp/web/nc.XXXXXX`);
foreach(`echo /all | nc 127.0.0.1 2006 2>$tmperr`)
{
if(/^Table: (\w+)/)
{
$table = $1;
next;
}
next if /^\s*$/ or /^\D/;
if($table eq "Links")
{
($junk, $ip, $junk, $lq) = split /\s+/, $_;
$links{$ip} = $lq;
}
elsif($table eq "Neighbors")
{
}
elsif($table eq "Topology")
{
}
elsif($table eq "HNA")
{
}
elsif($table eq "MID")
{
}
elsif($table eq "Routes")
{
($ip, $junk, $junk, $etx) = split /\s+/, $_;
($net, $cidr) = split /\//, $ip;
$routes{$net}{cidr} = $cidr;
$routes{$net}{etx} = $etx;
$routes{$net}{value} = ip2decimal($net);
$routes{$net}{mask} = 0xffffffff - ((1 << (32 - $cidr)) - 1);
}
}
# stat and -s do not work in microperl
@parts = split /\s+/, `ls -l $tmperr`;
$txtinfo_err = $parts[4];
unlink $tmperr;
# load the local hosts file
foreach(`cat /etc/hosts`)
{
next unless /^10[.]/;
chomp;
($ip, $name, $tactical) = split /\s+/, $_;
next if $name =~ /^(localhost|localnode|localap)$/;
if($ip eq $my_ip)
{
$tactical = "" unless $tactical;
$localhosts{$ip}{tactical} = $tactical;
$localhosts{$ip}{name} = $name;
}
else
{
push @{$localhosts{$my_ip}{hosts}}, $name;
}
}
# load the olsr hosts file
foreach(`cat /var/run/hosts_olsr 2>/dev/null`)
{
next unless /^\d/;
chomp;
($ip, $name, $junk, $originator, $mid, $midnum) = split /\s+/, $_;
next unless $originator;
next if $originator eq "myself";
if(defined $mid and $midnum =~ /^\#(\d+)/)
{
$hosts{$ip}{name} = $name;
$hosts{$ip}{hide} = 1;
$hosts{$originator}{mid} = $1;
}
elsif($ip eq $originator)
{
if($hosts{$ip}{name}) { $hosts{$ip}{tactical} = $name }
else { $hosts{$ip}{name} = $name }
}
else
{
push @{$hosts{$originator}{hosts}}, $name;
}
}
# load the olsr services file
foreach(`cat /var/run/services_olsr 2>/dev/null`)
{
next unless /^\w/;
chomp;
($url, $junk, $name) = split /\|/, $_;
next unless defined $name;
($host, $port) = $url =~ /^\w+:\/\/([\w\-\.]+):(\d+)/;
($name, $originator) = split /\#/, $name;
$name =~ s/\s+$//;
#$host = $originator eq " my own service" ? $node : $hosts{$originator}{name};
# attempt to work around olsr never forgetting defunct services
# assume that the first entry in the file by this name is the most recent, ignore the rest
next if $services{$host}{$name};
$services{$host}{$name} = $port ? "<a href='$url'>$name</a>" : $name;
}
# load the node history
foreach(`cat /tmp/node.history 2>/dev/null`)
{
chomp;
($ip, $age, $host) = split / /, $_;
next unless $age;
$host = "" unless $host;
$host =~ s|/| / |;
$history{$ip}{age} = $age;
$history{$ip}{host} = $host;
}
#delete $hosts{"127.0.0.1"};
# generate the page
http_header();
html_header("$node mesh status", 0);
print "<meta http-equiv='refresh' content='10;url=/cgi-bin/mesh'>\n" if -f "/tmp/web/automesh";
print "</head>\n";
print "<body><form method=post action=/cgi-bin/mesh enctype='multipart/form-data'>\n";
print "<input type=hidden name=reload value=1>\n";
print "<center>\n";
alert_banner();
# page header
print "<h1>$node mesh status</h1><hr><nobr>";
# nav buttons
if(-f "/tmp/web/automesh")
{
print "<input type=submit name=stop value=Stop title='Abort continuous status'>\n";
}
elsif($config eq "mesh")
{
print "<input type=submit name=refresh value=Refresh title='Refresh this page'>\n";
print "&nbsp;&nbsp;&nbsp;\n";
print "<input type=submit name=auto value=Auto title='Automatic page refresh'>\n";
}
print "&nbsp;&nbsp;&nbsp";
print "<button type=button onClick='window.location=\"status\"' title='Return to the status page'>Quit</button>\n";
if($config ne "mesh")
{
print "<br><br><b>This page is available only when the router is acting as a Mesh Node.</b>\n";
print "</center></form></body></html>\n";
exit;
}
elsif($txtinfo_err)
{
print "<br><br><b>Whoops! OLSR is not running, try again later.</b>\n";
print "</center></form></body></html>\n";
exit;
}
print "</nobr><br><br>\n";
unless(keys %localhosts or keys %links)
{
print "No other nodes are available.\n";
print "</center></form></body></html\n";
exit;
}
print "<table><tr><td valign=top><table>\n";
# show local hosts
print "<tr><th colspan=4 align=left><nobr>Local Hosts</nobr></th><th align=left>Services</th></tr>\n";
print "<tr><td colspan=5><hr></td></tr>\n";
if(keys %localhosts)
{
%rows = ();
foreach $ip (keys %localhosts)
{
$host = $localhosts{$ip}{name};
$tactical = $localhosts{$ip}{tactical} ? " / " . $localhosts{$ip}{tactical} : "";
$rows{$host} = sprintf "<tr><td valign=top><nobr>%s</nobr></td><td colspan=3>&nbsp;</td><td>\n", $host . $tactical;
foreach(sort keys %{$services{$host}})
{
$rows{$host} .= "<nobr>" . $services{$host}{$_} . "</nobr><br>\n";
}
$rows{$host} .= "</td></tr>\n";
# add locally advertised dmz hosts
foreach $dmzhost (@{$localhosts{$ip}{hosts}})
{
$rows{$host} .= "<tr><td valign=top><nobr>&nbsp;<img src='/dot.png'>$dmzhost</nobr></td>";
$rows{$host} .= "<td colspan=3></td><td>\n";
foreach(sort keys %{$services{$dmzhost}})
{
$rows{$host} .= "<nobr>" . $services{$dmzhost}{$_} . "</nobr><br>\n";
}
$rows{$host} .= "</td></tr>\n";
}
}
foreach(sort keys %rows) { print $rows{$_} }
}
else
{
print "<tr><td>none</td></tr>\n";
}
# show remote nodes
print "<tr><td>&nbsp;</td></tr>\n";
print "<tr><th align=left><nobr>Remote Nodes</nobr></th><th>&nbsp;&nbsp;</th><th>ETX</th><th>&nbsp;&nbsp;</th><th align=left>Services</th></tr>\n";
print "<tr><td colspan=5><hr></td></tr>\n";
%rows = ();
foreach $ip (keys %hosts)
{
next if $links{$ip};
next if exists $hosts{$ip}{hide};
$host = $hosts{$ip}{name};
$tactical = $hosts{$ip}{tactical} ? " / " . $hosts{$ip}{tactical} : "";
$etx = "unknown";
if($routes{$ip}) # get the etx directly
{
$etx = sprintf "%.2f", $routes{$ip}{etx};
}
else # find the subnet it belongs to
{
foreach $net (keys %routes)
{
next unless (ip2decimal($ip) & $routes{$net}{mask}) == $routes{$net}{value};
$etx = sprintf "%.2f", $routes{$net}{etx};
last;
}
}
next if $etx eq "unknown";
$rows{$host} = sprintf "<tr><td valign=top><nobr><a href='http://%s:8080/'>%s</a>", $host, $host . $tactical;
if($midnum = $hosts{$ip}{mid}) # show mid interfaces
{
$midnum = ($midnum > 1) ? "*$midnum" : "";
$rows{$host} .= " &nbsp; <small>(mid$midnum)</small>";
}
$rows{$host} .= sprintf "</nobr></td><td></td><td align=right valign=top>%s</td><td></td><td>\n", $etx;
foreach(sort keys %{$services{$host}})
{
$rows{$host} .= "<nobr>" . $services{$host}{$_} . "</nobr><br>\n";
}
$rows{$host} .= "</td></tr>\n";
# add advertised dmz hosts
foreach $dmzhost (@{$hosts{$ip}{hosts}})
{
$rows{$host} .= "<tr><td valign=top><nobr>&nbsp;<img src='/dot.png'>$dmzhost</nobr></td>";
$rows{$host} .= "<td colspan=3></td><td>\n";
foreach(sort keys %{$services{$dmzhost}})
{
$rows{$host} .= "<nobr>" . $services{$dmzhost}{$_} . "</nobr><br>\n";
}
$rows{$host} .= "</td></tr>\n";
}
}
if(keys %rows)
{
foreach(sort keys %rows) { print $rows{$_} }
}
else
{
print "<tr><td>none</td></tr>\n";
}
print "</table></td><td width=20>&nbsp;</td><td valign=top><table>\n";
# show current neighbors
print "<tr><th align=left><nobr>Current Neighbors</nobr></th><th>&nbsp;&nbsp;</th><th>LQ</th><th>&nbsp;&nbsp;</th><th align=left>Services</th></tr>\n";
print "<tr><td colspan=5><hr></td></tr>\n";
if(keys %links)
{
%rows = ();
foreach $ip (keys %links)
{
$host = $hosts{$ip}{name} ? $hosts{$ip}{name} : $ip;
$tactical = $hosts{$ip}{tactical} ? " / " . $hosts{$ip}{tactical} : "";
$rows{$host} = sprintf "<tr><td valign=top><nobr><a href='http://%s:8080/'>%s</a>", $host, $host . $tactical;
if($midnum = $hosts{$ip}{mid}) # show mid interfaces
{
$midnum = ($midnum > 1) ? "*$midnum" : "";
$rows{$host} .= " &nbsp; <small>(mid$midnum)</small>";
}
$rows{$host} .= sprintf "</nobr></td><td></td><td align=right valign=top>%.0f%%</td><td></td><td>\n", 100*$links{$ip};
foreach(sort keys %{$services{$host}}) { $rows{$host} .= "<nobr>" . $services{$host}{$_} . "</nobr><br>\n" }
$rows{$host} .= "</td></tr>\n";
# add advertised dmz hosts
foreach $dmzhost (@{$hosts{$ip}{hosts}})
{
$rows{$host} .= "<tr><td valign=top><nobr>&nbsp;<img src='/dot.png'>$dmzhost</nobr></td><td colspan=3></td><td>\n";
foreach(sort keys %{$services{$dmzhost}}) { $rows{$host} .= $services{$dmzhost}{$_} . "<br>\n" }
$rows{$host} .= "</td></tr>\n";
}
}
foreach(sort keys %rows) { print $rows{$_} }
}
else
{
print "<tr><td>none</td></tr>\n";
}
# show previous neighbors
print "<tr><td>&nbsp;</td></tr>\n";
print "<tr><th colspan=4 align=left><nobr>Previous Neighbors</nobr></th><th align=left>When</th></tr>\n";
print "<tr><td colspan=5><hr></td></tr>\n";
%rows = ();
($uptime) = `cat /proc/uptime` =~ /^(\d+)/;
foreach $ip (keys %history)
{
next if $links{$ip};
$age = sprintf "%010d", $uptime - $history{$ip}{age};
$host = $history{$ip}{host} ? $history{$ip}{host} : $ip;
$rows{$age} .= sprintf "<tr><td colspan=4><nobr>%s</nobr>", $host;
foreach(@{$hosts{$ip}{hosts}}) { $rows{$age} .= "<br><nobr><img src='/dot.png'>$_</nobr>" }
$rows{$age} .= "</td><td valign=top><nobr>";
if($age < 3600)
{
$val = int($age/60);
$rows{$age} .= $val == 1 ? "1 minute ago" : "$val minutes ago";
}
else
{
$val = sprintf "%.1f", $age/3660;
$rows{$age} .= $val eq "1.0" ? "1 hour ago" : "$val hours ago";
}
$rows{$age} .= "</nobr></td></tr>\n";
}
if(keys %rows)
{
foreach(sort keys %rows) { print $rows{$_} }
}
else
{
print "<tr><td>none</td></tr>\n";
}
print "</table></td></tr></table>\n";
# end
print "</center>\n";
print "</form>\n";
if($debug)
{
print "<pre>\n";
print "localhosts\n";
foreach $ip (sort keys %localhosts)
{
printf "%s %s", $ip, $localhosts{$ip}{name};
printf "/%s", $localhosts{$ip}{tactical} if $localhosts{$ip}{tactical};
foreach(@{$localhosts{$ip}{hosts}}) { print ":$_" }
print "\n";
}
print "\nhosts\n";
foreach $ip (sort keys %hosts)
{
$hosts{$ip}{name} = "" unless $hosts{$ip}{name};
printf "%s %s", $ip, $hosts{$ip}{name};
printf "/%s", $hosts{$ip}{tactical} if $hosts{$ip}{tactical};
foreach(@{$hosts{$ip}{hosts}}) { print ":$_" }
printf(" %d", $hosts{$ip}{mid}) if $hosts{$ip}{mid};
print "\n";
}
print "\nlinks\n";
foreach(sort keys %links)
{
print "$_\n";
}
print "</pre>\n";
}
show_debug_info();
show_parse_errors();
print "</body>\n";
print "</html>\n";