#!/usr/bin/perl =for commnet Part of BBHN Mesh -- Used for creating Amateur Radio friendly mesh networks 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 . =cut $debug = 0; BEGIN {push @INC, '/www/cgi-bin'}; use perlfunc; # collect some variables $node = nvram_get("node"); $node = "NOCALL" if $node eq ""; read_postdata(); system "mkdir -p /tmp/web"; system "/usr/local/bin/wscan -w > /tmp/web/wscan.next" unless $parms{stop}; system "touch /tmp/web/autoscan" if $parms{auto}; system "rm -f /tmp/web/autoscan" if $parms{stop}; system "mv /tmp/web/wscan.next /tmp/web/wscan" unless $parms{stop}; # generate the page http_header(); html_header("$node WiFi scan", 0); print "\n" if -f "/tmp/web/autoscan"; print "\n"; print "
\n"; print "
\n"; alert_banner(); print "

$node WiFi scan

\n"; if(-f "/tmp/web/autoscan") { print "\n"; } else { print "\n"; print "   \n"; print "\n"; } print "   \n"; print "

\n"; system "cat /tmp/web/wscan"; print "
"; print "
\n"; print "
\n"; show_debug_info(); show_parse_errors(); print "\n"; print "\n";