2015-01-18 12:36:49 -07:00
= for commnet
2015-03-09 17:39:04 -06:00
Part of AREDN - - Used for creating Amateur Radio Emergency Data Networks
2015-01-18 12:36:49 -07:00
Copyright ( C ) 2015 Conrad Lara
See Contributors file for additional contributors
Copyright ( c ) 2013 David Rivenburg et al . BroadBand - HamNet
This program is free software: you can redistribute it and / or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation version 3 of the License .
This program is distributed in the hope that it will be useful ,
but WITHOUT ANY WARRANTY ; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE . See the
GNU General Public License for more details .
You should have received a copy of the GNU General Public License
along with this program . If not , see <http://www.gnu.org/licenses/> .
2015-03-09 17:39:04 -06:00
Additional Terms:
Additional use restrictions exist on the AREDN ( TM ) trademark and logo .
See AREDNLicense . txt for more info .
Attributions to the AREDN Project must be retained in the source code .
If importing this code into a new or existing project attribution
to the AREDN project must be added to the source code .
You must not misrepresent the origin of the material conained within .
Modified versions must be modified to attribute to the original source
and be marked in reasonable ways as differentiate it from the original
version .
2015-01-18 12:36:49 -07:00
= cut
2014-05-01 21:32:40 -06:00
##########################
2013-11-14 23:11:16 -07:00
# html functions
# emit the http server response
sub http_header
{
# THIS MUST BE ONE LINE!
# otherwise an intermittent busybox bug will incorrectly "fix" the generated output
2013-12-02 13:04:54 -07:00
# print "HTTP/1.0 200 OK\r\n"; # Not needed under Uhttpd
print "Content-type: text/html\r\n" ;
2013-11-14 23:11:16 -07:00
print "Cache-Control: no-store\r\n" ;
print "\r\n" ;
}
# begin html page
sub html_header
{
my ( $ title , $ close ) = @ _ ;
print "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n" ;
print "<html>\n" ;
print "<head>\n" ;
print "<title>$title</title>\n" ;
print "<meta http-equiv='expires' content='0'>\n" ;
print "<meta http-equiv='cache-control' content='no-cache'>\n" ;
print "<meta http-equiv='pragma' content='no-cache'>\n" ;
2015-04-06 13:47:09 -06:00
# Prevent browser caching of the css file
2015-04-05 20:19:32 -06:00
my $ rnum = `date +%s` ;
chomp ( $ rnum ) ;
print "<link id='stylesheet_css' rel=StyleSheet href='/style.css?" , $ rnum , "' type='text/css'>\n" ;
2013-11-14 23:11:16 -07:00
print "</head>\n" if $ close ;
}
# print the navigation bar
sub navbar
{
my ( $ current ) = @ _ ;
$ current = "" unless $ current ;
2015-04-01 16:09:18 -06:00
my @ pages = qw( status setup ports vpn vpnc admin ) ;
2013-11-14 23:11:16 -07:00
my % titles = ( status = > "Node Status" ,
setup = > "Basic Setup" ,
ports = > "Port Forwarding,<br>DHCP, and Services" ,
2015-04-01 16:09:18 -06:00
vpn = > "Tunnel<br>Server" ,
vpnc = > "Tunnel<br>Client" ,
2013-11-14 23:11:16 -07:00
admin = > "Administration" ) ;
2015-04-06 08:43:05 -06:00
#my($active_bg, $active_fg);
#if(-f "/tmp/.night") { $active_bg = "red"; $active_fg = "black" }
#else { $active_bg = "black"; $active_fg = "white" }
2013-11-14 23:11:16 -07:00
print "<hr><table cellpadding=5 border=0 width=100%><tr>\n" ;
foreach $ page ( @ pages )
{
2015-04-08 18:59:39 -06:00
print "<td align=center width=15%" ;
2013-11-14 23:11:16 -07:00
print " class=navbar_select" if $ page eq $ current ;
print "><a href='$page'>" , $ titles { $ page } , "</a></td>\n" ;
}
print "</tr></table><hr>\n" ;
}
# put the submitted parameters into a hash
# (from $ENV{QUERY_STRING} in a method=get form)
sub read_query_string
{
return unless $ ENV { QUERY_STRING } ;
foreach ( split "&" , $ ENV { QUERY_STRING } )
{
my ( $ parm , $ val ) = /(\w+)=(.*)/ ;
$ val =~ s/\+/ /g ;
if ( $ val =~ /^([^%]*)%(\w\w)(.*)/ ) # convert hex values
{
my $ val2 = "" ;
while ( $ val =~ /^([^%]*)%(\w\w)(.*)/ )
{
$ val2 . = $ 1 . chr hex $ 2 ;
$ val = $ 3 ;
}
$ val2 . = $ val ;
$ val = $ val2 ;
}
$ parms { $ parm } = $ val ;
}
}
# c-style fgets for read_postdata
2014-05-01 21:32:40 -06:00
2013-11-14 23:11:16 -07:00
$ stdinbuffer = "" ;
sub fgets
{
my ( $ size ) = @ _ ;
my $ line = "" ;
while ( 1 )
{
unless ( length $ stdinbuffer )
{
return "" unless read STDIN , $ stdinbuffer , $ size ;
}
my ( $ first , $ cr ) = $ stdinbuffer =~ /^([^\n]*)(\n)?/ ;
$ cr = "" unless $ cr ;
$ line . = $ first . $ cr ;
$ stdinbuffer = substr $ stdinbuffer , length "$first$cr" ;
if ( $ cr or length $ line >= $ size )
{
if ( 0 )
{
$ line2 = $ line ;
$ line2 =~ s/\r/\\r/ ;
$ line2 =~ s/\n/\\n/ ;
push @ parse_errors , "[$line2]" ;
}
return $ line ;
}
}
}
# read postdata
# (from STDIN in method=post form)
sub read_postdata
{
2014-05-01 21:32:40 -06:00
if ( $ ENV { REQUEST_METHOD } != "POST" || ! $ ENV { CONTENT_LENGTH } ) { return ; } ;
2013-11-14 23:11:16 -07:00
my ( $ line , $ parm , $ file , $ handle , $ tmp ) ;
my $ state = "boundary" ;
my ( $ boundary ) = $ ENV { CONTENT_TYPE } =~ /boundary=(\S+)/ if $ ENV { CONTENT_TYPE } ;
my $ parsedebug = 0 ;
push ( @ parse_errors , "[$boundary]" ) if $ parsedebug ;
while ( length ( $ line = fgets ( 1000 ) ) )
2014-05-01 21:32:40 -06:00
{
2013-11-14 23:11:16 -07:00
$ line =~ s/[\r\n]+$// ; # chomp doesn't strip \r!
#print "[$state] $line<br>\n";
if ( $ state eq "boundary" and $ line =~ /^--$boundary(--)?$/ )
{
last if $ line eq "--$boundary--" ;
$ state = "cdisp" ;
}
elsif ( $ state eq "cdisp" )
{
my $ prefix = "Content-Disposition: form-data;" ;
if ( ( $ parm , $ file ) = $ line =~ /^$prefix name="(\w+)"; filename="(.*)"$/ )
{ # file upload
$ parms { $ parm } = $ file ;
if ( $ file ) { $ state = "ctype" }
else { $ state = "boundary" }
}
elsif ( ( $ parm ) = $ line =~ /^$prefix name="(\w+)"$/ )
{ # form parameter
$ line = fgets ( 10 ) ;
push ( @ parse_errors , "not blank: '$line'" ) unless $ line eq "\r\n" ;
$ line = fgets ( 1000 ) ;
$ line =~ s/[\r\n]+$// ;
$ parms { $ parm } = $ line ;
$ state = "boundary" ;
}
else
{ # oops, don't know what this is
push @ parse_errors , "unknown line: '$line'" ;
}
}
elsif ( $ state eq "ctype" ) # file upload happens here
{
push ( @ parse_errors , "unexpected: '$line'" ) unless $ line =~ /^Content-Type: / ;
$ line = fgets ( 10 ) ;
push ( @ parse_errors , "not blank: '$line'" ) unless $ line eq "\r\n" ;
$ tmp = "" ;
system "mkdir -p /tmp/web/upload" ;
open ( $ handle , ">/tmp/web/upload/file" ) ;
while ( 1 )
{
# get the next line from the form
$ line = fgets ( 1000 ) ;
last unless length $ line ;
last if $ line =~ /^--$boundary(--)?\r\n$/ ;
# make sure the trailing \r\n doesn't get into the file
print $ handle $ tmp ;
$ tmp = "" ;
if ( $ line =~ /\r\n$/ )
{
$ line =~ s/\r\n$// ;
$ tmp = "\r\n" ;
}
print $ handle $ line ;
}
close ( $ handle ) ;
last if $ line eq "--$boundary--\r\n" ;
$ state = "cdisp" ;
}
}
push ( @ parse_errors , `md5sum /tmp/web/upload/file` ) if $ parsedebug and $ handle ;
}
# generate a selector box option
sub selopt
{
my ( $ label , $ value , $ select , $ opt ) = @ _ ;
print "<option value=$value" ;
print " selected" if $ value eq $ select ;
print " $opt" if $ opt ;
print ">$label</option>\n" ;
}
# generate a selector box option with preformatted spacing
sub selopt_pre
{
my ( $ label , $ value , $ select , $ opt ) = @ _ ;
print "<option value=$value" ;
print " selected" if $ value eq $ select ;
print " $opt" if $ opt ;
print " style='font-family:monospace;white-space:pre'>$label</option>\n" ;
}
# display internal data for debugging
sub show_debug_info
{
return unless $ debug ;
print "<b>env</b><br>\n" ;
foreach ( sort keys % ENV ) { print "$_ = $ENV{$_}<br>\n" }
print "<br><br><b>parms</b><br>\n" ;
foreach ( sort keys % parms )
{
$ tmp = $ parms { $ _ } ;
$ tmp =~ s/ /\(space\)/g ;
if ( $ parms { $ _ } eq "" ) { print "$_ = (null)<br>\n" }
else { print "$_ = $tmp<br>\n" }
}
}
# report any form parsing errors
sub show_parse_errors
{
return unless @ parse_errors ;
print "<h3>Internal Error. Send the following information to ad5oo\@arrl.net</h3>\n" ;
print "<pre>\n" ;
foreach ( @ parse_errors ) { print "$_\n" }
print "</pre>" ;
}
# show the reboot page, redirect to $link, and reboot
sub reboot_page
{
my ( $ link ) = @ _ ;
my ( $ lanip , $ lanmask , $ junk , $ lannet ) ;
my $ node = nvram_get ( "node" ) ;
$ link = "/cgi-bin/status" unless $ link ;
# is the browser coming from the lan?
2015-03-25 00:25:18 -06:00
( $ lanip , $ lanmask , $ junk , $ lannet ) = & get_ip4_network ( get_interface ( "lan" ) ) ;
2013-11-14 23:11:16 -07:00
my ( $ browser ) = $ ENV { REMOTE_ADDR } =~ /::ffff:([\d\.]+)/ ;
my $ fromlan = validate_same_subnet ( $ browser , $ lanip , $ lanmask ) ;
$ junk = "" ; # dummy to avoid warning
# detect a LAN subnet change
my $ subnet_change = 0 ;
if ( $ fromlan )
{
& load_openwrt_config ( "/etc/config/network" ) ;
$ lannet = ip2decimal ( $ lannet ) ;
$ lanmask = ip2decimal ( $ lanmask ) ;
my $ cfgip = ip2decimal ( $ openwrt { network } { interface } { lan } { ipaddr } ) ;
my $ cfgmask = ip2decimal ( $ openwrt { network } { interface } { lan } { netmask } ) ;
$ subnet_change = 1 if $ lanmask != $ cfgmask or $ lannet != ( $ cfgip & $ cfgmask ) ;
}
# print the page
http_header ( ) ;
if ( $ fromlan and $ subnet_change )
{
html_header ( "$node rebooting" , 1 ) ;
print "<body><center>\n" ;
print "<h1>$node is rebooting</h1><br>\n" ;
print "<h3>The LAN subnet has changed. You will need to acquire a new DHCP lease<br>" ;
print "and reset any name service caches you may be using.</h3><br>\n" ;
print "<h3>Wait for the Power LED to start blinking, then stop blinking.<br>\n" ;
print "When the DMZ LED turns off you can get your new DHCP lease and reconnect with<br>\n" ;
print "<a href='http://localnode.local.mesh:8080/'>http://localnode.local.mesh:8080/</a><br>or<br>\n" ;
print "<a href='http://$node.local.mesh:8080/'>http://$node.local.mesh:8080/</a></h3>\n" ;
}
else
{
html_header ( "$node rebooting" , 0 ) ;
print "<meta http-equiv='refresh' content='60;url=$link'>\n" ;
print "</head><body><center>\n" ;
print "<h1>$node is rebooting</h1><br>\n" ;
print "<h3>Your browser should return to this node in 60 seconds.</br><br>\n" ;
print "If something goes astray you can try to connect with<br><br>" ;
print "<a href='http://localnode.local.mesh:8080/'>http://localnode.local.mesh:8080/</a><br>or<br>\n" ;
print "<a href='http://$node.local.mesh:8080/'>http://$node.local.mesh:8080/</a></h3>\n" ;
}
print "</center></body></html>" ;
system "/sbin/reboot" unless $ debug ;
exit ;
}
# word wrap a list of text strings
sub word_wrap
{
my $ len = shift ;
my @ output = ( ) ;
foreach ( @ _ )
{
my $ str = $ _ ;
while ( length $ str > $ len )
{
my $ str1 = substr $ str , 0 , $ len ;
my $ str2 = substr $ str , $ len ;
if ( $ str1 =~ /^(.*)\s(\S+)$/ )
{
push @ output , "$1\n" ;
$ str = $ 2 . $ str2 ;
}
else
{
push @ output , "$str1\n" ;
$ str = $ str2 ;
}
}
push @ output , $ str ;
}
return @ output ;
}
#############################
# system interaction
# read an nvram variable
sub nvram_get_old
{
my ( $ var ) = @ _ ;
return "ERROR" if not defined $ var ;
chomp ( $ var = `nvram get $var` ) ;
return $ var ;
}
# set an nvram variable
sub nvram_set_old
{
my ( $ var , $ val ) = @ _ ;
return "ERROR" if not defined $ val ;
return system "nvram set $var='$val'" ;
}
2013-12-02 13:04:54 -07:00
# Replace the /etc/nvram file used by 1.0.0 Linksys
# with the backfire uci command due to an observed race condition
#
# read an nvram variable
2013-11-14 23:11:16 -07:00
sub nvram_get
{
2013-12-02 13:04:54 -07:00
my ( $ var ) = @ _ ;
return "ERROR" if not defined $ var ;
chomp ( $ var = `uci -c /etc/local/uci/ -q get hsmmmesh.settings.$var` ) ;
return $ var ;
2013-11-14 23:11:16 -07:00
}
2013-12-02 13:04:54 -07:00
# set an nvram variable
2013-11-14 23:11:16 -07:00
sub nvram_set
{
2013-12-02 13:04:54 -07:00
my ( $ var , $ val ) = @ _ ;
return "ERROR" if not defined $ val ;
system "uci -c /etc/local/uci/ set hsmmmesh.settings.$var='$val'" ;
system "uci -c /etc/local/uci/ commit" ;
2013-11-14 23:11:16 -07:00
}
2013-12-02 13:04:54 -07:00
2013-11-14 23:11:16 -07:00
# return the ipv4 network parameters of the given interface or "none"
sub get_ip4_network
{
my ( $ ip , $ mask , $ bcast , $ net , $ cidr ) ;
foreach ( `ifconfig $_[0]` )
{
next unless /inet addr:([\d\.]+) Bcast:([\d\.]+) Mask:([\d\.]+)/ ;
( $ ip , $ bcast , $ mask ) = ( $ 1 , $ 2 , $ 3 ) ;
last ;
}
return ( "none" ) unless defined $ ip ;
my $ dmask = ip2decimal ( $ mask ) ;
$ net = decimal2ip ( ip2decimal ( $ ip ) & $ dmask ) ;
$ cidr = 0 ;
for ( my $ i = 31 ; $ i >= 0 and ( $ dmask & ( 1 << $ i ) ) ; $ i - - ) { $ cidr + + }
return ( $ ip , $ mask , $ bcast , $ net , $ cidr ) ;
}
# return the ipv6 address and scope of the given interface or "none"
sub get_ip6_addr
{
my $ ip = "none" ;
my $ scope = "" ;
foreach ( `ifconfig $_[0]` )
{
next unless /inet6 addr: ([\w:]+)\/\d+ Scope:(\w+)/ ;
( $ ip , $ scope ) = ( $ 1 , $ 2 ) ;
last ;
}
return "$ip $scope" ;
}
# return the address of the default gateway or "none"
# currently assumes ipv4
sub get_default_gw
{
my $ gw = "none" ;
2014-07-08 01:02:47 -06:00
# Table 31 is populated by OLSR
foreach ( `/usr/sbin/ip route list table 31` )
{
next unless /^default\svia\s([\d\.]+)/ ;
$ gw = $ 1 ;
last ;
}
# However a node with a wired default gw will route via that instead
foreach ( `/usr/sbin/ip route list table 254` )
{
next unless /^default\svia\s([\d\.]+)/ ;
$ gw = $ 1 ;
last ;
}
2013-11-14 23:11:16 -07:00
return $ gw ;
}
# return the hostname for the given ip address or ""
sub ip2hostname
{
my ( $ ip ) = @ _ ;
my $ host ;
return "" unless $ ip ;
return "" if $ ip eq "none" ;
foreach ( `nslookup $ip` )
{
2013-12-31 13:38:17 -07:00
next unless ( $ host ) = /Address 1: $ip (\S+)/ ;
2013-11-14 23:11:16 -07:00
return $ host ;
}
return "" ;
}
# return the hostname and tactical name for a mesh node
sub mesh_ip2hostname
{
my ( $ ip ) = @ _ ;
my @ list ;
my $ host ;
return "" unless $ ip ;
return "" if $ ip eq "none" ;
foreach ( `grep $ip /etc/hosts 2>/dev/null` )
{
next unless ( $ host ) = /^$ip\s+(.*)/ ;
return ( join " / " , ( split /\s+/ , $ host ) ) ;
}
foreach ( `grep $ip /var/run/hosts_olsr 2>/dev/null` )
{
next unless ( $ host ) = /^$ip\s+([\w\-]+)/ ;
push @ list , $ host ;
}
return join " / " , @ list ;
}
# return the hostname and tactical name for this node
#sub get_nodenames
#{
# my $host = `grep "option 'hostname' /etc/config/system | awk '{print \$3}'`;
# my $tac = `grep "option 'tactical' /etc/config/system | awk '{print \$3}'`;
# $host =~ s/[\"\'\n]//g;
# $tac =~ s/[\"\'\n]//g;
# return ($host, $tac);
#}
# return the mac address for the given interface
sub get_mac
{
my ( $ intf ) = @ _ ;
my $ mac = "" ;
return "" unless $ intf ;
foreach ( `ifconfig $intf 2>/dev/null` )
{
next unless /^\S+ .*HWaddr (\S+)/ ;
$ mac = $ 1 ;
}
return $ mac ;
}
# load the setup file
sub load_cfg
{
#my $mac2 = nvram_get("mac2");
my $ node = nvram_get ( "node" ) ;
2015-03-25 00:25:18 -06:00
my $ mac2 = mac2ip ( get_mac ( get_interface ( "wifi" ) ) , 0 ) ;
my $ dtdmac = mac2ip ( get_mac ( get_interface ( "lan" ) ) , 0 ) ;
2013-11-14 23:11:16 -07:00
open ( FILE , $ _ [ 0 ] ) or return 0 ;
while ( defined ( $ line = <FILE> ) )
{
next if $ line =~ /^\s*#/ ;
next if $ line =~ /^\s*$/ ;
$ line =~ s/<NODE>/$node/ ;
$ line =~ s/<MAC2>/$mac2/ ;
2014-04-09 00:19:45 -06:00
$ line =~ s/<DTDMAC>/$dtdmac/ ;
2013-11-14 23:11:16 -07:00
$ line =~ /^(\w+)\s*=\s*(.*)$/ ;
$ cfg { $ 1 } = $ 2 ;
}
close ( FILE ) ;
return 1 ;
}
# save the setup file and generate the full configuration
sub save_setup
{
# save the parms to the setup file
open ( FILE , ">$_[0]" ) or return 0 ;
foreach ( sort keys % parms )
{
2014-04-09 00:28:29 -06:00
next unless /^(aprs|dhcp|dmz|lan|olsrd|wan|wifi|dtdlink)_/ ;
2013-11-14 23:11:16 -07:00
print FILE "$_ = $parms{$_}\n" ;
}
close ( FILE ) ;
# set the nvram parameters
nvram_set ( "node" , $ parms { node } ) ;
nvram_set ( "tactical" , $ parms { tactical } ) ;
nvram_set ( "config" , $ parms { config } ) ;
# generate the system config files
system "mkdir -p /tmp/web/save" ;
$ rc = system "/usr/local/bin/node-setup -a $parms{config} >/tmp/web/save/node-setup.out 2>&1" ;
return 0 if $ rc or - s "/tmp/web/save/node-setup.out" ;
system "rm -rf /tmp/web/save" ;
# change system and web passwords
$ passwd2 = $ passwd1 ;
$ passwd2 =~ s/'/'\\''/g ;
system "/usr/local/bin/setpasswd '$passwd2' >/dev/null 2>&1" if $ passwd1 ;
system "touch /tmp/reboot-required" ;
return 1 ;
}
sub get_wifi_signal
{
2014-05-01 21:32:40 -06:00
my $ wifiintf = `uci -q get network.wifi.ifname` ;
chomp $ wifiintf ;
2013-12-02 13:04:54 -07:00
my ( $ SignalLevel ) = "N/A" ;
my ( $ NoiseFloor ) = "N/A" ;
2014-05-01 21:32:40 -06:00
foreach ( `iwinfo $wifiintf info` )
2014-03-31 23:59:47 -06:00
{
2014-05-01 21:32:40 -06:00
next unless /.*Signal: ([\d\-]+) dBm.*Noise: ([\d\-]+) dBm/ ;
$ SignalLevel = $ 1 ;
$ NoiseFloor = $ 2 ;
2013-11-14 23:11:16 -07:00
}
2013-12-02 13:04:54 -07:00
if ( $ SignalLevel == "N/A" || $ NoiseFloor == "N/A" )
2013-11-14 23:11:16 -07:00
{
2013-12-02 13:04:54 -07:00
return ( "N/A" , "N/A" ) ;
}
else {
return ( $ SignalLevel , $ NoiseFloor ) ;
2013-11-14 23:11:16 -07:00
}
}
sub get_free_space
{
my $ dir = $ _ [ 0 ] ;
foreach ( `df -k $dir` )
{
next unless /$dir$/ ;
my @ tmp = split /\s+/ , $ _ ;
return $ tmp [ 3 ] ;
}
return "N/A" ;
}
sub get_free_mem
{
foreach ( `free` )
{
2014-05-01 21:32:40 -06:00
next unless /^Mem[:]/ ;
2013-11-14 23:11:16 -07:00
my @ tmp = split /\s+/ , $ _ ;
2014-05-01 21:32:40 -06:00
return $ tmp [ 3 ] + $ tmp [ 5 ] ;
2013-11-14 23:11:16 -07:00
}
return "N/A" ;
}
# this works for the "/etc/config/network" file
# other files can use other schemas so this function is not universal
sub load_openwrt_config
{
my ( $ file ) = @ _ ;
my $ base = $ file ;
$ base =~ s/^.*\/// ;
my ( $ section , $ name ) = ( ) ;
foreach ( `cat $file 2>/dev/null` )
{
next if /^\s*$/ ;
next if /^\s*\#/ ;
if ( /^config\s+(\w+)\s+(\w+)/ )
{
( $ section , $ name ) = ( $ 1 , $ 2 ) ;
next ;
}
next unless $ section and $ name ;
if ( my ( $ opt , $ val ) = /^\s+option\s+(\w+)\s+(\S+.*)/ )
{
$ val =~ s/^"// ;
$ val =~ s/\s+$// ;
$ val =~ s/"$// ;
$ openwrt { $ base } { $ section } { $ name } { $ opt } = $ val ;
}
}
}
#############################
# ip address functions
# add the given value to the last octet
sub add_ip_address
{
my ( $ address , $ add ) = @ _ ;
my ( $ prefix , $ last ) = $ address =~ /^(.*)\.(\d+)$/ ;
return "error" unless defined $ last ;
$ last += $ add ;
return "error" if $ last < 0 or $ last > 255 ;
return "$prefix.$last" ;
}
# substitute the given value for the last octet
sub change_ip_address
{
my ( $ address , $ value ) = @ _ ;
my ( $ prefix ) = $ address =~ /^(.*)\.\d+$/ ;
return "error" unless defined $ prefix ;
return "$prefix.$value" ;
}
# convert dotted quad to 32 bit value
sub ip2decimal
{
my ( $ address ) = @ _ ;
my $ sum = 0 ;
foreach ( split /[.]/ , $ address )
{
$ sum *= 256 ;
$ sum += $ _ ;
}
return $ sum ;
}
# convert 32 bit value to dotted quad
sub decimal2ip
{
my ( $ sum ) = @ _ ;
my @ parts ;
for ( my $ i = 0 ; $ i < 4 ; $ i + + )
{
push @ parts , $ sum & 255 ;
$ sum >> = 8 ;
}
return join "." , reverse @ parts ;
}
# convert a left shifted mac address into 3 IP address octets
sub mac2ip
{
my ( $ mac , $ shiftbits ) = @ _ ;
my $ val = 0 ;
my $ str ;
foreach ( $ mac =~ /\w\w:\w\w:\w\w:(\w\w):(\w\w):(\w\w)/ )
{
$ val << = 8 ;
$ val += hex $ _ ;
}
$ val << = $ shiftbits ;
return sprintf "%d.%d.%d" ,
( $ val & 0xff0000 ) >> 16 ,
( $ val & 0xff00 ) >> 8 ,
$ val & 0xff ;
}
#############################
# input validation
sub validate_node
{
my ( $ node ) = @ _ ;
return 0 unless $ node =~ /^\w\-$/ ;
return 0 if $ node =~ /_/ ;
return 1 ;
}
sub validate_ip
{
my ( $ ip ) = @ _ ;
$ ip =~ s/\s//g ;
return 0 if $ ip eq "0.0.0.0" ;
return 0 if $ ip eq "255.255.255.255" ;
my $ count = 0 ;
foreach ( $ ip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ )
{
+ + $ count if $ _ < 256 ;
}
return 0 unless $ count == 4 ;
return 1 ;
}
sub validate_netmask
{
my ( $ mask ) = @ _ ;
$ mask =~ s/\s//g ;
return 0 if $ mask eq "0.0.0.0" ;
my $ count = 0 ;
my $ bitmask = "" ;
foreach my $ val ( $ mask =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ )
{
+ + $ count if $ val < 256 ;
for ( my $ i = 0 ; $ i < 8 ; + + $ i )
{
my $ bit = 128 >> $ i ;
if ( $ val & $ bit ) { $ bitmask . = "1" }
else { $ bitmask . = "0" }
}
}
return 0 unless $ bitmask =~ /^1+0*$/ ;
return 0 unless $ count == 4 ;
return 1 ;
}
# verify that the address is neither the network
# nor broadcast address for this subnet
sub validate_ip_netmask
{
my ( $ ip , $ mask ) = @ _ ;
return 0 unless validate_ip ( $ ip ) ;
return 0 unless validate_netmask ( $ mask ) ;
$ ip = ip2decimal ( $ ip ) ;
$ mask = ip2decimal ( $ mask ) ;
my $ notmask = 0xffffffff - $ mask ;
return 0 if ( $ ip & $ notmask ) == 0 ;
return 0 if ( $ ip & $ notmask ) == $ notmask ;
return 1 ;
}
# verify that two addresses are in the same subnet
sub validate_same_subnet
{
my ( $ addr1 , $ addr2 , $ mask ) = @ _ ;
$ addr1 = ip2decimal ( $ addr1 ) ;
$ addr2 = ip2decimal ( $ addr2 ) ;
$ mask = ip2decimal ( $ mask ) ;
return 1 if ( $ addr1 & $ mask ) == ( $ addr2 & $ mask ) ;
return 0 ;
}
sub validate_mac
{
my ( $ mac ) = @ _ ;
$ mac = lc $ mac ;
$ mac =~ s/^\s+// ;
$ mac =~ s/\s+$// ;
return 0 unless length $ mac == 17 ;
for ( my $ i = 0 ; $ i < 17 ; $ i + + )
{
my $ ch = chop $ mac ;
if ( ( $ i + 1 ) % 3 ) { return 0 unless $ ch =~ /[0-9a-f]/ }
else { return 0 unless $ ch eq ":" }
}
return 1 ;
}
sub validate_hostname
{
my ( $ host ) = @ _ ;
$ host =~ s/^\s+// ;
$ host =~ s/\s+$// ;
return 0 if $ host =~ /_/ ;
return 1 if $ host =~ /^[\w\-]+$/ ;
return 0 ;
}
sub validate_port
{
my ( $ port ) = @ _ ;
$ port =~ s/^\s+// ;
$ port =~ s/\s+$// ;
return 0 if $ port eq "" ;
return 0 if $ port =~ /\D/ ;
return 0 if $ port < 1 or $ port > 65535 ;
return 1 ;
}
sub validate_port_range
{
my ( $ port ) = @ _ ;
my ( $ port1 , $ port2 ) ;
return 0 unless ( $ port1 , $ port2 ) = $ port =~ /^\s*(\d+)\s*-\s*(\d+)\s*$/ ;
return 0 unless validate_port ( $ port1 ) ;
return 0 unless validate_port ( $ port2 ) ;
return 0 unless $ port2 > $ port1 ;
return 1 ;
}
sub validate_service_name
{
my ( $ name ) = @ _ ;
2014-04-01 16:30:55 -06:00
return 0 if $ name eq "" ;
return 0 if $ name =~ /[:'"|]/ ;
return 0 unless $ name =~ /[^|[:cntrl:]]+$/ ;
2013-11-14 23:11:16 -07:00
return 1 ;
}
sub validate_service_protocol
{
my ( $ proto ) = @ _ ;
return 0 if $ proto eq "" ;
2014-04-01 16:30:55 -06:00
return 0 if $ name =~ /[:'"|]/ ;
return 0 unless $ proto =~ /^[[:alnum:]]+$/ ;
2013-11-14 23:11:16 -07:00
return 1 ;
}
sub validate_service_suffix
{
my ( $ suffix ) = @ _ ;
2014-04-01 16:30:55 -06:00
# protects against parsing errors in the config files and html
return 0 if $ suffix =~ /[:'"|]/ ;
# checks if string meets critera specified by nameservice module
return 0 unless $ suffix =~ /^[[:alnum:]\/?._=#-]*$/ ;
2013-11-14 23:11:16 -07:00
return 1 ;
}
sub validate_latitude
{
my ( $ lat ) = @ _ ;
return 0 unless defined $ lat ;
$ lat =~ s/^\s+// ;
$ lat =~ s/\s+$// ;
return 0 if $ lat =~ /[^\d\.\-]/ ;
return 0 if $ lat < - 90 or $ lat > 90 ;
return 1 ;
}
sub validate_longitude
{
my ( $ lon ) = @ _ ;
return 0 unless defined $ lon ;
$ lon =~ s/^\s+// ;
$ lon =~ s/\s+$// ;
return 0 if $ lon =~ /[^\d\.\-]/ ;
return 0 if $ lon < - 180 or $ lat > 180 ;
return 1 ;
}
2013-12-02 13:04:54 -07:00
2013-12-13 22:59:34 -07:00
# Get boardid
sub hardware_boardid
{
2015-04-05 23:07:47 -06:00
my $ boarid = "" ;
# Ubiquiti hardware
if ( - f '/sys/devices/pci0000:00/0000:00:00.0/subsystem_device' ) {
$ boardid = `cat /sys/devices/pci0000:00/0000:00:00.0/subsystem_device` ;
chomp ( $ boardid ) ;
} else {
# Can't use the subsystem_device so instead use the model
2015-05-05 17:18:24 -06:00
$ boardid = `/usr/local/bin/get_boardid` ;
2015-04-05 23:07:47 -06:00
chomp ( $ boardid ) ;
}
2013-12-13 22:59:34 -07:00
return $ boardid ;
}
# Return a hashref with device details
sub hardware_info
{
% model = (
2015-04-22 12:31:23 -06:00
'TP-Link CPE210 v1.0' = > {
'name' = > 'TP-Link CPE210 v1.0' ,
'comment' = > '' ,
'supported' = > '-2' ,
'maxpower' = > '27' ,
'pwroffset' = > '0' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '2400' ,
} ,
2015-04-05 23:16:24 -06:00
'TP-Link CPE510 v1.0' = > {
'name' = > 'TP-Link CPE510 v1.0' ,
'comment' = > '' ,
'supported' = > '-2' ,
'maxpower' = > '27' ,
'pwroffset' = > '0' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '5800ubntus' ,
} ,
2013-12-13 22:59:34 -07:00
'0xc2a2' = > {
'name' = > 'Bullet 2 HP' ,
'comment' = > 'Not enough Ram or flash' ,
'supported' = > '-1' ,
} ,
2014-04-18 21:10:43 -06:00
'0xc302' = > {
'name' = > 'PicoStation2' ,
'comment' = > 'PicoStation2 (NOT M series) in testing' ,
'supported' = > '-2' ,
'maxpower' = > '16' ,
'pwroffset' = > '4' ,
'antennas' = > { 1 = > 'Antenna' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2014-04-18 21:10:43 -06:00
} ,
'0xc3a2' = > {
'name' = > 'PicoStation2 HP' ,
'comment' = > 'PicoStation2 HP (NOT M series) in testing' ,
'supported' = > '-2' ,
'maxpower' = > '19' ,
'pwroffset' = > '10' ,
'antennas' = > { 1 = > 'Antenna' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2014-04-18 21:10:43 -06:00
} ,
2014-07-15 00:01:16 -06:00
'0xe009' = > {
'name' = > 'NanoStation Loco M9' ,
2014-10-20 20:45:46 -06:00
'comment' = > 'NanoStation Loco M9' ,
'supported' = > '1' ,
2014-07-15 00:01:16 -06:00
'maxpower' = > '22' ,
'pwroffset' = > '6' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '900' ,
} ,
2014-01-10 21:15:38 -07:00
'0xe012' = > {
'name' = > 'NanoStation M2' ,
2014-01-19 19:44:01 -07:00
'comment' = > '' ,
'supported' = > '1' ,
2014-01-10 21:15:38 -07:00
'maxpower' = > '18' ,
'pwroffset' = > '10' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
2014-01-14 11:33:38 -07:00
'defaultant' = > 3 ,
2014-01-13 00:05:50 -07:00
'usechains' = > 1 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2014-01-10 21:15:38 -07:00
} ,
2013-12-13 23:15:40 -07:00
'0xe0a2' = > {
'name' = > 'NanoStation Loco M2' ,
2014-01-19 19:44:01 -07:00
'comment' = > '' ,
'supported' = > '1' ,
2014-01-19 19:50:17 -07:00
'maxpower' = > '18' ,
2014-01-19 19:38:26 -07:00
'pwroffset' = > '5' ,
2013-12-13 23:15:40 -07:00
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
2014-01-14 11:33:38 -07:00
'defaultant' = > 3 ,
'usechains' = > 1 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2013-12-13 23:15:40 -07:00
} ,
2013-12-13 22:59:34 -07:00
'0xe1b2' = > {
'name' = > 'Rocket M2' ,
'comment' = > '' ,
'supported' = > '1' ,
'maxpower' = > '18' ,
'pwroffset' = > '10' ,
'antennas' = > { 1 = > "Chain0" , 2 = > "Chain1" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2013-12-13 22:59:34 -07:00
} ,
2014-03-27 23:53:06 -06:00
'0xe1b5' = > {
'name' = > 'Rocket M5' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'Rocket M5' ,
'supported' = > '1' ,
2014-03-27 23:53:06 -06:00
'maxpower' = > '22' ,
'pwroffset' = > '5' ,
'antennas' = > { 1 = > "Chain0" , 2 = > "Chain1" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '5800ubntus' ,
} ,
2014-10-20 20:45:46 -06:00
'0xe1b9' = > {
'name' = > 'Rocket M9' ,
2014-11-03 21:26:47 -07:00
'comment' = > 'Rocket M9' ,
'supported' = > '1' ,
2014-10-20 20:45:46 -06:00
'maxpower' = > '22' ,
'pwroffset' = > '6' ,
'antennas' = > { 1 = > "Chain0" , 2 = > "Chain1" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '900' ,
} ,
2015-04-01 00:42:22 -06:00
'0xe1c3' = > {
'name' = > 'Rocket M3' ,
'comment' = > 'In Testing' ,
'supported' = > '-2' ,
'maxpower' = > '22' ,
'pwroffset' = > '3' ,
'antennas' = > { 1 = > "Chain0" , 2 = > "Chain1" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '3400' ,
} ,
2013-12-13 22:59:34 -07:00
'0xe202' = > {
2013-12-16 11:56:36 -07:00
'name' = > 'Bullet M2 HP' ,
2013-12-13 22:59:34 -07:00
'comment' = > '' ,
'supported' = > '1' ,
'maxpower' = > '16' ,
'pwroffset' = > '12' ,
'antennas' = > { 1 = > 'N Connector' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2013-12-13 22:59:34 -07:00
} ,
2014-03-27 23:53:06 -06:00
'0xe205' = > {
'name' = > 'Bullet M5' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'Bullet M5' ,
'supported' = > '1' ,
2014-03-27 23:53:06 -06:00
'maxpower' = > '19' ,
'pwroffset' = > '6' ,
'antennas' = > { 1 = > 'N Connector' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
'rfband' = > '5800ubntus' ,
} ,
2014-12-14 11:37:48 -07:00
'0xe212' = > {
'name' = > 'airGrid M2' ,
'comment' = > 'airGrid M2 -- Reported as an hp' ,
'supported' = > '-2' ,
2014-12-14 11:54:05 -07:00
'maxpower' = > '28' ,
'pwroffset' = > '0' ,
2014-12-14 11:37:48 -07:00
'antennas' = > { 1 = > 'airGrid' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
'rfband' = > '2400' ,
} ,
2014-03-27 23:53:06 -06:00
'0xe215' = > {
'name' = > 'airGrid M5' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'airGrid M5' ,
'supported' = > '1' ,
2014-03-27 23:53:06 -06:00
'maxpower' = > '19' ,
'pwroffset' = > '1' ,
'antennas' = > { 1 = > 'airGrid' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
'rfband' = > '5800ubntus' ,
} ,
2014-03-28 00:19:13 -06:00
'0xe232' = > {
'name' = > 'NannoBridge M2' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'NanoBridge M2' ,
'supported' = > '1' ,
2014-03-28 00:19:13 -06:00
'maxpower' = > '21' ,
'pwroffset' = > '2' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2014-03-28 00:19:13 -06:00
} ,
2014-07-15 00:01:16 -06:00
'0xe239' = > {
'name' = > 'NannoBridge M9' ,
2014-10-20 20:45:46 -06:00
'comment' = > 'NanoBridge M9' ,
'supported' = > '1' ,
2014-07-15 00:01:16 -06:00
'maxpower' = > '22' ,
'pwroffset' = > '6' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '900' ,
} ,
2014-04-18 21:10:43 -06:00
'0xe242' = > {
'name' = > 'airGrid M2 HP' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'airGrid M2 HP' ,
'supported' = > '1' ,
2014-04-18 21:10:43 -06:00
'maxpower' = > '19' ,
'pwroffset' = > '9' ,
'antennas' = > { 1 = > 'airGrid' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2014-04-18 21:10:43 -06:00
} ,
2014-01-09 11:51:00 -07:00
'0xe243' = > {
'name' = > 'NannoBridge M3' ,
'comment' = > 'Not Tested' ,
2014-06-24 22:05:13 -06:00
'supported' = > '-2' ,
2014-01-09 11:51:00 -07:00
'maxpower' = > '22' ,
'pwroffset' = > '3' ,
'antennas' = > { 1 = > "Chain0" , 2 = > "Chain1" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
2015-04-01 00:50:05 -06:00
'rfband' = > '3400' ,
2014-01-09 11:51:00 -07:00
} ,
2013-12-15 14:09:11 -07:00
'0xe252' = > {
'name' = > 'airGrid M2 HP' ,
'comment' = > '' ,
2014-01-19 19:44:01 -07:00
'supported' = > '1' ,
2013-12-15 14:09:11 -07:00
'maxpower' = > '19' ,
'pwroffset' = > '9' ,
'antennas' = > { 1 = > 'airGrid' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2013-12-15 14:09:11 -07:00
} ,
2014-03-27 23:53:06 -06:00
'0xe255' = > {
'name' = > 'airGrid M5 HP' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'airGrid M5' ,
'supported' = > '1' ,
2014-03-27 23:53:06 -06:00
'maxpower' = > '19' ,
'pwroffset' = > '6' ,
'antennas' = > { 1 = > 'airGrid' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
'rfband' = > '5800ubntus' ,
} ,
'0xe2b5' = > {
'name' = > 'NannoBridge M5' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'NanoBridge M5' ,
'supported' = > '1' ,
2014-03-27 23:53:06 -06:00
'maxpower' = > '22' ,
'pwroffset' = > '1' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '5800ubntus' ,
} ,
2014-03-28 00:19:13 -06:00
'0xe2c2' = > {
'name' = > 'NannoBeam M2 International' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'NanoBeam M2 International -- XW board unsupported at this time' ,
'supported' = > '-1' ,
2014-03-28 00:19:13 -06:00
'maxpower' = > '18' ,
'pwroffset' = > '10' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2014-03-28 00:19:13 -06:00
} ,
'0xe2d2' = > {
'name' = > 'Bullet M2 Titanium HP' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'Bullet M2 Titanium' ,
'supported' = > '1' ,
2014-03-28 00:19:13 -06:00
'maxpower' = > '16' ,
'pwroffset' = > '12' ,
'antennas' = > { 1 = > 'N Connector' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2014-03-28 00:19:13 -06:00
} ,
2014-04-12 10:48:06 -06:00
'0xe2d5' = > {
'name' = > 'Bullet M5 Titanium' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'Bullet M5 Titanium' ,
'supported' = > '1' ,
2014-04-12 10:48:06 -06:00
'maxpower' = > '19' ,
'pwroffset' = > '6' ,
'antennas' = > { 1 = > 'N Connector' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
'rfband' = > '5800ubntus' ,
} ,
2014-03-28 00:19:13 -06:00
'0xe302' = > {
'name' = > 'PicoStation M2' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'PicoStation M2' ,
'supported' = > '1' ,
2014-03-28 00:19:13 -06:00
'maxpower' = > '16' ,
'pwroffset' = > '12' ,
'antennas' = > { 1 = > 'Antenna' } ,
'defaultant' = > 1 ,
'usechains' = > 0 ,
2014-04-20 00:51:55 -06:00
'rfband' = > '2400' ,
2014-03-28 00:19:13 -06:00
} ,
2014-03-27 23:53:06 -06:00
'0xe4e5' = > {
'name' = > 'NannoBeam M5 International' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'NanoBeam M5 International XW series unsuported at this time' ,
'supported' = > '-1' ,
2014-03-27 23:53:06 -06:00
'maxpower' = > '22' ,
'pwroffset' = > '1' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '5500' ,
} ,
'0xe805' = > {
'name' = > 'NanoStation M5' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'NanoStation M5' ,
'supported' = > '1' ,
2014-03-27 23:53:06 -06:00
'maxpower' = > '22' ,
'pwroffset' = > '5' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '5800ubntus' ,
} ,
2015-05-05 17:29:53 -06:00
'0xe825' = > {
'name' = > 'NanoBeam M5 19' ,
'comment' = > 'NanoBeam M5 19 in testing' ,
'supported' = > '-2' ,
'maxpower' = > '22' ,
'pwroffset' = > '4' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '5800ubntus' ,
} ,
2015-04-07 21:37:58 -06:00
'Ubiquiti Nanostation M XW' = > {
'name' = > 'NanoStation M5 XW' ,
'comment' = > 'NanoStation M5 XW 0xe855 (In Testing)' ,
'supported' = > '-2' ,
'maxpower' = > '22' ,
'pwroffset' = > '5' ,
2015-04-07 23:11:56 -06:00
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
2015-04-07 21:37:58 -06:00
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '5800ubntus' ,
} ,
2014-03-27 23:53:06 -06:00
'0xe8a5' = > {
'name' = > 'NanoStation Loco M5' ,
2014-06-24 22:05:13 -06:00
'comment' = > 'NanoStation Loco M5' ,
'supported' = > '1' ,
2014-03-27 23:53:06 -06:00
'maxpower' = > '22' ,
'pwroffset' = > '1' ,
'antennas' = > { 1 = > "Horizontal" , 2 = > "Vertical" , 3 = > "Diversity" } ,
'defaultant' = > 3 ,
'usechains' = > 1 ,
'rfband' = > '5800ubntus' ,
} ,
2013-12-13 22:59:34 -07:00
) ;
$ boardid = hardware_boardid ( ) ;
if ( exists $ model { $ boardid } ) {
return $ model { $ boardid } ;
} else
{
return { 'name' = > 'Unknown Hardware' , = > 'comment' = > "We do not have this hardware in our database" , supported = > '-1' , } ;
}
}
2013-12-02 13:04:54 -07:00
# Return maximum dbm value for tx power
sub wifi_maxpower
{
2013-12-13 22:59:34 -07:00
$ boardinfo = hardware_info ( ) ;
if ( exists $ boardinfo - > { 'maxpower' } ) {
return $ boardinfo - > { 'maxpower' } ;
} else
2013-12-02 13:04:54 -07:00
{
#When in doubt lets return 27 for safety.
return 27 ;
}
}
sub wifi_validant
{
2013-12-13 22:59:34 -07:00
$ boardinfo = hardware_info ( ) ;
if ( exists $ boardinfo - > { 'antennas' } ) {
return $ boardinfo - > { 'antennas' } ;
} else
2013-12-02 13:04:54 -07:00
{
2013-12-13 22:59:34 -07:00
return { 0 = > "Left" , 1 = > "Right" , 2 = > "Diversity" } ;
2013-12-02 13:04:54 -07:00
}
}
sub wifi_defaultant
{
2013-12-13 22:59:34 -07:00
$ boardinfo = hardware_info ( ) ;
if ( exists $ boardinfo - > { 'defaultant' } ) {
return $ boardinfo - > { 'defaultant' } ;
} else
2013-12-02 13:04:54 -07:00
{
#Most likely to catch all models. Some have 3 and start at 1, some start at 0, others have 1 at 1, etc
return 1 ;
}
}
sub wifi_useschains
{
2013-12-13 22:59:34 -07:00
$ boardinfo = hardware_info ( ) ;
if ( exists $ boardinfo - > { 'usechains' } ) {
return $ boardinfo - > { 'usechains' } ;
} else
2013-12-02 13:04:54 -07:00
{
2014-01-14 11:33:38 -07:00
return 1 ;
2013-12-02 13:04:54 -07:00
}
}
#Some systems have power offsets in them because of a secondary amplifier
#Because of this the chipset may report one power level but the amplifier
#has increased it to a higher level.
sub wifi_txpoweroffset
{
2015-03-25 00:25:18 -06:00
my $ wlanintf = get_interface ( "wifi" ) ;
my $ doesiwoffset = `iwinfo $wlanintf info 2>/dev/null` =~ /TX power offset: (\d+)/ ;
2014-05-06 15:29:19 -06:00
if ( $ doesiwoffset ) {
return $ 1 ;
2013-12-13 22:59:34 -07:00
} else
2013-12-02 13:04:54 -07:00
{
2014-05-02 13:07:19 -06:00
$ boardinfo = hardware_info ( ) ;
if ( exists $ boardinfo - > { 'pwroffset' } ) {
return $ boardinfo - > { 'pwroffset' } ;
} else
{
return 0 ;
}
2013-12-02 13:04:54 -07:00
}
}
2013-12-11 23:54:27 -07:00
sub is_hardware_supported
{
2013-12-13 22:59:34 -07:00
$ boardinfo = hardware_info ( ) ;
return $ boardinfo - > { 'supported' } ;
2013-12-11 23:54:27 -07:00
}
2015-03-09 17:39:04 -06:00
# Needs to be renamed from alert_banner
2013-12-11 23:54:27 -07:00
sub alert_banner
{
2015-03-09 17:39:04 -06:00
print "<div class=\"TopBanner\">" ;
#AREDN Banner
print "<div class=\"LogoDiv\"><img src=\"/AREDN.png\" class=\"AREDNLogo\"></img></div>" ;
2013-12-11 23:54:27 -07:00
# Device compatibility alert
if ( is_hardware_supported ( ) != 1 ) {
if ( is_hardware_supported ( ) == 0 ) {
print "<div style=\"padding:5px;background-color:#FF4719;border:1px solid #ccc;width:600px;\"><a href=\"/cgi-bin/sysinfo\">!!!! UNSUPPORTED DEVICE !!!!</a></div>\n" ;
}
2014-03-26 22:47:54 -06:00
elsif ( is_hardware_supported ( ) == - 2 ) {
print "<div style=\"padding:5px;background-color:#FFFF00;border:1px solid #ccc;width:600px;\"><a href=\"/cgi-bin/sysinfo\"> !!!! THIS DEVICE IS STILL BEING TESTED !!!!</a></div>\n" ;
}
2013-12-11 23:54:27 -07:00
else {
print "<div style=\"padding:5px;background-color:#FFFF00;border:1px solid #ccc;width:600px;\"><a href=\"/cgi-bin/sysinfo\">!!!! UNTESTED HARDWARE !!!!</a></div>\n" ;
}
}
2015-03-09 17:39:04 -06:00
#TopBanner
print "</div>" ;
2013-12-11 23:54:27 -07:00
}
2015-03-09 17:39:04 -06:00
sub page_footer
{
print "<div class=\"Page_Footer\">" ;
print "<hr>" ;
print "<p class=\"PartOfAREDN\">Part of the AREDN™ Project. For more details please <a href=\"/about.html\" target=\"_blank\">see here</a></p>" ;
# Page_Footer
print "</div>"
}
2013-12-11 23:54:27 -07:00
2015-03-25 00:25:18 -06:00
sub get_interface
{
2015-03-26 02:31:50 -06:00
my ( $ intf ) = @ _ ;
my $ intfname = `uci -q get network.$intf.ifname` ;
2015-03-25 00:25:18 -06:00
chomp $ intfname ;
if ( $ intfname ) {
return $ intfname ;
} else {
# Capture rules incase uci file is not in sync.
2015-03-26 02:31:50 -06:00
if ( $ intf eq "lan" )
2015-03-25 00:25:18 -06:00
{
return "eth0" ;
2015-03-26 02:31:50 -06:00
} elsif ( $ intf eq "wan" ) {
2015-03-25 00:25:18 -06:00
return "eth0.1" ;
2015-03-26 02:31:50 -06:00
} elsif ( $ intf eq "wifi" ) {
2015-03-25 00:25:18 -06:00
return "wlan0" ;
2015-03-26 02:31:50 -06:00
} elsif ( $ intf eq "dtdlink" ) {
2015-03-26 17:47:33 -06:00
return "eth0.2" ;
2015-03-25 00:25:18 -06:00
} else {
# we have a problem
die ( "Unknown interface in call to get_interface" ) ;
}
}
}
2015-04-01 16:26:52 -06:00
sub reboot_required ()
{
http_header ( ) ;
html_header ( "$node setup" , 1 ) ;
print "<body><center><table width=790><tr><td>\n" ;
navbar ( "vpn" ) ;
print "</td></tr><tr><td align=center><br>" ;
if ( $ config eq "" )
{
print "<b>This page is not available until the configuration has been set.</b>" ;
}
else
{
print "<b>The configuration has been changed.<br>This page will not be available until the node is rebooted.\n</b>" ;
print "<form method='post' action='/cgi-bin/vpn' enctype='multipart/form-data'>\n" ;
print "<input type=submit name=button_reboot value='Click to REBOOT' />" ;
print "</form>" ;
}
print "</td></tr>\n" ;
print "</table></center></body></html>\n" ;
exit ;
}
2015-04-04 22:49:31 -06:00
sub css_options
{
2015-05-14 11:56:41 -06:00
print "<option>Select a theme</option>" ;
2015-04-04 22:49:31 -06:00
my @ cssfiles = `ls /www/*.css` ;
foreach $ css ( @ cssfiles )
{
chomp ( $ css ) ;
$ css =~ m #^(.*?)([^/]*)(\.css)$#;
( $ dir , $ file ) = ( $ 1 , $ 2 ) ;
2015-04-05 20:19:32 -06:00
print "<option value=\"$file.css\">$file</option>" unless $ file eq "style" ;
2015-04-04 22:49:31 -06:00
}
}
2015-03-25 00:25:18 -06:00
2013-12-02 13:04:54 -07:00
#weird uhttpd/busybox error requires a 1 at the end of this file
2013-11-14 23:11:16 -07:00
1
