#!/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 BEGIN {push @INC, '/www/cgi-bin'}; use perlfunc; http_header(); html_header("$node system information", 1); print "

\n";

print " node: ", nvram_get("node"), "\n";
print "model: ", `/usr/local/bin/get_model`, "\n";

if ( is_hardware_supported() !=1  ){
    print "!!!! UNSUPPORTED DEVICE !!!!\n";
    print "boardid: " , hardware_boardid() , "\n";
    if ( is_hardware_supported == 0 ) {
        print "Device HAS BEEN TESTED AS UNSUPPORTED\n";
    }
    else {
        print "Device has not been tested. Please file a ticket with your experiences.\n";
    }
    print "\n";
}

foreach(`ifconfig -a`)
{
    next unless /^(\S+) .*HWaddr (\S+)/;
    printf "%-6s %s\n", $1, $2;
}

print "\n/proc/cpuinfo\n";
system "cat /proc/cpuinfo";

print "\nnvram\n";
system "uci -c /etc/local/uci show 2>&1";

print "

\n"; print "\n"; print "\n";