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