#!/usr/bin/perl
# Jaideep Singh
# October 2003
#INPUT: a tab seperated file with the run numbers and the corresponding file name of the run summary halog html file
#in this case the file is called "right.end"
#
#if your run summary file has a different format, then you'll need to modify this file to match the format that your file has
use strict "subs";

#checking to see if EPICS data is corrupt
sub checkval 
	{ $in = $_[0];
	  if ($in =~ /\!\!WARNING\!\! The executable \"caRepeater\" couldnt be located because of errno \= \"No such file or directory\" You may need to modify your PATH environment variable\. Creating CA repeater with fork\(\) system call\. Repeater will inherit parents process name and resources\. Duplicate resource consumption may occur\.\s*(.*)$/)
		{$in = $1};
	  if ((!($in))&&(!($in =~ /^0$/)))
		{$out = "\?"}
	  else
		{$out = $in};
#	  print "the cv is $in\n";
	  return $out; 
	};
#subroutine to calculate the time in seconds from a timestamp
#note that the @mon2day array is true only for 2003
sub jtime
	{ ($sec, $min, $hr, $day, $mon) =  @_;
#	  (31,28,31,30,31,30,31,31,30,31,30,31);
	  @mon2day = (0,31,59,90,120,151,181,212,243,273,304,334);
	  $totsec = $sec + 60*($min + 60*($hr + 24*($day -1 + $mon2day[$mon-1])));
	  return $totsec;
	};

#setting up a month name to number hash table
%mon2num = (
	   "January"   => "01",
	   "February"  => "02",
	   "March"     => "03",
	   "April"     => "04",
	   "May"       => "05",
	   "June"      => "06",
	   "July"      => "07",
	   "August"    => "08",
	   "September" => "09",
	   "October"   => "10",
	   "November"  => "11",
	   "December"  => "12",
	   "Jan" => "01",
	   "Feb" => "02",
	   "Mar" => "03",
	   "Apr" => "04",
	   "May" => "05",
	   "Jun" => "06",
	   "Jul" => "07",
	   "Aug" => "08",
	   "Sep" => "09",
	   "Oct" => "10",
	   "Nov" => "11",
	   "Dec" => "12"
	   );

#counting the number of run summary files for each run (sometimes there are multiple summaries)
@recount = (0) x 5000;
my @rend;
open(RUNLIST,"<right.end");
while(<RUNLIST>)
        { /(\d+)\t(.*)/;
          $rend[$1][$recount[$1]] = $2;
          $recount[$1]++;
        };
close(RUNLIST);

#defining the reference time as April 20
my $tzero = jtime(0,0,0,20,4);
my $firstrun = 999; 
my $lastrun  = 4218;
#number of variables to be recorded
my $numdata = 284;

#looping over every run number from $firstrun to $lastrun
open(RUNOUT,">rightend.raw");
print RUNOUT "<pre>\n";
RUN: for ($runnum=$firstrun;$runnum<=$lastrun;$runnum++) 
{for ($subrun=0;$subrun < $recount[$runnum];$subrun++)
  {
  open(TESTFILE,"<$rend[$runnum][$subrun]");
  $ld1 = $rd1 = $tiefa = $getcomm = 0;
  @data = ("\?") x $numdata;
#looping over ever line in the file
  LINE: while (<TESTFILE>) 
	{
	$data[0] = $runnum;
	if (/User name ([^<]*)</) 
		{ $data[9] = checkval($1); 
		  next LINE };

	if (/Log entry time (\d+)\:(\d+)\:(\d+) on (\w+)\s*(\d+), (\d+)</) 
		{ $data[1] = checkval($1); 
		  $data[2] = checkval($2); 
		  $data[3] = checkval($3); 
		  $data[4] = checkval($mon2num{$4}); 
		  $data[5] = checkval($5); 
		  $data[6] = checkval($6); 
		  next LINE };

	if (/Entry number (\d+)</) 
		{ $data[7] = checkval($1); 
		  next LINE };

	if (/keyword=([^_]*)_\D+_(\d+)/) 
		{ $data[8] = checkval($1);
		  $data[105] = checkval($2);
		  next LINE };

	if (/Run_type=(.*),beam_energy=(.*),beam_halfwaveplate=(.*),beam_raster=(.*),comment_text=(.*),daq_mode=(.*),kin_name=(.*),leftarm_p=(.*),leftarm_theta=(.*),rightarm_p=(.*),rightarm_theta=(.*),target_halfwaveplate=(.*),target_name=(.*),target_polarization=(.*),target_type=(.*)/) 
		{ $data[10] = checkval($1); 
		  $data[11] = checkval($2);
		  $data[12] = checkval($3);
		  $data[13] = checkval($4);
		  $data[14] = checkval($5);
		  $data[15] = checkval($6);
		  $data[16] = checkval($7);
		  $data[17] = checkval($8);
		  $data[18] = checkval($9);
		  $data[19] = checkval($10);
		  $data[20] = checkval($11);
		  $data[21] = checkval($12);
		  $data[22] = checkval($13);
		  $data[23] = checkval($14);
		  $data[24] = checkval($15);
		  $getcomm = 1;
		  next LINE };
	if ($getcomm) {/([^\n]*)/; $data[282] = $1; $getcomm = 0; next LINE};
	if (/PRESCALE FACTORS:ps1=(\d+).*ps2=(\d+).*ps3=(\d+).*ps4=(\d+).*ps5=(\d+).*ps6=(\d+).*ps7=(\d+).*ps8=(\d+)/) 
		{ $data[25] = checkval($1);
		 $data[26] = checkval($2);
		 $data[27] = checkval($3);
		 $data[28] = checkval($4);
		 $data[29] = checkval($5);
		 $data[30] = checkval($6);
		 $data[31] = checkval($7);
		 $data[32] = checkval($8);
		  next LINE};
	if (/EVENTS\[0\]\:\s*(\d+).*\[\+\]\:\s*(\d+).*\[\-\]\:\s*(\d+)/) 
		{ $data[33] = checkval($1);
		  $data[34] = checkval($2);
		  $data[35] = checkval($3);
		  next LINE};
	if (/TIME  \[0\]\:\s*(.*) mins.*\[\+\]\:\s*(.*) mins.*\[\-\]\:\s*(.*) mins/) 
		{ $data[36] = checkval($1);
		  $data[37] = checkval($2);
		  $data[38] = checkval($3);
		  next LINE};
	if (/LIVE  \[0\]\:\s*(.*)\%.*\[\+\]\:\s*(.*)\%.*\[\-\]\:\s*(.*)\%/)
		{ $data[39] = checkval($1);
		  $data[40] = checkval($2);
		  $data[41] = checkval($3);
		  next LINE};
#	(/TRIGGER RATES:   PRES/REAL/)
	if (/T1\[0\] \:\s*(.*)\/(.*) Hz\s*T2\[0\] \:\s*(.*)\/(.*) Hz\s*T8\[0\] \:\s*(.*)\/(.*) Hz/) 
		{ $data[42] = checkval($1);
		  $data[43] = checkval($2);
		  $data[44] = checkval($3);
		  $data[45] = checkval($4);
		  $data[46] = checkval($5);
		  $data[47] = checkval($6);
		  next LINE};
	if (/T1\[\+\] \:\s*(.*)\/(.*) Hz\s*T2\[\+\] \:\s*(.*)\/(.*) Hz\s*T8\[\+\] \:\s*(.*)\/(.*) Hz/) 
		{ $data[48] = checkval($1);
		  $data[49] = checkval($2);
		  $data[50] = checkval($3);
		  $data[51] = checkval($4);
		  $data[52] = checkval($5);
		  $data[53] = checkval($6);
		  next LINE};
	if (/T1\[\-\] \:\s*(.*)\/(.*) Hz\s*T2\[\-\] \:\s*(.*)\/(.*) Hz\s*T8\[\-\] \:\s*(.*)\/(.*) Hz/) 
		{ $data[54] = checkval($1);
		  $data[55] = checkval($2);
		  $data[56] = checkval($3);
		  $data[57] = checkval($4);
		  $data[58] = checkval($5);
		  $data[59] = checkval($6);
		  next LINE};
#	(/TRIGGER TOTALS:   PRES/REAL/)
	if (/T1\[0\] \:\s*(.*)\/(.*)\s*T2\[0\] \:\s*(.*)\/(.*)\s*T8\[0\] \:\s*(.*)\/(.*)/) 
		{ $data[60] = checkval($1);
		  $data[61] = checkval($2);
		  $data[62] = checkval($3);
		  $data[63] = checkval($4);
		  $data[64] = checkval($5);
		  $data[65] = checkval($6);
		  next LINE};
	if (/T1\[\+\] \:\s*(.*)\/(.*)\s*T2\[\+\] \:\s*(.*)\/(.*)\s*T8\[\+\] \:\s*(.*)\/(.*)/) 
		{ $data[66] = checkval($1);
		  $data[67] = checkval($2);
		  $data[68] = checkval($3);
		  $data[69] = checkval($4);
		  $data[70] = checkval($5);
		  $data[71] = checkval($6);
		  next LINE};
	if (/T1\[\-\] \:\s*(.*)\/(.*)\s*T2\[\-\] \:\s*(.*)\/(.*)\s*T8\[\-\] \:\s*(.*)\/(.*)/) 
		{ $data[72] = checkval($1);
		  $data[73] = checkval($2);
		  $data[74] = checkval($3);
		  $data[75] = checkval($4);
		  $data[76] = checkval($5);
		  $data[77] = checkval($6);
		  next LINE};
#	(/AVERAGE CURRENT/)
	if (/BCM.*\:\s*(.*) uA\s*BCM.*\:\s*(.*) uA\s*BCM.*\:\s*(.*) uA/) 
		{ $data[78] = checkval($1); 
		  $data[79] = checkval($2); 
	 	  $data[80] = checkval($3); 
		  next LINE};
#	(/APPROXIMATE CURRENT ASYMMETRIES/)
	if (/BCM u1 \:\s*(.*) ppm\s*BCM u3 \:\s*(.*) ppm\s*BCM u10\:\s*(.*) ppm/) 
		{ $data[81] = checkval($1); 
		  $data[82] = checkval($2); 
	 	  $data[83] = checkval($3); 
		  next LINE};
	if (/BCM d1 \:\s*(.*) ppm\s*BCM d3 \:\s*(.*) ppm\s*BCM d10\:\s*(.*) ppm/) 
		{ $data[84] = checkval($1); 
		  $data[85] = checkval($2); 
	 	  $data[86] = checkval($3); 
		  next LINE};
#	(/APPROXIMATE BCM CHARGES (C)/) 
	if (/BCM u1 \[0\]\:\s*(.*)\s*BCM u3 \[0\]\:\s*(.*)\s*BCM u10\[0\]\:\s*(.*)\s*/) 
		{ $data[87] = checkval($1); 
		  $data[88] = checkval($2); 
	 	  $data[89] = checkval($3); 
		  next LINE};
	if (/BCM u1 \[\+\]\:\s*(.*)\s*BCM u3 \[\+\]\:\s*(.*)\s*BCM u10\[\+\]\:\s*(.*)\s*/) 
		{ $data[90] = checkval($1); 
		  $data[91] = checkval($2); 
	 	  $data[92] = checkval($3); 
		  next LINE};
	if (/BCM u1 \[\-\]\:\s*(.*)\s*BCM u3 \[\-\]\:\s*(.*)\s*BCM u10\[\-\]\:\s*(.*)\s*/) 
		{ $data[93] = checkval($1); 
		  $data[94] = checkval($2); 
	 	  $data[95] = checkval($3); 
		  next LINE};
	if (/BCM d1 \[0\]\:\s*(.*)\s*BCM d3 \[0\]\:\s*(.*)\s*BCM d10\[0\]\:\s*(.*)\s*/) 
		{ $data[96] = checkval($1); 
		  $data[97] = checkval($2); 
	 	  $data[98] = checkval($3); 
		  next LINE};
	if (/BCM d1 \[\+\]\:\s*(.*)\s*BCM d3 \[\+\]\:\s*(.*)\s*BCM d10\[\+\]\:\s*(.*)\s*/) 
		{ $data[99] = checkval($1); 
		  $data[100] = checkval($2); 
	 	  $data[101] = checkval($3); 
		  next LINE};
	if (/BCM d1 \[\-\]\:\s*(.*)\s*BCM d3 \[\-\]\:\s*(.*)\s*BCM d10\[\-\]\:\s*(.*)\s*/) 
		{ $data[102] = checkval($1); 
		  $data[103] = checkval($2); 
	 	  $data[104] = checkval($3); 
		  next LINE};
# EDT = eastern standard time
# EST = eastern daylight savings time
	if (/End\-of\-run EPICS data for Run Number (\d+) at \w+ (\w+)\s*(\d+) (\d+):(\d+):(\d+) E[SD]T (\d+)/) 
		{$data[0] = checkval($1); 
		$data[106] = checkval($mon2num{$2}); 
		$data[107] = checkval($3); 
		$data[108] = checkval($4); 
		$data[109] = checkval($5); 
		$data[110] = checkval($6); 
		$data[111] = checkval($7); 
		next LINE};
	if (/Left Arm D1 momentum \:\s*(.*)/) {$ld1++; if ($ld1==1) {$k=112} else {$k=277}; $data[$k] = checkval($1);  next LINE};
	if (/Left Arm arm angle \:\s*(.*)/) {$data[113] = checkval($1);  next LINE};
	if (/Right Arm D1 momentum \:\s*(.*)/) {$rd1++; if ($rd1==1) {$k=114} else {$k=278}; $data[$k] = checkval($1);  next LINE};
	if (/Right Arm arm angle \:\s*(.*)/) {$data[115] = checkval($1);  next LINE};
	if (/HALLA\:p \:\s*(.*)/) {$data[116] = checkval($1);  next LINE};
	if (/HALLA\:dpp \:\s*(.*)/) {$data[117] = checkval($1);  next LINE};
	if (/Tiefenbach Hall A energy \:\s*(.*)/) {$tiefa++; if ($tiefa==1) {$k=118} else {$k=279}; $data[$k] = checkval($1);  next LINE};
	if (/Left Arm arm mispointing \(HPT\) \:\s*(.*)/) {$data[119] = checkval($1);  next LINE};
	if (/Right Arm arm mispointing \(HPT\) \:\s*(.*)/) {$data[120] = checkval($1);  next LINE};
	if (/Left Arm Top VDC Current \:\s*(.*)/) {$data[121] = checkval($1);  next LINE};
	if (/Left Arm Bottom VDC Current \:\s*(.*)/) {$data[122] = checkval($1);  next LINE};
	if (/Right Arm Top VDC Current \:\s*(.*)/) {$data[123] = checkval($1);  next LINE};
	if (/Right Arm Bottom VDC Current \:\s*(.*)/) {$data[124] = checkval($1);  next LINE};
	if (/Right septum set current \:\s*(.*)/) {$data[125] = checkval($1);  next LINE};
	if (/Right septum current readback \:\s*(.*)/) {$data[126] = checkval($1);  next LINE};
	if (/Left Arm Q1 power supply current \:\s*(.*)/) {$data[127] = checkval($1);  next LINE};
	if (/Left Arm Q1 momentum \:\s*(.*)/) {$data[128] = checkval($1);  next LINE};
	if (/Left Arm Q1 gauss meter \:\s*(.*)/) {$data[129] = checkval($1);  next LINE};
	if (/Left Arm Q1 power supply polarity \:\s*(.*)/) {$data[130] = checkval($1);  next LINE};
	if (/Left Arm Q2 power supply current \:\s*(.*)/) {$data[131] = checkval($1);  next LINE};
	if (/Left Arm Q2 momentum \:\s*(.*)/) {$data[132] = checkval($1);  next LINE};
	if (/Left Arm Q2 gauss meter \:\s*(.*)/) {$data[133] = checkval($1);  next LINE};
	if (/Left Arm Q2 power supply polarity \:\s*(.*)/) {$data[134] = checkval($1);  next LINE};
	if (/Left Arm D1 power supply current \:\s*(.*)/) {$data[135] = checkval($1);  next LINE};
	if (/Left Arm D1 NMR \:\s*(.*)/) {$data[136] = checkval($1);  next LINE};
	if (/Left Arm Q3 power supply current \:\s*(.*)/) {$data[137] = checkval($1);  next LINE};
	if (/Left Arm Q3 momentum \:\s*(.*)/) {$data[138] = checkval($1);  next LINE};
	if (/Left Arm Q3 gauss meter \:\s*(.*)/) {$data[139] = checkval($1);  next LINE};
	if (/Left Arm Q3 power supply polarity \:\s*(.*)/) {$data[140] = checkval($1);  next LINE};
	if (/Right Arm Q1 power supply current \:\s*(.*)/) {$data[141] = checkval($1);  next LINE};
	if (/Right Arm Q1 momentum \:\s*(.*)/) {$data[142] = checkval($1);  next LINE};
	if (/Right Arm Q1 gauss meter \:\s*(.*)/) {$data[143] = checkval($1);  next LINE};
	if (/Right Arm Q1 power supply polarity \:\s*(.*)/) {$data[144] = checkval($1);  next LINE};
	if (/Right Arm Q2 power supply current \:\s*(.*)/) {$data[145] = checkval($1);  next LINE};
	if (/Right Arm Q2 momentum \:\s*(.*)/) {$data[146] = checkval($1);  next LINE};
	if (/Right Arm Q2 gauss meter \:\s*(.*)/) {$data[147] = checkval($1);  next LINE};
	if (/Right Arm Q2 power supply polarity \:\s*(.*)/) {$data[148] = checkval($1);  next LINE};
	if (/Right Arm D1 power supply current \:\s*(.*)/) {$data[149] = checkval($1);  next LINE};
	if (/Right Arm D1 NMR \:\s*(.*)/) {$data[150] = checkval($1);  next LINE};
	if (/Right Arm Q3 power supply current \:\s*(.*)/) {$data[151] = checkval($1);  next LINE};
	if (/Right Arm Q3 momentum \:\s*(.*)/) {$data[152] = checkval($1);  next LINE};
	if (/Right Arm Q3 gauss meter \:\s*(.*)/) {$data[153] = checkval($1);  next LINE};
	if (/Right Arm Q3 power supply polarity \:\s*(.*)/) {$data[154] = checkval($1);  next LINE};
	if (/Average current of the two cavities \:\s*(.*)/) {$data[155] = checkval($1);  next LINE};
	if (/Current on Unser monitor \:\s*(.*)/) {$data[156] = checkval($1);  next LINE};
	if (/Current on Upstream bcm \:\s*(.*)/) {$data[157] = checkval($1);  next LINE};
	if (/Current on Downstream bcm \:\s*(.*)/) {$data[158] = checkval($1);  next LINE};
	if (/Upstream Cavity Coefficient \:\s*(.*)/) {$data[159] = checkval($1);  next LINE};
	if (/Downstream Cavity Coefficient \:\s*(.*)/) {$data[160] = checkval($1);  next LINE};
	if (/Current on IBC0L02 \(source\) \:\s*(.*)/) {$data[161] = checkval($1);  next LINE};
	if (/Hall C Current \:\s*(.*)/) {$data[162] = checkval($1);  next LINE};
	if (/MBSY1c Hall A Beam energy \:\s*(.*)/) {$data[163] = checkval($1);  next LINE};
	if (/MBSY1c magnet current \(amp\) \:\s*(.*)/) {$data[164] = checkval($1);  next LINE};
	if (/MBSY1c Bdl \:\s*(.*)/) {$data[165] = checkval($1);  next LINE};
	if (/MBSY3c Hall C Beam energy \:\s*(.*)/) {$data[166] = checkval($1);  next LINE};
	if (/Tiefenbach Hall C energy \:\s*(.*)/) {$data[167] = checkval($1);  next LINE};
	if (/Delta\(E\)\/E width \(MV\_AI\_DXWID\) \:\s*(.*)/) {$data[168] = checkval($1);  next LINE};
	if (/IPM1C12\.XPOS \:\s*(.*)/) {$data[169] = checkval($1);  next LINE};
	if (/IPM1H04A\.XPOS \:\s*(.*)/) {$data[170] = checkval($1);  next LINE};
	if (/IPM1H04A\.YPOS \:\s*(.*)/) {$data[171] = checkval($1);  next LINE};
	if (/IPM1H04B\.XPOS \:\s*(.*)/) {$data[172] = checkval($1);  next LINE};
	if (/IPM1H04B\.YPOS \:\s*(.*)/) {$data[173] = checkval($1);  next LINE};
	if (/Left Arm Collimator \:\s*(.*)/) {$data[174] = checkval($1);  next LINE};
	if (/Left LVDT HPM \:\s*(.*)/) {$data[175] = checkval($1);  next LINE};
	if (/Left LVDT VPM \:\s*(.*)/) {$data[176] = checkval($1);  next LINE};
	if (/HacL\_HPE1313A\:0\_Ch58 \:\s*(.*)/) {$data[177] = checkval($1);  next LINE};
	if (/HacL\_HPE1313A\:0\_Ch55 \:\s*(.*)/) {$data[178] = checkval($1);  next LINE};
	if (/HacL\_HPE1313A\:0\_Ch54 \:\s*(.*)/) {$data[179] = checkval($1);  next LINE};
	if (/HacL_alignROLL \:\s*(.*)/) {$data[180] = checkval($1);  next LINE};
	if (/HacL_alignPITCH \:\s*(.*)/) {$data[181] = checkval($1);  next LINE};
	if (/HacL_alignHPT \:\s*(.*)/) {$data[182] = checkval($1);  next LINE};
	if (/Right Arm Collimator \:\s*(.*)/) {$data[183] = checkval($1);  next LINE};
	if (/Right LVDT HPM \:\s*(.*)/) {$data[184] = checkval($1);  next LINE};
	if (/Right LVDT VPM \:\s*(.*)/) {$data[185] = checkval($1);  next LINE};
	if (/HacR\_HPE1313A\:0\_Ch58 \:\s*(.*)/) {$data[186] = checkval($1);  next LINE};
	if (/HacR\_HPE1313A\:0\_Ch55 \:\s*(.*)/) {$data[187] = checkval($1);  next LINE};
	if (/HacR\_HPE1313A\:0\_Ch54 \:\s*(.*)/) {$data[188] = checkval($1);  next LINE};
	if (/HacR_alignROLL \:\s*(.*)/) {$data[189] = checkval($1);  next LINE};
	if (/HacR_alignPITCH \:\s*(.*)/) {$data[190] = checkval($1);  next LINE};
	if (/HacR_alignHPT \:\s*(.*)/) {$data[191] = checkval($1);  next LINE};
	if (/Wien angle \:\s*(.*)/) {$data[192] = checkval($1);  next LINE};
	if (/Helicity Mode ON\/OFF Random\/Toggle \:\s*(.*)/) {$data[193] = checkval($1);  next LINE};
	if (/Wien BDL \:\s*(.*)/) {$data[194] = checkval($1);  next LINE};
	if (/Wien field \:\s*(.*)/) {$data[195] = checkval($1);  next LINE};
	if (/Laser attenuation Hall A \:\s*(.*)/) {$data[196] = checkval($1);  next LINE};
	if (/Laser power Hall A \:\s*(.*)/) {$data[197] = checkval($1);  next LINE};
	if (/^Half\-wave plate \(off\=out\) \:\s*(.*)/) {$data[198] = checkval($1);  next LINE};
	if (/rotating waveplate \:\s*(.*)/) {$data[199] = checkval($1);  next LINE};
	if (/^Beam Half\-wave plate \(off\=out\) \:\s*(.*)/) {$data[200] = checkval($1);  next LINE};
	if (/G0 Helicity Settle Set \:\s*(.*)/) {$data[201] = checkval($1);  next LINE};
	if (/G0 Helicity Delay Set \:\s*(.*)/) {$data[202] = checkval($1);  next LINE};
	if (/G0 Helicity Pattern Set \:\s*(.*)/) {$data[203] = checkval($1);  next LINE};
	if (/G0 Helicity Settle Read \:\s*(.*)/) {$data[204] = checkval($1);  next LINE};
	if (/G0 Helicity Delay Read \:\s*(.*)/) {$data[205] = checkval($1);  next LINE};
	if (/G0 Helicity Pattern \:\s*(.*)/) {$data[206] = checkval($1);  next LINE};
	if (/Target OTR x\-position \:\s*(.*)/) {$data[207] = checkval($1);  next LINE};
	if (/Target OTR y\-position \:\s*(.*)/) {$data[208] = checkval($1);  next LINE};
	if (/Target OTR x\-width \:\s*(.*)/) {$data[209] = checkval($1);  next LINE};
	if (/Target OTR y\-width \:\s*(.*)/) {$data[210] = checkval($1);  next LINE};
	if (/Target OTR data valid flag \:\s*(.*)/) {$data[211] = checkval($1);  next LINE};
	if (/Target OTR In\/Out \:\s*(.*)/) {$data[212] = checkval($1);  next LINE};
	if (/Arc OTR x\-position \:\s*(.*)/) {$data[213] = checkval($1);  next LINE};
	if (/Arc OTR y\-position \:\s*(.*)/) {$data[214] = checkval($1);  next LINE};
	if (/Arc OTR x\-width \:\s*(.*)/) {$data[215] = checkval($1);  next LINE};
	if (/Arc OTR y\-width \:\s*(.*)/) {$data[216] = checkval($1);  next LINE};
	if (/Arc OTR data valid flag \:\s*(.*)/) {$data[217] = checkval($1);  next LINE};
	if (/Arc OTR In\/Out \:\s*(.*)/) {$data[218] = checkval($1);  next LINE};
	if (/Polarized 3He Target RTD \#1 \:\s*(.*)/) {$data[219] = checkval($1);  next LINE};
	if (/Polarized 3He Target RTD \#2 \:\s*(.*)/) {$data[220] = checkval($1);  next LINE};
	if (/Polarized 3He Target RTD \#3 \:\s*(.*)/) {$data[221] = checkval($1);  next LINE};
	if (/Polarized 3He Target RTD \#4 \:\s*(.*)/) {$data[222] = checkval($1);  next LINE};
	if (/Polarized 3He Target RTD \#5 \:\s*(.*)/) {$data[223] = checkval($1);  next LINE};
	if (/Polarized 3He Target RTD \#6 \:\s*(.*)/) {$data[224] = checkval($1);  next LINE};
	if (/Polarized 3He Target RTD \#7 \:\s*(.*)/) {$data[225] = checkval($1);  next LINE};
	if (/Polarized 3He Ref\. Cell RTD \#8 \:\s*(.*)/) {$data[226] = checkval($1);  next LINE};
	if (/Polarized 3He Ref\. Cell RTD \#9 \:\s*(.*)/) {$data[227] = checkval($1);  next LINE};
	if (/Polarized 3He Ref\. Cell RTD \#10 \:\s*(.*)/) {$data[228] = checkval($1);  next LINE};
	if (/Polarized 3He Target Ref\. Cell Gas Pres\. \:\s*(.*)/) {$data[229] = checkval($1);  next LINE};
	if (/Polarized 3He Target Ref\. Cell Sys\.Vac\. \:\s*(.*)/) {$data[230] = checkval($1);  next LINE};
	if (/Polarized 3He Target Cooling Jet \:\s*(.*)/) {$data[231] = checkval($1);  next LINE};
	if (/Polarized 3He Target OVEN RTD \:\s*(.*)/) {$data[232] = checkval($1);  next LINE};
	if (/Polarized 3He Target OVEN SP1 SET \:\s*(.*)/) {$data[233] = checkval($1);  next LINE};
	if (/Polarized 3He Target OVEN SP1 \:\s*(.*)/) {$data[234] = checkval($1);  next LINE};
	if (/Polarized 3He Target OVEN AL1 SET \:\s*(.*)/) {$data[235] = checkval($1);  next LINE};
	if (/Polarized 3He Target OVEN AL1 \:\s*(.*)/) {$data[236] = checkval($1);  next LINE};
	if (/Polarized 3He Target OVEN AL1 STATUS \:\s*(.*)/) {$data[237] = checkval($1);  next LINE};
	if (/Polarized 3He Target Half\-Wave Plate DIST\:\s*(.*)/) {$data[238] = checkval($1);  next LINE};
	if (/Polarized 3He Target Half\-Wave Plate STAT\:\s*(.*)/) {$data[239] = checkval($1);  next LINE};
	if (/Polarized 3He Target Position \(PA\) \:\s*(.*)/) {$data[240] = checkval($1);  next LINE};
	if (/Polarized 3He Target Position \(POS\) \:\s*(.*)/) {$data[241] = checkval($1);  next LINE};
	if (/Polarized 3He Target Position \(DA\) \:\s*(.*)/) {$data[242] = checkval($1);  next LINE};
	if (/Polarized 3He Target Position \(SS9\) \:\s*(.*)/) {$data[243] = checkval($1);  next LINE};
	if (/Polarized 3He Target Position \(SA10\) \:\s*(.*)/) {$data[244] = checkval($1);  next LINE};
	if (/Polarized 3He Target Position \(SA9\) \:\s*(.*)/) {$data[245] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#1 State \:\s*(.*)/) {$data[246] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#1 Current \:\s*(.*)/) {$data[247] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#1 Temperature \:\s*(.*)/) {$data[248] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#2 State \:\s*(.*)/) {$data[249] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#2 Current \:\s*(.*)/) {$data[250] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#2 Temperature \:\s*(.*)/) {$data[251] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#3 State \:\s*(.*)/) {$data[252] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#3 Current \:\s*(.*)/) {$data[253] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#3 Temperature \:\s*(.*)/) {$data[254] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#4 State \:\s*(.*)/) {$data[255] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#4 Current \:\s*(.*)/) {$data[256] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#4 Temperature \:\s*(.*)/) {$data[257] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#5 State \:\s*(.*)/) {$data[258] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#5 Current \:\s*(.*)/) {$data[259] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#5 Temperature \:\s*(.*)/) {$data[260] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#6 State \:\s*(.*)/) {$data[261] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#6 Current \:\s*(.*)/) {$data[262] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#6 Temperature \:\s*(.*)/) {$data[263] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#7 State \:\s*(.*)/) {$data[264] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#7 Current \:\s*(.*)/) {$data[265] = checkval($1);  next LINE};
	if (/Polarized 3He Laser\#7 Temperature \:\s*(.*)/) {$data[266] = checkval($1);  next LINE};
	if (/Polarized 3He Coil Current Longitudinal \:\s*(.*)/) {$data[267] = checkval($1);  next LINE};
	if (/Polarized 3He Coil Current Transverse \:\s*(.*)/) {$data[268] = checkval($1);  next LINE};
	if (/Transverse gradient coils \(A\) setup current \:\s*(.*)/) {$data[269] = checkval($1);  next LINE};
	if (/Transverse gradient coils \(A\) readback current \:\s*(.*)/) {$data[270] = checkval($1);  next LINE};
	if (/Longitudinal upstream gradient coil \(B\) setup current \:\s*(.*)/) {$data[271] = checkval($1);  next LINE};
	if (/Longitudinal upstream gradient coil \(B\) readback current \:\s*(.*)/) {$data[272] = checkval($1);  next LINE};
	if (/Longitudinal downstream gradient coil \(C\) setup current \:\s*(.*)/) {$data[273] = checkval($1);  next LINE};
	if (/Longitudinal downstream gradient coil \(C\) readback current \:\s*(.*)/) {$data[274] = checkval($1);  next LINE};
	if (/Small vertical gradient coils \(D\) setup current \:\s*(.*)/) {$data[275] = checkval($1);  next LINE};
	if (/Small vertical gradient coils \(D\) readback current \:\s*(.*)/) {$data[276] = checkval($1);  next LINE};
	};
  $temp = $data[7]; 
  $data[7] = "<a href=\"$rend[$runnum][$subrun]\">$temp<\/a>"; 
  $data[280] = jtime($data[3],$data[2],$data[1],$data[5],$data[4])-$tzero;
  $data[281] = jtime($data[110],$data[109],$data[108],$data[107],$data[106])-$tzero;
  $data[283] = 1+$subrun;
  close(TESTFILE);
  for ($j=0;$j<($numdata-1);$j++) {print RUNOUT "$data[$j]\t"};
  print RUNOUT "$data[283]\n";
  print "$data[0]\t$data[283]\n";
  };
};
close(RUNOUT);