#!/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="C1:SUS-MC3_ULPD_VAR"; printData();
$chan="C1:SUS-MC3_LLPD_VAR"; printData();
$chan="C1:SUS-MC3_SDPD_VAR"; printData();
$chan="C0:LOCAL-TIME"; printData();
close(HTML);
sub printData(){
$erch1 = `$er $chan 2>&1`;
print HTML "
$erch1";
}