Status for node $ip

EOF my $r = `/usr/bin/read_handler $srcr/lt.routes`; my $routes = ""; foreach my $line (split /\n/, $r) { $line =~ s/hops //g; $line =~ s/metric //g; my @ar = split /\s+/, $line; $routes .= ""; $routes .= "" . shift(@ar) . ""; $routes .= "" . shift(@ar) . ""; $routes .= "" . shift(@ar) . ""; while (scalar(@ar)) { $routes .= "" . shift(@ar) . " " . shift(@ar) . " " . shift(@ar) . ""; } $routes .= "\n"; } my $gw = `/usr/bin/read_handler $srcr/gw.stats`; my $gateways = ""; foreach my $line (split /\n/, $gw) { $line =~ s/seen (\d+) //g; $line =~ s/first_update (\d+)\.(\d+) //g; $line =~ s/last_update //g; $line =~ s/current_metric //g; my @ar = split /\s+/, $line; $gateays .= ""; while (scalar(@ar)) { $gateways .= "" . shift(@ar) . ""; } $gateays .= "\n"; } my $is_gw = `read_handler $srcr/gw.is_gateway`; chomp($is_gw); my $vlan0_if = `/sbin/ifconfig vlan0`; my $eth0_if = `/sbin/ifconfig eth0`; my $ath1_if = `/sbin/ifconfig ath1`; my $wan_ip = ""; if ($vlan0_if =~ /addr:(\d+)\.(\d+)\.(\d+)\.(\d+)/) { $wan_ip = "$1.$2.$3.$4"; } elsif ($eth0_if =~ /addr:(\d+)\.(\d+)\.(\d+)\.(\d+)/) { # minis don't have vlan0 $wan_ip = "$1.$2.$3.$4"; } my $ath1_ip; if ($ath1_if =~ /addr:(\d+)\.(\d+)\.(\d+)\.(\d+)/) { $ath1_ip = "$1.$2.$3.$4"; } my $serial_number = `/usr/bin/serial_number.sh`; # only show last three digits of the serial number $serial_number =~ s/(\S+)-(\S+)-(\S+)/xxx-xxx-$3/g; $serial_number =~ s/r00fnet/XXXXnet/g; my $ath0_iw = `/usr/sbin/iwconfig ath0`; my $ath0_bssid = ""; my $ath1_iw = `/usr/sbin/iwconfig ath1`; my $ath1_bssid = ""; if ($ath0_iw =~ /Point: (\S+)/) { $ath0_bssid = lc($1); } if ($ath1_iw =~ /Point: (\S+)/) { $ath1_bssid = lc($1); } my $channel_desc = ""; if ($ath0_iw =~ /Frequency:(\d+)\.(\d+)/) { if ($2%5 == 2) { $channel_desc .= ($2 - 407) / 5; } $channel_desc .= " ($1.$2 GHz)"; } my $ssid = ""; if ($ath0_iw =~ /ESSID:"(\S+)"/) { $ssid = $1; } my $ath1_ssid = ""; if ($ath1_iw =~ /ESSID:"(\S+)"/) { $ath1_ssid = $1; } my $build = `cat /MERAKI_BUILD`; chomp($build); print <Welcome to your Roofnet mini!

Roofnet minis operate like a normal access point, but they also form a mesh network with other Roofnet minis in the area that do not otherwise have a network connection to extend the coverage area of the wireless network.

Current Status

This Roofnet mini is advertising the ssid "$ssid". You can change the ssid. EOF if ($wan_ip ne "") { print < This node received IP address $wan_ip on its ethernet port and is sharing that connection. EOF } elsif ($ath1_ip ne "") { print <

EOF if ($wan_ip ne "") { print < EOF } elsif ($ath1_ip ne "") { print < EOF } print<

roofnet IP:	$ip
software build:	$build
gateway:	$is_gw
wired uplink IP:	$wan_ip
wireless uplink IP:	$ath1_ip
wireless uplink SSID:	$ath1_ssid
wireless uplink AP:	$ath1_bssid
mac adddress (BSSID):	$ath0_bssid
serial number/password:	$serial_number
channel:	$channel_desc
local SSID:	$ssid

EOF if (!$is_gw) { print < The table below shows other roofnet minis that are acting as gateways and sharing their internet connection with this node. The table includes a "metric" to the gateways, which is inversely proportional to how much throughput this node can get to them. It also shows how long ago this node received a "hello" message from that gateway. The gateways send "hello" messages every 30 seconds.

Gateways

$gateways

Gateway	Metric	Last Update (secs)

EOF } print <Other Roofnet minis

The table below shows other roofnet minis this node can communicate with.

$routes

Node	Hops Away	Metric	Route (metrics in parentheses)

EOF