-
Notifications
You must be signed in to change notification settings - Fork 0
Sample with HTML
#-------------------------------------------------------------
# Sample script for the ReadyNAS Perl library
#-------------------------------------------------------------
use POSIX qw( strftime getcwd );
use Time::Local;
#-------------------------------------------------------------
# Load the library
#-------------------------------------------------------------
require 'readynas.pl'; # Loader
loadReadyNASLibrary("MULTICAST"); # Select Library to Use
`# SNMP = SNMP`
`# MULTICAST = UPNP`
`# UNICAST = UPNP`
`# HYBRID = UNICAST/SNMP`
#-------------------------------------------------------------
# Set Options
#-------------------------------------------------------------
setOptionRequireUniqueHosts(1); # Filter duplicate hostnames (0=off, 1=on)
setOptionVerbose(0); # Verbose Messages (0=off, 1=on)
setOptionDebug(0); # Debug Messages (0=off, 1=on)
setOptionDebugFile("console"); # Output to CONSOLE
setOptionDumpPackets(0); # Write packets to disk
setOptionDumpBadPacketsOnly(0); # Write ONLY bad packets to disk
setSocketTimeout(1); # Set Socket Timeout (Seconds)
# setSocketErrorTimeout(30); # Set Socket Error Timeout (Seconds) (MULTICAST ONLY)
# setCommunity("public"); # Set SNMP Community (SNMP Only)
#-------------------------------------------------------------
# ReadyNAS Units to Scan
#-------------------------------------------------------------
setBroadcastAddress("192.168.0.255");
#-------------------------------------------------------------
# Full pathname to the stats file
#-------------------------------------------------------------
$fname = "nas.html";
my $_VERSION = "201003141246";
#-------------------------------------------------------------
# Gather ReadyNAS Data
#-------------------------------------------------------------
loadReadyNASData();
if (getBytesRead() < 1) {
`exit(1);`
}
#-------------------------------------------------------------
# Get a list of IP addresses of Units we now have data on
#-------------------------------------------------------------
$units = getUnitAddresses();
$unitcount = getUnitCount();
if ($unitcount > 0) {
}else{
`exit(1);`
}
$now = strftime( "%Y-%m-%d", localtime ) . " " . strftime( "%H:%M:%S", localtime );
#-------------------------------------------------------------
# Build Web Page
#-------------------------------------------------------------
open(HOUTPUT,">$fname");
print HOUTPUT "<html><head>\n";
print HOUTPUT "<meta http-equiv=\"Pragma\" content=\"no-cache\">\n";
print HOUTPUT "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">\n";
print HOUTPUT "<meta http-equiv=\"refresh\" content=\"60\">\n";
print HOUTPUT "<TITLE>NETGEAR ReadyNAS Status Page</TITLE>\n";
print HOUTPUT "<head>\n";
print HOUTPUT "<BODY bgcolor=\#FFFFFF text=\#000000 vlink=\#0000A0 alink=\#0000FF link=\#0000D0>\n";
print HOUTPUT "<H1><font face=\"Tahoma\">NETGEAR ReadyNAS Server Status</h1><p></font>\n";
print HOUTPUT "Generated at $now<p>";
print HOUTPUT "<table border=1>\n";
print HOUTPUT "<tr><td>Server Information<td>Temperatures</tr>\n";
my $i = 0;
for ( split /\|/, $units ) {
`/\|/;`
`if ($_ ne "") {`
`$i++;`
`$macindex = parseReadyNASData(getUnitData($_));`
`$nasindex{$_} = $macindex;`
`print HOUTPUT "<tr>";`
`print HOUTPUT "<td><font face=\"Tahoma\">";`
`print HOUTPUT "<a href=http://" . lc getAdminAddress($unit{$macindex}{ipaddr}{0}) . "/admin>";`
`print HOUTPUT "$unit{$macindex}{hostname}{0}";`
`print HOUTPUT "</a>";`
`print HOUTPUT "<br>$unit{$macindex}{models}{0}";`
`print HOUTPUT "<hr>";`
`print HOUTPUT "<small>";`
`print HOUTPUT "O/S: $unit{$macindex}{os}{0}";`
`print HOUTPUT "<br>MAC: $unit{$macindex}{mac}{0}";`
`print HOUTPUT "<br>TCP: $unit{$macindex}{ipaddr}{0}";`
`print HOUTPUT "<br>FAN: $unit{$macindex}{fan}{0}";`
`print HOUTPUT "<br>BOOT: $unit{$macindex}{boot}{0}";`
`print HOUTPUT "<br>MEM: $unit{$macindex}{system}{memory}{0}\n";`
`print HOUTPUT "<br>SYS: $unit{$macindex}{system}{processes}{0}\n";`
`print HOUTPUT "<br>UPT: $unit{$macindex}{system}{uptime}{0}\n";`
`print HOUTPUT "<p>$unit{$macindex}{volumes}{0}";`
`print HOUTPUT "</small>";`
`if ($unit{$macindex}{tmps}{0} ne "N/A") `
`{`
`print HOUTPUT "<td><font face=\"Tahoma\">"; `
`my $temp_c = substr($unit{$macindex}{tmps}{1}{desc},0,2);`
`my $font_color = "";`
`if ($temp_c < 61) {`
`$font_color = "\#FF0000";`
`} `
`if ($temp_c < 56) {`
`$font_color = "\#900000";`
`}`
`if ($temp_c < 51) {`
`$font_color = "\#400000";`
`}`
`if ($temp_c < 41) {`
`$font_color = "\#004000";`
`}`
`if ($temp_c < 31) {`
`$font_color = "\#000040";`
`} `
`if ($temp_c < 21) {`
`$font_color = "\#000090";`
`}`
`if ($temp_c < 11) {`
`$font_color = "\#0000FF";`
`}`
`print HOUTPUT "<font color=$font_color>";`
`print HOUTPUT "<br>0: $unit{$macindex}{tmps}{1}{desc} System Core";`
`print HOUTPUT "</font>";`
`}else{`
`print HOUTPUT "<td><font face=\"Tahoma\">"; `
`print HOUTPUT "<br>N/A";`
`print HOUTPUT "</font>";`
`}`
`if ($unit{$macindex}{disks}{0} ne "N/A") {`
`for ( $instance = 1; $instance < ($unit{$macindex}{disks}{0}{records} + 1); $instance++) {`
`print HOUTPUT "<br>";`
`my $temp_c = substr($unit{$macindex}{disks}{$instance}{tmps},0,2);`
`my $font_color = "";`
`if ($temp_c < 61) {`
`$font_color = "\#FF0000";`
`} `
`if ($temp_c < 56) {`
`$font_color = "\#900000";`
`}`
`if ($temp_c < 51) {`
`$font_color = "\#400000";`
`}`
`if ($temp_c < 41) {`
`$font_color = "\#004000";`
`}`
`if ($temp_c < 31) {`
`$font_color = "\#000040";`
`}`
`if ($temp_c < 21) {`
`$font_color = "\#000090";`
`}`
`if ($temp_c < 11) {`
`$font_color = "\#0000FF";`
`}`
`print HOUTPUT "<font color=$font_color>";`
`print HOUTPUT "$unit{$macindex}{disks}{$instance}{channel}: ";`
`print HOUTPUT "$unit{$macindex}{disks}{$instance}{tmps} ";`
`print HOUTPUT "$unit{$macindex}{disks}{$instance}{model} ";`
`if (uc $unit{$macindex}{disks}{$instance}{errors} eq "NONE") {`
`print HOUTPUT "(" . uc $unit{$macindex}{disks}{$instance}{status} . ")";`
`}else{`
`print HOUTPUT "(" . uc $unit{$macindex}{disks}{$instance}{status} . ";" . $unit{$macindex}{disks}{$instance}{errors} . ")";`
`}`
`print HOUTPUT "</font>";`
`}`
`}`
`print HOUTPUT "</tr>\n";`
`}`
}
print HOUTPUT "</table>\n";
print HOUTPUT "<p><small>sample_webstats.pl v$_VERSION (" . getLibraryTitle() . " v" . getLibraryVersion() . ")\n";
print HOUTPUT "</body><html>\n";
close HOUTPUT;
exit(0);
#-------------------------------------------------------------
sub getAdminAddress{
`my $ipaddr = shift;`
`my $dnsname= "";`
`if ($dnsname eq "") {`
`((my $host, my $aliases, my $addrtype, my $len, my @addrlist) = gethostbyaddr(inet_aton($ipaddr), AF_INET));`
`$dnsname = $host;`
`}`
`if ($dnsname eq "") {`
`$dnsname = gethostbyaddr(inet_aton($ipaddr),AF_INET);`
`}`
`if ($dnsname eq "") {`
`$dnsname = $unit{$macindex}{hostname}{0};`
`}`
`if ($dnsname eq "") {`
`$dnsname = $ipaddr;`
`}`
`return $dnsname;`
}
Generated at 2010-03-14 17:29:34
| Server Information | Temperatures |
| NAS03 ReadyNAS NV O/S: RAIDiator v4.1.6 (Mon Jul 13 13:56:24 2009) MAC: 00:0D:A2:01:0D:F8 TCP: 192.168.0.53 FAN: 1875RPM (OK) BOOT: Normal MEM: N/A SYS: N/A UPT: N/A Volume C: RAID Level X, Redundant. 881199 MB (31%) of 2743 GB used (OK) |
0: 29.5C/85.1F System Core 1: 29C/84F Seagate ST31000528AS 931 GB (OK) 2: 32C/89F Seagate ST31000528AS 931 GB (OK) 3: 32C/89F Seagate ST31000528AS 931 GB (OK) 4: 31C/87F Seagate ST31000528AS 931 GB (OK) |
| NAS04 ReadyNAS NV O/S: RAIDiator v4.1.6 (Mon Jul 13 13:56:24 2009) MAC: 00:0D:A2:01:16:9B TCP: 192.168.0.54 FAN: 1562RPM (OK) BOOT: Normal MEM: N/A SYS: N/A UPT: N/A Volume C: RAID Level X, Redundant. 1278173 MB (45%) of 2743 GB used (OK) |
0: 31.5C/88.7F System Core 1: 32C/89F Seagate ST31000528AS 931 GB (OK) 2: 35C/95F SAMSUNG HD103UJ 931 GB (OK) 3: 33C/91F SAMSUNG HD103UJ 931 GB (OK) 4: 30C/86F SAMSUNG HD103UJ 931 GB (OK) |
| NAS05 ReadyNAS NV O/S: RAIDiator v4.1.6 (Mon Jul 13 13:56:24 2009) MAC: 00:0D:A2:01:23:9D TCP: 192.168.0.55 FAN: 2027RPM (OK) BOOT: Normal MEM: N/A SYS: N/A UPT: N/A Volume C: RAID Level X, Redundant. 2248480 MB (80%) of 2738 GB used (OK) |
0: 29.0C/84.2F System Core 1: 30C/86F SAMSUNG HD103UJ 931 GB (OK) 2: 34C/93F SAMSUNG HD103UJ 931 GB (OK) 3: 42C/107F Seagate ST31000340NS 931 GB (OK) 4: 36C/96F Seagate ST31000340NS 931 GB (OK) |
| NAS06 ReadyNAS NV+ O/S: RAIDiator v4.1.6 (Mon Jul 13 13:56:24 2009) MAC: 00:0D:A2:01:81:11 TCP: 192.168.0.56 FAN: 2083RPM (OK) BOOT: Normal MEM: N/A SYS: N/A UPT: N/A Volume C: RAID Level X, Redundant. 1266988 MB (45%) of 2743 GB used (OK) |
0: 28.0C/82.4F System Core 1: 26C/78F SAMSUNG HD103UJ 931 GB (OK) 2: 28C/82F SAMSUNG HD103UJ 931 GB (OK) 3: 30C/86F SAMSUNG HD103UJ 931 GB (OK) 4: 27C/80F SAMSUNG HD103UJ 931 GB (OK) |
| NAS07 ReadyNAS NV O/S: RAIDiator v4.1.6 (Mon Jul 13 13:56:24 2009) MAC: 00:0D:A2:01:18:17 TCP: 192.168.0.57 FAN: 2083RPM (OK) BOOT: Normal MEM: N/A SYS: N/A UPT: N/A Volume C: RAID Level X, Redundant. 1554916 MB (54%) of 2776 GB used (OK) |
0: 29.5C/85.1F System Core 1: 28C/82F SAMSUNG HD103UJ 931 GB (OK) 2: 35C/95F Seagate ST31000528AS 931 GB (OK) 3: 35C/95F Seagate ST31000528AS 931 GB (OK) 4: 30C/86F Seagate ST31000528AS 931 GB (OK) |
sample_webstats.pl v201003141246 (UPNP-MULTICAST NETGEAR ReadyNAS Perl Communications Library v201003141246)