#!/usr/bin/perl
###############################################################################
#
# power_login - Steven Lerner 8/2005
#               Woods Hole Oceanographic Institution
#
# Description: Quick script to interface to Node Power Controller (NPC)
#              via sail/xbar switch. User should press <cr> until
#              either cmd prompt or login prompt. If cmd prompt, 
#              press ctl-c; if login prompt, enter username/passwd
#              and once logged-in, press ctl-c
#
# Usage: power_login
#
# History:
#       Date       Who      Description
#       ----       ---      ---------------------------------------------------
#    09/16/2005    SL       Create
###############################################################################
require "getopts.pl";
require "flush.pl";

$VERSION = "v1.1";

$sail = "/home/stevel/sail_driver/sail";

system("killall -q get_power_data_sail.pl");

###########Connect via sail_driver ##############
   $|=1;
   exec "$sail", "-s#S01A", "-x7";