#!/usr/local/bin/perl -w # &readparse; print "Content-type: text/html\n\n"; $progdir = "."; $docdir="../../../doc/RUN_INFO/ldc2"; $cgibin="../../../cgi-bin/RUN_INFO/ldc2"; $runinfoplace = "../../../doc/RUN_INFO/ldc2"; $log="../../../doc/RUN_INFO/ldc2/RUN_LOG.txt"; $comments="../../../doc/RUN_INFO/ldc2/COMMENTS.txt"; $add_im="../../../doc/RUN_INFO/ldc2/ADDITIONAL_IMAGES.txt"; $currentRun="../../../doc/RUN_INFO/ldc2/CURRENTRUN.txt"; $html="../../../doc/RUN_INFO/ldc2/RUN_INFO_COMMENTS.html"; if (length($value[0])>2) { $redirectAddrComp = "$runinfoplace/RUN_INFO_COMMENTS.html#run$value[0]"; } else { $redirectAddrComp = "$runinfoplace/RUN_INFO_COMMENTS.html"; } open(OUT,">$html"); print OUT ' Run Info '; print OUT "Displaying all runs with comments. This page is not automatically updated. Go back to Run Info Page. Search for runs.
\n"; print OUT ''; close(OUT); open(COMMENTS,"<$comments"); @commentslines=; chomp(@commentslines); close(COMMENTS); $commlen = scalar(@commentslines); $processeddiv=0; open(LOG,"<$log"); @loglines=; chomp(@loglines); $nrLines=scalar(@loglines); close(LOG); $firstfound=0; open(OUT,">>$html"); for ($index=$nrLines-1; $index>=0; $index--) { $logline=$loglines[$index]; @value=split("___",$logline); $runNr=$value[0];$startTime=$value[1];$endTime=$value[2];$segCount=$value[3]; $fileSize=$value[4];$nrEvents=$value[5];$scanType=$value[6];$dacId=$value[7];$consist=$value[8]; if ($scanType eq "-1") {$scanType=" ";} if ($dacId eq "-1") {$dacId=" ";} if ($nrEvents>0) { if ($processeddiv==0) { $processeddiv-=5; print OUT "\n"; } if ($firstfound==0) { ### check if there is a new run $firstfound=1; open(CUR,"<$currentRun"); @curlines=; chomp(@curlines); close(CUR); if ($curlines[0]>$runNr) { # enable comments for the new run $processeddiv++; print OUT ""; print OUT ""; print OUT ""; print OUT "\n"; print OUT "\n"; } } ### #check if there is a comment for this run $foundcomment=0; FORLCHK: for ($i=$commlen-1;$i>=0;$i--) { @info = split("___",$commentslines[$i]); $commrun = $info[0]; $info[1]=~s/\r/
/g; if ($commrun==$runNr) { $foundcomment=1; last FORLCHK; } else { if ($commrun<$runNr) { last FORLCHK; } } } if ($foundcomment==1) { print OUT ""; print OUT ""; print OUT ""; print OUT ""; print OUT ""; print OUT ""; print OUT ""; print OUT ""; print OUT ""; print OUT ""; print OUT "\n"; $processeddiv++; print OUT "\n"; } } } print OUT '
RunNrStart TimeEnd TimeNr SegmentsFileSize [MB]Nr EventsScanTypeDacIdNr of Consistency Errors
$curlines[0]Running...
\n"; print OUT ""; print OUT ""; print OUT ""; print OUT ""; print OUT "$info[1]"; last FORLOOP2; } else { if ($commrun<$curlines[0]) { # print OUT " \n"; last FORLOOP2; } } } print OUT "
"; print OUT "
"; print OUT ""; print OUT ""; print OUT "
\n"; print OUT "		      "; FORLOOP2: for ($i=$commlen-1;$i>=0;$i--) { @info = split("___",$commentslines[$i]); $commrun = $info[0]; $info[1]=~s/\r/
/g; if ($commrun==$curlines[0]) { # print OUT "		Run $curlines[0]
"; print OUT ""; print OUT "$runNr$startTime$endTime$segCount$fileSize$nrEvents$scanType$dacId$consist
\n"; print OUT ""; print OUT ""; print OUT ""; FORL: for ($i=$commlen-1;$i>=0;$i--) { @info = split("___",$commentslines[$i]); $commrun = $info[0]; $info[1]=~s/\r/
/g; if ($commrun==$runNr) { # print OUT ""; print OUT ""; last FORL; } else { if ($commrun<$runNr) { # print OUT " \n"; print OUT ""; last FORL; } } } print OUT ""; print OUT ""; print OUT ""; print OUT "\n
"; print OUT "
"; print OUT ""; print OUT ""; print OUT ""; print OUT "
\n"; print OUT "		      Run $runNr"; print OUT "$info[1]"; print OUT "      "; print OUT "
"; print OUT ""; print OUT ""; print OUT "
\n"; # print OUT "
\n"; print OUT "
"; print OUT ""; print OUT ""; print OUT "
\n"; print OUT "		      "; $imcount=0; $vallen=scalar(@value); for ($i=9; $i<$vallen; $i++) { $tmp = ($runNr-$runNr%100)/100; $imagesdir = "images$tmp"; if ($nrLines-$index>20) { $valueX=$value[$i]; $valueX=~s/jpg/gif/; if (-e "$progdir/$imagesdir/$valueX") { $command="rm -f $progdir/$imagesdir/$valueX"; system($command); } } else { $value[$i]=~s/jpg/gif/; } $imcount++; print OUT "$value[$i]   "; if ($imcount%2 == 0) { print OUT "
\n"; } } print OUT "
\n"; open(ADD_IM,"<$add_im"); @add_imlines=; chomp(@add_imlines); close(ADD_IM); $add_imlen = scalar(@add_imlines); $addcount=0; FORL: for ($i=0;$i<$add_imlen;$i++) { # $tmp = ($runNr-$runNr%100)/100; $imagesdir = "additional_images$runNr"; @info = split("___",$add_imlines[$i]); $add_imrun = $info[0]; if ($add_imrun==$runNr) { $addcount++; print OUT "$info[1]   "; if ($addcount%2 == 0) { print OUT "
\n"; } } } print OUT "
'; close(OUT); print "\n\n"; print "\n"; print "\n"; print ""; print "Redirecting to the commented runs page.
\n"; print "\n\n"; #******** END BODY************************ # # EACH VALUE IN THE HTML FORM WILL BE CONTAINED IN # THE THE @VALUE ARRAY. sub readparse { read(STDIN,$user_string,$ENV{'CONTENT_LENGTH'}); if (length($ENV{'QUERY_STRING'})>0) {$user_string=$ENV{'QUERY_STRING'}}; $user_string =~ s/\+/ /g; @name_value_pairs = split(/&/,$user_string); foreach $name_value_pair (@name_value_pairs) { ($keyword,$value) = split(/=/,$name_value_pair); $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge; push(@value, "$value"); $user_data{$keyword} = $value; if ($value=~/