#!/usr/bin/perl
#
# power_on_dcs.pl - Steven Lerner 6/2005
#                   Woods Hole Oceanographic Institution
#
#       Description: Quick script that turns on ALL dcs loads 
#                    via mars power controller serial port (obc)
#
#       Assumptions: Reguires that the serial connection to power ctrl
#                    is already logged-in (ie; open minicom session,
#                    log-in, and then quit w/o reset via ctl-a q)
#                    
#       Usage: power_on_dcs.pl [off]
#
#       Output: writes log to Data/date.pwron.dat
#
# History:
#       Date       Who    Description
#       ----       ---    ---------------------------------------------------
#      06/20/2005  SL     Create from get_power_data.pl
#      06/24/2005  SL     Added killing and starting get_power_data.pl
#################################################################################
require "getopts.pl";
require "flush.pl";
require "ctime.pl";
require "timelocal.pl";

$VERSION = "v1.0";
$DEBUG = 0;

#parameters
$port = "/dev/ttyS0"; #Need to make sure comm params already setup
                      #and for now, pwr-ctl needs to be logged-in

$POWER_ON = 1;

if ($#ARGV >= 0 && $ARGV[0] eq "off") 
   {print "Turn OFF DCS Loads\n"; 
    print "Confirm? ";$ans=<STDIN>; chomp($ans);
    if ($ans ne "y" && $ans ne "yes") {exit;}
    $POWER_ON = 0;
    }

$sleep_amt = 1;
$prev_datafile = "";

#Kill get_power_data.pl just in case
system("killall -q get_power_data.pl");


#open com port
open(COM,"+<$port") || die "Unable to open serial port: $port\n";

#setup auto-flush
select((select($port), $| = 1)[0]);

#Set labels
$load_label[3]="Cisco MRA01-01";
$load_label[4]="Cisco MRA01-02";
$load_label[5]="OE West 75";
$load_label[6]="Cyclades";
$load_label[7]="OE East 75";
$load_label[8]="OE East 98";
$load_label[9]="OE West 98";
$load_label[10]="West NE Optical Switch";
$load_label[11]="West EDFA";
$load_label[13]="East NE Optical Switch";
$load_label[14]="East EDFA";

if ($POWER_ON) {$power_on_str = "ON";}
          else {$power_on_str = "OFF";}

$timestamp = gmtimestamp(1);
print     "\n\n$timestamp ============= Powering $power_on_str MARS DCS Loads =============\n";

# Loop for each DCS load - turn load on, look at current...
foreach $load (3,4,5,6,7,8,9,10,11,13,14)
  {$tag = gmtimestamp_file();
   $datafile = "Data/$tag";
   if ($datafile ne "$prev_datafile")
     {#Open power-on data files
      open(RAW,">>$datafile.pwron.dat") || die "Unable to open data file: $datafile.pwron.dat\n";
      print RAW "\n\n$timestamp ============= Powering $power_on_str MARS DCS Loads =============\n";
      }
   $prev_datafile = "$datafile";


   #set Load on
   $timestamp = gmtimestamp(1);
   print "Powering $load_label[$load] [Load $load]\n";
   print "\ttime=$timestamp\n";
   print "\tsets $load $POWER_ON\n";
   print RAW "Powering $load_label[$load] [Load $load]\n";
   print RAW "\ttime=$timestamp\n";
   print RAW "\tsets $load $POWER_ON\n";
   $cmd = "sets $load $POWER_ON\n";
   print "Sending $cmd to $port\n" if $DEBUG;
   print COM "$cmd"; flush(COM);
   while ($line = <COM>)
     {last if ($line =~ /load/);
      }

   $cnt = 0;

   #Get Current value for load
   for ($i=0;$i<3;$i++) {
   $cmd = "getc $load\n";
   print "Sending $cmd to $port\n" if $DEBUG;
   print COM "$cmd"; flush(COM);
   while ($line = <COM>)
     {next if ($line =~ /getc/ || $line !~ /load/);
      if ($DEBUG) {print "\n[$line]"; flush(STDOUT);}
      if ($cnt++ == 1) {$timestamp = gmtimestamp(1);
                        print "time=$timestamp\n" if ($DEBUG);
                        print RAW "\ttime=$timestamp\n";
                        flush(RAW);
                        }
      if ($line =~ /load/) {$line =~ s/\> //;
                            print RAW "\t$line"; flush(RAW);
                            print "\t$line"; flush(STDOUT);
                            last;
			    }
      }
   sleep 1;
   }


   print "Sleeping $sleep_amt...\n" if ($DEBUG);
   sleep $sleep_amt;

   } #end for-each load



   #Get State values
   $timestamp = gmtimestamp(1);
   print "\n\n--------------Switch States ----------------\n";
   print "\ntime=$timestamp\n";
   print RAW "\n\n--------------Switch States ----------------\n";
   print RAW "\ntime=$timestamp\n";
   $cmd = "gets 0\n";
   print "Sending $cmd to $port\n" if $DEBUG;
   print COM "$cmd"; flush(COM);
   $cnt = 0;
   while ($line = <COM>)
     {next if ($line !~ /load/);
      if ($cnt++ == 1) {$timestamp = gmtimestamp(1);
                        print "time=$timestamp\n" if ($DEBUG);
                        print RAW "\ttime=$timestamp\n";
                        flush(RAW);
                        }
      if ($line =~ /load/) {$line =~ s/\> //;
                            print RAW "\t$line"; flush(RAW);
                            print "$line"; flush(STDOUT);
                            }
      #last if ($line =~ /^>/);
      last if ($line =~ /load16/);
      }
   print "------------------------------------------------\n";
   print RAW "------------------------------------------------\n";


print "\n\nStarting get_power_data.pl...\n";
system("./start");

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";}
}




sub gmtimestamp_file {
        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;
        return "$year$mon$mday";
}