#!/usr/bin/perl $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"; 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";