From 54589ff7756545fe21a0ac852373fcb113fae0e6 Mon Sep 17 00:00:00 2001 From: Tim Wilkinson Date: Mon, 3 Jan 2022 13:01:39 -0800 Subject: [PATCH] Fix missing location --- files/www/cgi-bin/mesh | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/files/www/cgi-bin/mesh b/files/www/cgi-bin/mesh index 23d41fe5..c8eb246b 100755 --- a/files/www/cgi-bin/mesh +++ b/files/www/cgi-bin/mesh @@ -40,6 +40,7 @@ $debug = 0; BEGIN {push @INC, '/www/cgi-bin'}; use perlfunc; +use ucifunc; %rateL = ( '1.0M' => '1', # CCP LP @@ -123,11 +124,11 @@ system "touch /tmp/web/automesh" if $parms{auto}; system "rm -f /tmp/web/automesh" if $parms{stop}; #get location info if available -open my $rcgood, '<', '/etc/latlon'; -if ($rcgood) +$lat=&uci_get_indexed_option("aredn","location",0,"lat"); +$lon=&uci_get_indexed_option("aredn","location",0,"lon"); +if($lat ne "" and $lon ne "") { - $lat_lon = "
Location: " . <$rcgood> . <$rcgood> . "
"; - close $rcgood; + $lat_lon = "
Location: $lat $lon
"; } else {