#!/usr/bin/perl # # status_buttons.pl - Steven Lerner 3/2005 # Woods Hole Oceanographic Institution # # Description: Displays mars status_buttons # # Usage: status_buttons.pl # # Output: html form to stdout # # History: # Date Who Description # ---- --- --------------------------------------------------- # 04/2005 SL Create # 02/2007 SL Added marsdcslib.pl and use marsdcs.cfg # 02/2007 ARM Added wiki link ############################################################################### require "flush.pl"; require "marsdcslib.pl"; %Cfg = &load_cfgfile("marsdcs.cfg"); print "Content-Type: text/html\n\n"; print "\n\n"; print "Mars DCS Status Buttons\n"; print "\n"; $sdir = "$Cfg{'ScriptDir'}/Status"; print <<"EndHTML"; EndHTML $timestamp = gmtimestamp(); $refresh_rate = 30; #seconds $fnt = ""; #=================================================================== #Get status to set colors and display latest status # # EthChan Traffic button $ethchan_status = `$sdir/ethchan_status.pl`; chomp($ethchan_status); if ($ethchan_status =~ /^1/) {$ethchan_color = "#00aa00";} else {$ethchan_color = "red"; $ethchan_status_msg = "onMouseOver=\"ddrivetip(\'$ethchan_status\','yellow',500)\"; onMouseout=\"hideddrivetip()\""; } # Science Traffic button $scitraf_status = `$sdir/scitraf_status.pl`; chomp($scitraf_status); if ($scitraf_status =~ /^1/) {$scitraf_color = "#00aa00";} else {$scitraf_color = "red"; $scitraf_status_msg = "onMouseOver=\"ddrivetip(\'$scitraf_status\','yellow',500)\"; onMouseout=\"hideddrivetip()\""; } # Gyda button $gyda_status = `$sdir/gyda_status.pl`; chomp($gyda_status); if ($gyda_status =~ /^1/) {$gyda_color = "#00aa00";} else {$gyda_color = "red"; $gyda_status_msg = "onMouseOver=\"ddrivetip(\'$gyda_status\','yellow',500)\"; onMouseout=\"hideddrivetip()\""; } # Node EDFA button $node_edfa_status = `$sdir/node_edfa_status.pl`; chomp($node_edfa_status); if ($node_edfa_status =~ /^1/) {$node_edfa_color = "#00aa00";} else {$node_edfa_color = "red"; $node_edfa_status_msg = "onMouseOver=\"ddrivetip(\'$node_edfa_status\','yellow',500)\"; onMouseout=\"hideddrivetip()\""; } # Shore EDFA button $shore_edfa_status = `$sdir/shore_edfa_status.pl`; chomp($shore_edfa_status); if ($shore_edfa_status =~ /^1/) {$shore_edfa_color = "#00aa00";} else {$shore_edfa_color = "red"; $shore_edfa_status_msg = "onMouseOver=\"ddrivetip(\'$shore_edfa_status\','yellow',500)\"; onMouseout=\"hideddrivetip()\""; } # # Commenting out power status and temperature status until they can be modified to use data from pmacs console # # Power Status button #$power_status = `$sdir/power_status.pl`; chomp($power_status); #if ($power_status =~ /^1/) {$power_color = "#00aa00";} # else {$power_color = "red"; # $power_status_msg = "onMouseOver=\"ddrivetip(\'$power_status\','yellow',500)\"; onMouseout=\"hideddrivetip()\""; # } # Temperature button #$temperature_status = `$sdir/temperature_status.pl`; chomp($temperature_status); #if ($temperature_status =~ /^1/) {$temperature_color = "#00aa00";} # else {$temperature_color = "red"; # $temperature_status_msg = "onMouseOver=\"ddrivetip(\'$temperature_status\','yellow',500)\"; onMouseout=\"hideddrivetip()\""; # } # Timing button $timing_status = `$sdir/timing_status.pl`; chomp($timing_status); if ($timing_status =~ /^1/) {$timing_color = "#00aa00";} else {$timing_color = "red"; $timing_status_msg = "onMouseOver=\"ddrivetip(\'$timing_status\','yellow',500)\"; onMouseout=\"hideddrivetip()\""; } # NTP button $ntp_status = `$sdir/ntp_status.pl`; chomp($ntp_status); if ($ntp_status =~ /^1/) {$ntp_color = "#00aa00";} else {$ntp_color = "red"; $ntp_status_msg = "onMouseOver=\"ddrivetip(\'$ntp_status\','yellow',500)\"; onMouseout=\"hideddrivetip()\""; } #=================================================================== $fnt1 = ""; print <<"EndHTML";
Real Time Status as of
$timestamp
$fnt1 EthChan Traffic   $fnt1 Science Traffic   $fnt1 NTP  
$fnt Power Status   $fnt Temperature   $fnt1 Gyda   $fnt1 Shore EDFA   $fnt1 Node EDFA   $fnt1 Timing  
MarsDCS Control:
$fnt1 Ethernet Control   $fnt1 Display Ethernet   $fnt1 Display Mra01   $fnt1 Display RA24e   $fnt1 Display Test   $fnt1 OBC Timing  
Network Management:
$fnt1 StatusDetail   $fnt1 StatusMap   $fnt1 Nagios   $fnt1 Cisco Cmds   $fnt1 CiscoLog $fnt Historical Plots
DCS Documentation:
$fnt User Guide $fnt Manuals $fnt Notes $fnt Wiki
View: Camera1   Camera2  
EndHTML exit; # # Subroutines Follow # sub gmtimestamp {local($no_gmtlabel) = $_[0]; local($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime; # zero fill hour,min,sec and month if ($sec < 10) {$sec = "0$sec";} if ($min < 10) {$min = "0$min";} if ($hour < 10) {$hour = "0$hour";} $mon += 1; #from gmtime defined 0-11, make it 1-12 if ($mon < 10) {$mon = "0$mon";} if ($mday < 10) {$mday = "0$mday";} #make year 4-digits - Note: Year is years since 1900 $year += 1900; if ($no_gmtlabel) {return "$year/$mon/$mday $hour:$min:$sec";} else {return "$year/$mon/$mday $hour:$min:$sec GMT";} }