MARS Power OBC: Daily Plots for Currents, Voltages, and Sensors

#!/usr/bin/perl # #Quick script to read-through Mars power-obc/Data dir and generate html viewer ##################################################### $data_dir = "Plots"; opendir(DDIR,"$data_dir") || die "Unable to open data_dir [$data_dir]\n"; @flist = sort grep(/\.png$/,readdir(DDIR)); #Only want png files @curr_flist = grep(/load/,@flist); @vlt_flist = grep(/\.v12|\.v-12|\.v48|\.v5/,@flist); @sens_flist = grep(/temp|humid|press/,@flist); @switch_flist = grep(/switch/,@flist); #print "flist is @vlt_flist\n"; # #Create Top-Level Index.html # @v5_list = grep(/\.v5/,@flist); #Look at one variable to get a list of days $prev_date = ""; @month=('null','Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); open(OUT_HTML,">$data_dir/index.html"); print OUT_HTML <<"EndHTML"; MARS Power OBC: Daily Plots for Currents, Voltages, and Sensors

MARS Power OBC Measurements
Plots for Currents, Voltages, and Sensors

$month[$mm]:

$dd

View:

Raw Data

Real-Time Data

DCS Loads

DCS	Description
Load 3	Cisco MRA01-01
Load 4	Cisco MRA01-02
Load 5	OE West 75
Load 6	Cyclades

DCS	Description
Load 7	OE East 75
Load 8	OE East 98
Load 9	OE West 98
Load 10	West Optical Switch (NE)

DCS	Description
Load 11	West EDFA
Load 13	East Optical Switch (NE)
Load 14	East EDFA
Load 15	OBC A
Load 16	OBC B

MARS Power OBC: $label Daily Plot

PrevDay
NextDay

MARS Power OBC Daily Plot: $file

EndHTML #List other variables to plot print OUT_HTML "
"; $vlt_html = "$date.v-12.html"; print OUT_HTML "\n"; $sens_html = "$date.humid.humid.html"; print OUT_HTML "\n"; $switch_html = "$date.switch01.html"; print OUT_HTML "\n"; print OUT_HTML " \n"; print OUT_HTML "

Currents
\n"; foreach $file2 (@curr_flist) {($html_file2 = $file2) =~ s/png/html/; ($date2,$label2) = split('\.',$file2); next if ($date2 ne $date); if ($file2 eq "$file") {print OUT_HTML "$label \n";} else {print OUT_HTML "$label2 \n";} } print OUT_HTML "
Voltages
Sensors
Switches
Home

\n"; print OUT_HTML "

DCS	Description
Load 3	Cisco MRA01-01
Load 4	Cisco MRA01-02
Load 5	OE West 75
Load 6	Cyclades

DCS	Description
Load 7	OE East 75
Load 8	OE East 98
Load 9	OE West 98
Load 10	West Optical Switch (NE)

DCS	Description
Load 11	West EDFA
Load 13	East Optical Switch (NE)
Load 14	East EDFA
Load 15	OBC A
Load 16	OBC B

EndHTML close(OUT_HTML); } # #Generate HTML for switch States # foreach $file (@switch_flist) {($html_file = $file) =~ s/png/html/; ($date,$label) = split('\.',$file); open(OUT_HTML,">$data_dir/$html_file"); if (!defined($prev_day{$date})) {$PrevDay="$html_file";} else {$PrevDay = "$prev_day{$date}.$label.html";} if (!defined($next_day{$date})) {$NextDay="$html_file";} else {$NextDay = "$next_day{$date}.$label.html";} print OUT_HTML <<"EndHTML"; MARS Power OBC: $label Daily Plot \n"; print OUT_HTML <<"EndHTML";

PrevDay
NextDay

MARS Power OBC Daily Plot: $file

EndHTML #List other variables to plot print OUT_HTML "
"; $vlt_html = "$date.v-12.html"; print OUT_HTML "\n"; $curr_html = "$date.load01.html"; print OUT_HTML "\n"; $sens_html = "$date.humid.humid.html"; print OUT_HTML "\n"; print OUT_HTML " \n"; print OUT_HTML "

