$current_experiment_website_title, Hall A Homepage, halog FAQs+HOWTO\n
Make an Entry\n};
# print $fh "
#
#halog FAQ's+HOWTO\n";
# print $fh qq{
Make an Entry\n};
# print $fh "
/; $KEYWORD = "$`" if $tempkey =~ /
/; last; # } elsif ($line =~ /^
\n";
print OUTFILE $dayheader;
print OUTFILE_AUTO $dayheader;
print OUTFILE_AUTO2 $dayheader;
print OUTFILE_NOAUTO $dayheader;
print OUTFILE_NOAUTO2 $dayheader;
$oldday = $thisday;
}
#===================================================================================
# print out the logbook entry line
#===================================================================================
$entry_line = sprintf("%6s %s %s %-15.13s %s\n",
$html_archive . "/" . $html_filename, $ENUMBER, $html_date, $html_shift, $NAMWORD, $KEYWORD );
print OUTFILE $entry_line;
if($KEYWORD=~/$auto_regexp/o) {
print OUTFILE_AUTO $entry_line;
} elsif($KEYWORD=~/$auto_regexp2/o) {
print OUTFILE_NOAUTO $entry_line;
} elsif($KEYWORD=~/$auto_regexp3/o) {
print OUTFILE_AUTO2 $entry_line;
} elsif($KEYWORD=~/$auto_regexp4/o) {
print OUTFILE_AUTO2 $entry_line;
} elsif($KEYWORD=~/$auto_regexp5/o) {
print OUTFILE_AUTO2 $entry_line;
} else {
print OUTFILE_NOAUTO2 $entry_line;
}
# If the followuplist consists of a single followup, and that followup has an
# entry number just one more than $ENUMBER, then don't put it in the index.
# Tell how many followups there are by counting " ".
if($followuplist) {
# $followuplist =~ s/a>, $followuplist\n");
# Don't print out followups when there is just one and it is the very next entry.
if(index($followuplist," ") == rindex($followuplist," ")) {
$followuplist=~/> *(\d+) +/;
$nfollow = $1;
if($nfollow != ($ENUMBER+1)) {
print(OUTFILE "$followuplist");
if($KEYWORD=~/$auto_regexp/o) {
print(OUTFILE_AUTO "$followuplist");
} elsif ($KEYWORD=~/$auto_regexp2/o) {
print(OUTFILE_NOAUTO "$followuplist");
} elsif($KEYWORD=~/$auto_regexp3/o) {
print(OUTFILE_AUTO2 "$followuplist");
} elsif($KEYWORD=~/$auto_regexp4/o) {
print(OUTFILE_AUTO2 "$followuplist");
} elsif($KEYWORD=~/$auto_regexp5/o) {
print(OUTFILE_AUTO2 "$followuplist");
} else {
print(OUTFILE_NOAUTO2 "$followuplist");
}
}
} else {
print(OUTFILE "$followuplist");
if($KEYWORD=~/$auto_regexp/o) {
print(OUTFILE_AUTO "$followuplist");
} elsif($KEYWORD=~/$auto_regexp2/o) {
print(OUTFILE_NOAUTO "$followuplist");
} elsif($KEYWORD=~/$auto_regexp3/o) {
print(OUTFILE_AUTO2 "$followuplist");
} elsif($KEYWORD=~/$auto_regexp4/o) {
print(OUTFILE_AUTO2 "$followuplist");
} elsif($KEYWORD=~/$auto_regexp5/o) {
print(OUTFILE_AUTO2 "$followuplist");
} else {
print(OUTFILE_NOAUTO2 "$followuplist");
}
}
}
}
}
}
#===================================================================================
# at the end of the weekly listing put the monthly archive listings
#===================================================================================
chdir( $htmldir ) || die "dolog can't chdir to $htmldir: $!\n";
opendir(HTMLARCHIVE, $htmldir ) || die "dolog can't open HTMLDIR: $!\n";
#===================================================================================
# Read and reverse sort the filenames as usual
#===================================================================================
@html_array=reverse sort readdir( HTMLARCHIVE );
#===================================================================================
# Use only the filenames in the form xxxx_archive
#===================================================================================
#Begin Y2K Fix
@html_dirs_the1990s=reverse sort grep( /9..._archive$/, @html_array );
@html_dirs_newmillenium=reverse sort grep( /[0-8]..._archive$/, @html_array );
@html_dirs = (@html_dirs_newmillenium,@html_dirs_the1990s);
#End Y2K Fix
print OUTFILE " | %s %s Archive\n | \nEntire HALOG History | Beam Accounting Only | End of Run Only | All EXCEPT Automatic Entries | Start Run Only | \nSearch Entries | \n}, $html_archive."/logdir.html", @month[substr($html_archive, 2, 2 )], substr( $html_archive, 0, 2 ) ); print OUTFILE $entry_line; print OUTFILE_NOAUTO $entry_line; print OUTFILE_AUTO $entry_line; print OUTFILE_NOAUTO2 $entry_line; print OUTFILE_AUTO2 $entry_line; # Find the files that have been followed up open(LOGDIR,"<$htmldir$html_archive/logdir.html"); while(chomp($line=
\n";
print OUTFILE $dayheader;
print OUTFILE_AUTO $dayheader;
print OUTFILE_NOAUTO $dayheader;
print OUTFILE_AUTO2 $dayheader;
print OUTFILE_NOAUTO2 $dayheader;
$oldday = $thisday;
}
$html_date=substr( $html_filename, 2, 2 ) . "/" .
substr( $html_filename, 4, 2 ) . "/" .
substr( $html_filename, 0, 2 );
$html_shift=substr( $html_filename, 6, 2 ) . ":" .
substr( $html_filename, 8, 2 );# . ":" .
# substr( $html_filename, 10, 2 );
# open html file and retrieve the keyword and user name from the file
$KEYWORD="no_key";
$NAMWORD="no_name";
$ENUMBER="0";
$followuplist = "";
open(TMPFILE,"$html_filename$htmlSuffix") || die "dolog can't open TMPFILE: $!\n";
while(chomp($line = )){
if ($line =~ /keyword=/) {
$tempkey="$'" if $line =~ /keyword=/;
$KEYWORD = "$`" if $tempkey =~ /
/;
$KEYWORD = "$`" if $tempkey =~ //;
$KEYWORD = "$`" if $tempkey =~ /
/;
last;
# } elsif ($line =~ /^
Followups: (.*)<\/h4>/) {
} elsif ($line =~ /^Followups:<\/h4>(.*)$/) {
$followuplist = $1;
}
if ($line =~ /User name/) {
$tempkey="$'" if $line =~ /User name/;
$NAMWORD = "$`" if $tempkey =~ /<\/h4>/;
}
if ($line =~ /Entry number/) {
@enumber = split(' ',$line);
@enumber = split('<',$enumber[2]);
$ENUMBER = $enumber[0];
}
}
close(TMPFILE);
$entry_line=sprintf("
%6s %s %s %-15.13s %s\n",
$html_filename, $ENUMBER, $html_date, $html_shift, $NAMWORD, $KEYWORD);
print OUTFILE $entry_line;
if($KEYWORD=~/$auto_regexp/o) {
print OUTFILE_AUTO $entry_line;
} elsif($KEYWORD=~/$auto_regexp2/o) {
print OUTFILE_NOAUTO $entry_line;
} elsif($KEYWORD=~/$auto_regexp3/o) {
print OUTFILE_AUTO2 $entry_line;
} elsif($KEYWORD=~/$auto_regexp4/o) {
print OUTFILE_AUTO2 $entry_line;
} elsif($KEYWORD=~/$auto_regexp5/o) {
print OUTFILE_AUTO2 $entry_line;
} else {
print OUTFILE_NOAUTO2 $entry_line;
}
if($followuplist) {
# $followuplist =~ s/a>, $followuplist");
print(OUTFILE "$followuplist");
if($KEYWORD=~/$auto_regexp/o) {
print(OUTFILE_AUTO "$followuplist");
} elsif($KEYWORD=~/$auto_regexp2/o) {
print(OUTFILE_NOAUTO "$followuplist");
} elsif($KEYWORD=~/$auto_regexp3/o) {
print(OUTFILE_AUTO2 "$followuplist");
} elsif($KEYWORD=~/$auto_regexp4/o) {
print(OUTFILE_AUTO2 "$followuplist");
} elsif($KEYWORD=~/$auto_regexp5/o) {
print(OUTFILE_AUTO2 "$followuplist");
} else {
print(OUTFILE_NOAUTO2 "$followuplist");
}
}
}
#===================================================================================
# remove the logdir.html and replace it with the new one. Similar to the
# weekly listing.
#===================================================================================
unlink( "logdir.html" );
rename( "logdir.new.html", "logdir.html" );
unlink( "logdir_auto.html" );
rename( "logdir_auto.new.html", "logdir_auto.html" );
unlink( "logdir_noauto.html" );
rename( "logdir_noauto.new.html", "logdir_noauto.html" );
unlink( "logdir_auto2.html" );
rename( "logdir_auto2.new.html", "logdir_auto2.html" );
unlink( "logdir_noauto2.html" );
rename( "logdir_noauto2.new.html", "logdir_noauto2.html" );
system( "/bin/chmod 777 $logdir.html" );
system( "/bin/chown adaq $logdir.html" );
printf( OUTFILE "\n" );
printf( OUTFILE_AUTO "\n" );
printf( OUTFILE_NOAUTO "\n" );
printf( OUTFILE_AUTO2 "\n" );
printf( OUTFILE_NOAUTO2 "\n" );
&print_logdirtail(OUTFILE);
close( OUTFILE );
close( OUTFILE_AUTO );
close( OUTFILE_NOAUTO );
close( OUTFILE_AUTO2 );
close( OUTFILE_NOAUTO2 );
closedir(HTMLDIR);
}
#=**********************************************************************=#
#= =#
#= =#
#=**********************************************************************=#
sub update_html
{
#=======================================================================
# open the directory. If you can't then it doesn't exist so make it.
#=======================================================================
$archiveDir = substr( $root_filename, 0, 4 ) . $archiveSuffix . "/";
opendir( ARCHIVEDIR, $htmldir . $archiveDir ) || mkdir( $htmldir . $archiveDir, 0755 );
#=======================================================================
# check if the file is a followup to a previous entry
#=======================================================================
open(SCAN,"<$tmpdir$root_filename.html") || die "dolog can't open $!\n";
$html_date=substr( $root_filename, 2, 2 ) . "/" .
substr( $root_filename, 4, 2 ) . "/" .
substr( $root_filename, 0, 2 );
$html_shift=substr( $root_filename, 6, 2 ) . ":" .
substr( $root_filename, 8, 2 );# . ":" .
# substr( $root_filename, 10, 2 );
$KEYWORD="no_key";
$NAMWORD="no_name";
$ENUMBER="0";
$followsup_entry=0;
while(chomp($line = )){
# Need to take only first number shown here
if ($line =~ //) {
$followsup_entry=$1;
} elsif ($line =~ />Entry number (.*)/;
} elsif ($line =~ /keyword=/) {
$tempkey="$'" if $line =~ /keyword=/;
$KEYWORD = "$`" if $tempkey =~ /
/;
$KEYWORD = "$`" if $tempkey =~ //;
$KEYWORD = "$`" if $tempkey =~ /
/;
last;
}
}
close(SCAN);
if($followsup_entry) {
# print "Entry $entry is a followup to $followsup_entry\n";
$followup_files{$entry}="$archiveDir$root_filename.html";
$followed_ids{$entry}=$followsup_entry;
$followed_file{$followsup_entry}="x";
$followup_keywords{$entry}=sprintf("%6s %s %s %-15.13s %s",
$entry, $html_date, $html_shift,$NAMWORD,$KEYWORD);
}
#=======================================================================
# move html file into final html archive directory
#=======================================================================
system( "/bin/mv $tmpdir$root_filename.html $htmldir$archiveDir" );
# system( "/bin/mv $tmpdir$root_filename*.gif $htmldir$archiveDir" );
system( "/bin/mv $tmpdir$root_filename*.* $htmldir$archiveDir" );
system( "/bin/chmod 755 $htmldir$archiveDir/$root_filename*" );
# system( "/bin/chown webmgr $htmldir$archiveDir/$root_filename*" );
system( "/bin/chown adaq $htmldir$archiveDir/$root_filename*" );
#print( "--> Mark:: 3\n" );
}
#=**********************************************************************=#
#= =#
#= =#
#=**********************************************************************=#
sub reverse { $b cmp $a; }
sub print_logdirmonthhead {
my $fh = shift(@_);
my $type = shift(@_);
print $fh "
\n";
print $fh "\n";
print $fh "$LOGTITLE Logbook \n";
print $fh "\n";
printf( $fh "Jefferson Lab $LOGTITLE Logbook for %s %s - %s
\n",
@month[substr($html_archive, 2, 2 )],
substr( $html_archive, 0, 2 ),$type);
print $fh "\n";
# printf( $fh " Main INDEX\n");
print $fh " Main INDEX\n";
}
sub print_logdirhead {
my $fh = shift(@_);
my $type = shift(@_);
print $fh "\n";
print $fh "\n";
print $fh "$LOGTITLE Logbook \n";
print $fh "\n";
print $fh "Jefferson Lab $LOGTITLE Logbook - $type
\n";
print $fh "$extraheader_html";
print $fh "
\n";
# print $fh "\n";
# print $fh "
#
#halog FAQ's+HOWTO\n";
# print $fh qq{
Make an Entry\n};
# print $fh "
\n";
print $fh "Logbook:\n";
print $fh qq{\n};
print $fh qq{};
print $fh qq{Scrollable logbook \n};
print $fh qq{Beam Accounting Only \n};
print $fh qq{All EXCEPT Automatic Entries \n};
print $fh qq{Old Halog Archives \n};
print $fh qq{ \n};
print $fh qq{
Preview $logbook Entries \n};
print $fh qq{Run Ends Only \n};
print $fh qq{Run Starts Only \n};
print $fh qq{Search Entries \n};
print $fh qq{
\n};
print $fh qq{\n};
print $fh "Other Logbooks:\n";
print $fh qq{
\n};
print $fh qq{};
print $fh qq{Operations: ELOG \n};
print $fh qq{Cryo: CLOG \n};
print $fh qq{Software: SLOG \n};
print $fh qq{Pol Src: POLOG \n};
print $fh qq{ };
print $fh qq{FEL: FLOG \n};
print $fh qq{Hall-A: HALOG \n};
print $fh qq{Hall-B: HBLOG \n};
print $fh qq{Hall-C: HCLOG \n};
print $fh qq{
\n};
print $fh qq{\n};
print $fh qq{Other Links:\n};
print $fh qq{
\n};
print $fh qq{};
print $fh qq{ PD Shift Plans \n};
print $fh qq{ MCC Crew Chief Shift Summs \n};
print $fh qq{ Short Term Schedule \n};
print $fh qq{ };
print $fh qq{ Experiment Schedule \n};
print $fh qq{ CEBAF status screen \n};
print $fh qq{ Ops Documentation \n};
print $fh qq{
\n};
#printf( $fh " Scrollable $LOGTITLE\n");
#printf( $fh " Other Links:
\n" );
#printf( $fh " \n" );
#printf( $fh " hclog FAQ's+HOWTO \n" );
#printf( $fh "
Other Links
\n" );
#printf( $fh " CEBAF status screen \n" );
#printf( $fh "Experiment Schedule \n" );
#printf( $fh "MCC short term schedule \n" );
#printf( $fh qq{Beam Information (not yet operational) \n} );
#printf( $fh " \n" );
#printf( $fh "
\n" );
}
sub print_logdirtail {
my $fh = shift(@_);
print $fh "
\n";
print $fh "Earlier months at hallaweb.jlab.org/adaq (archive). ";
print $fh "The HALOG was generated by version $SCRIPT_VERSION
\n";
print $fh "If you have any comments or problems, please contact:
\n";
print $fh "Robert Michaels
\n";
print $fh "rom\@jlab.org
\n";
print $fh "(757) 269-7410\n";
print $fh "\n";
}