#!/cvs/cds/bin/perl
# LIGO Project
#
# Perl Script. 40mWebStatus.pl
#
# Make an html page with status of 40meter IFO lab
#
$indexhtml = ">./40mWebStatus.html";
#print "D1 $indexhtml\n";
# open output file
open(HTML,$indexhtml)||die "cannot open file $html\n";
# start the target html file
print HTML "\n";
print HTML "\n";
print HTML "40 Meter Lab Status
\n";
$er = "/cvs/cds/gds/lho-dtt/gds/bin/ezcaread";
$chan="C1:Vac-CC1_status"; printData();
$chan="C1:PEM-count_date"; printData();
$chan="C1:PEM-count_time"; printData();
$chan="C1:Vac-P1_status"; printData();
$chan="C0:LOCAL-TIME"; printData();
$v1 = getValue("C0:DAQ-SC_fault"); print HTML "
c0daqsctrl = $v1";
$v1 = getValue("C0:DAQ-ADCU2k7_fault"); print HTML "
c0dcu1 = $v1";
$v1 = getValue("C0:DAQ-FB0_fault"); print HTML "
fb140m = $v1";
$v1 = getValue("C0:DAQ-FBS_fault"); print HTML "
br40m = $v1";
$v1 = getValue("C0:DAQ-EDCU_fault"); print HTML "
c0daqepics = $v1";
$v1 = getValue("C0:DAQ-DDCU2k2_fault"); print HTML "
c1asclinux = $v1";
$v1 = getValue("C1:PC-STATUS_1"); print HTML "
c1suslinuxpc1 = $v1";
$v1 = getValue("C1:PC-STATUS_2"); print HTML "
c1suslinuxpc2 = $v1";
$v1 = getValue("C1:ASC-ETM_PC_SYNC"); print HTML "
c1suslinuxpce = $v1";
$v1 = getValue("C0:DAQ-ADCU2k5_fault"); print HTML "
c1iscex = $v1";
$v1 = getValue("C0:DAQ-ADCU2k6_fault"); print HTML "
c1iscey = $v1";
$v1 = getValue("C0:DAQ-ADCU2k1_fault"); print HTML "
c1iovme = $v1";
$v1 = getValue("C0:DAQ-ADCU2k3_fault"); print HTML "
c1susvme = $v1";
$v1 = getValue("C0:DAQ-DDCU2k1_fault"); print HTML "
c1lsc = $v1";
$v1 = getValue("C0:DAQ-GDS_2k_LSC_EX_fault"); print HTML "
c0daqawg = $v1";
close(HTML);
exit;
sub printData(){
$erch1 = `$er $chan 2>&1`;
chomp $erch1;
($chname, $eqs, $val) = split(/ /,$erch1);
print HTML "
$erch1\n";
}
sub getValue {
$ch = @_;
$erch1 = `$er $ch 2>&1`;
($chname, $eqs, $val) = split(/ /,$erch1);
chomp $val;
return $val;
}