Switch State
\n"; foreach $file2 (@switch_flist) {($html_file2 = $file2) =~ s/png/html/; ($date2,$label2) = split('\.',$file2); next if ($date2 ne $date); if ($file2 eq "$file") {print OUT_HTML "$label \n";} else {print OUT_HTML "$label2 \n";} } print OUT_HTML "
Voltages
Currents
Sensors
Home

\n"; print OUT_HTML "

DCS	Description
Switch 3	Cisco MRA01-01
Switch 4	Cisco MRA01-02
Switch 5	OE West 75
Switch 6	Cyclades

DCS	Description
Switch 7	OE East 75
Switch 8	OE East 98
Switch 9	OE West 98
Switch 10	West Optical Switch (NE)

DCS	Description
Switch 11	West EDFA
Switch 13	East Optical Switch (NE)
Switch 14	East EDFA
Switch 15	OBC A
Switch 16	OBC B

EndHTML close(OUT_HTML); } # #Generate HTML for Voltages # foreach $file (@vlt_flist) {($html_file = $file) =~ s/png/html/; ($date,$label) = split('\.',$file); open(OUT_HTML,">$data_dir/$html_file"); if (!defined($prev_day{$date})) {$PrevDay="$html_file";} else {$PrevDay = "$prev_day{$date}.$label.html";} if (!defined($next_day{$date})) {$NextDay="$html_file";} else {$NextDay = "$next_day{$date}.$label.html";} print OUT_HTML <<"EndHTML"; MARS Power OBC: $label Daily Plot \n"; print OUT_HTML <<"EndHTML";

PrevDay
NextDay

MARS Power OBC Daily Plot: $file

EndHTML #List other variables to plot print OUT_HTML "
\n"; $curr_html = "$date.load01.html"; print OUT_HTML "\n"; $sens_html = "$date.humid.humid.html"; print OUT_HTML "\n"; $switch_html = "$date.switch01.html"; print OUT_HTML "\n"; print OUT_HTML " \n"; print OUT_HTML "

Voltages
\n"; foreach $file2 (@vlt_flist) {($html_file2 = $file2) =~ s/png/html/; ($date2,$label2) = split('\.',$file2); next if ($date2 ne $date); if ($file2 eq "$file") {print OUT_HTML "$label \n";} else {print OUT_HTML "$label2 \n";} } print OUT_HTML "
Currents
Sensors
Switches
Home

"; print OUT_HTML "

EndHTML close(OUT_HTML); } # #Generate HTML for Sensors - temp, humid, press # foreach $file (@sens_flist) {($html_file = $file) =~ s/png/html/; ($date,$type,$label) = split('\.',$file); open(OUT_HTML,">$data_dir/$html_file"); if (!defined($prev_day{$date})) {$PrevDay="$html_file";} else {$PrevDay = "$prev_day{$date}.$type.$label.html";} if (!defined($next_day{$date})) {$NextDay="$html_file";} else {$NextDay = "$next_day{$date}.$type.$label.html";} print OUT_HTML <<"EndHTML"; MARS Power OBC: $label Daily Plot \n"; print OUT_HTML <<"EndHTML";

PrevDay
NextDay

MARS Power OBC Daily Plot: $file

EndHTML #List other variables to plot print OUT_HTML "
"; $vlt_html = "$date.v-12.html"; print OUT_HTML "\n"; $curr_html = "$date.load01.html"; print OUT_HTML "\n"; $switch_html = "$date.switch01.html"; print OUT_HTML "\n"; print OUT_HTML " \n"; print OUT_HTML "

Sensors
\n"; foreach $file2 (@sens_flist) {($html_file2 = $file2) =~ s/png/html/; ($date2,$type,$label2) = split('\.',$file2); next if ($date2 ne $date); if ($file2 eq "$file") {print OUT_HTML "$type $label \n";} else {print OUT_HTML "$type $label2 \n";} } print OUT_HTML "
Voltages
Currents
Switches
Home

"; print OUT_HTML "

EndHTML close(OUT_HTML); } 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";} }

MARS Power OBC MeasurementsPlots for Currents, Voltages, and Sensors

MARS Power OBC Measurements
Plots for Currents, Voltages, and Sensors