PERL tools

---

The following PERL subroutines in the CGI directory perform various utility tasks:

• $CGI/DecodeTapeLabel
  decodes the magnetic tape header of a skim1 tape to read the internal label

• $CGI/DecodeTapeRunNumber
  reads the run number from the header of a pass1 tape

• $CGI/CheckCopyLog $tapeName
  checks the OUTPUT process log file for tape $tapeName against the Database; if successfull, it deletes all that tape data from disk and resets the corresponding output stream

• $CGI/CheckSkimTape $tapeName $firstFile(=0)
  • decodes the magnetic tape header
  • spooles back the magnetic tape one file at a time to /axp/machine/wrk1/ltm/e831
  • runs $CGI/CheckCopyLog

• $CGI/CheckJob $jobName ( =$runNumber.$fileNumber )
  • checks the log files of a job completed job
  • possibly, updates its status from spooledToDisk to analized in the InputFileTable and insert entries in OutputFileTable

• $CGI/PurgeDoubleLines $fileName
  purges any double lines from text file $fileName;
  the original file is kep as $fileName-old

• $CGI/PurgeTable $tableName
  purges any double entry from database table $tableName; two entries are considered identical if all fields are the same, except possibly the date

• $CGI/CheckOutputTapeTable $runNumber
  Queries OutputFileTable and sums the events and size of all output files of each superstream (this information can be compared to that returned by a simple query of OutputTapeTable). Also, checks the $OUTPUT/data/skm$i directory and sums the sizes of all output files from that particular run number.

• $CGI/TableToArchive $runNumber
  Transfer all data for run $runNumber from the small Tables to the big Archives. Data from the big tables is deleted and a backup file in $OUTPUT/database is written.

• $CGI/InsertRunData $runNumber
  Transfer all data for run $runNumber from the backup file in $OUTPUT/database to the big Archives

• $CGI/MakeLabels $firstNumber
  produces a postscript file per stream in /usr/users/e831, each with 16 labels starting at $firstNumber (Note: the first digit -i.e. the stream number- MUST NOT BE INCLUDED in $firstNumber)