From cb1bd15823fcdd98ec63b576de693baff5aa3fb6 Mon Sep 17 00:00:00 2001 From: Darryl Quinn Date: Wed, 6 Jan 2016 14:36:40 -0600 Subject: [PATCH] resized distance field, changed is_online technique --- files/www/cgi-bin/perlfunc.pm | 11 ++++++----- files/www/cgi-bin/setup | 4 +--- 2 files changed, 7 insertions(+), 8 deletions(-) diff --git a/files/www/cgi-bin/perlfunc.pm b/files/www/cgi-bin/perlfunc.pm index 40bc1b26..0815a811 100644 --- a/files/www/cgi-bin/perlfunc.pm +++ b/files/www/cgi-bin/perlfunc.pm @@ -1450,11 +1450,12 @@ sub css_options sub is_online() { - # test for web connectivity - my $pingOk=0; - my $rc=system("ping -c2 -W1 8.8.8.8 > /dev/null 2>&1"); - $pingOk=1 if($rc==0); - return $pingOk; + my $online=0; + if(get_default_gw() ne "none") + { + $online=1; + } + return $online; } #weird uhttpd/busybox error requires a 1 at the end of this file diff --git a/files/www/cgi-bin/setup b/files/www/cgi-bin/setup index e3660b8b..1ae4f508 100755 --- a/files/www/cgi-bin/setup +++ b/files/www/cgi-bin/setup @@ -746,8 +746,6 @@ if($wifi_proto ne "disabled") print "
Active Settings\n"; - print "
Antenna selection is now automatic

"; - print "Tx Power\n"; print " kilometers
"; + print " kilometers
"; print "
"; print "Miles ";