#!/usr/bin/perl
# Jaideep Singh
# October 2003
use strict "subs";

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; 
	};

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;
	};


%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"
	   );

#@recount = (0) x 5000;
#my @rend;
#open(RUNLIST,"<right_start_files.list");
#while(<RUNLIST>)
#        { /^(.*_(\d+)\..*)$/;
#          $rend[$2][$recount[$2]] = $1;
#	  print "$2\t$rend[$2][$recount[$2]]\t$recount[$2]\n";
#          $recount[$2]++;
#        };
#close(RUNLIST);

my $tzero = jtime(0,0,0,20,4);
my $firstrun = 999; 
my $lastrun  = 4218;
#$firstrun = $lastrun = 4165;
my $numdata = 295;

open(RUNOUT,">rightbeg_mss.raw");
print RUNOUT "<pre>\n";
RUN: for ($runnum=$firstrun;$runnum<=$lastrun;$runnum++) 
     {
  	@data = ('\N') x $numdata;
  	$data[0] = $runnum;
 	print "$runnum start...\n";
        $data[283] = 0;
  	if (open(TESTFILE,"\/home\/jaideep\/gdh\/runfiles_gdh_from_mss\/runfiles_gdh\/Start_of_Run_$runnum\.epics"))
 		{
  			LINE: while (<TESTFILE>) 
			{
#			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+),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[8] = checkval($1);
#			  $data[105] = checkval($2);
#			  $data[10] = checkval($3); 
#			  $data[11] = checkval($4);
#			  $data[12] = checkval($5);
#			  $data[13] = checkval($6);
#			  $data[14] = checkval($7);
#			  $data[15] = checkval($8);
#			  $data[16] = checkval($9);
#			  $data[17] = checkval($10);
#			  $data[18] = checkval($11);
#			  $data[19] = checkval($12);
#			  $data[20] = checkval($13);
#			  $data[21] = checkval($14);
#			  $data[22] = checkval($15);
#			  $data[23] = checkval($16);
#		 	 $data[24] = checkval($17);
#		  	next LINE };
			if (/Beginning\-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 (/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 (/Right septum set current \:\s*(.*)/) {$data[125] = checkval($1);  next LINE};
			if (/Right septum current readback \:\s*(.*)/) {$data[126] = 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 momentum \:\s*(.*)/) {$data[114] = 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 (/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 Arm Top VDC voltage \:\s*(.*)/) {$data[284] = checkval($1);  next LINE};
			if (/Right Arm Bottom VDC voltage \:\s*(.*)/) {$data[285] = 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 (/Tiefenbach Hall A energy \:\s*(.*)/) {$data[118] = 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 (/HALLA\:p \:\s*(.*)/) {$data[116] = checkval($1);  next LINE};
			if (/HALLA\:dpp \:\s*(.*)/) {$data[117] = checkval($1);  next LINE};
			if (/MBSY1c Hall A Beam energy \:\s*(.*)/) {$data[163] = checkval($1);  next LINE};
			if (/MBSY3c Hall C Beam energy \:\s*(.*)/) {$data[166] = 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 (/Arc1 dp\/p \:\s*(.*)/) {$data[286] = checkval($1);  next LINE};
			if (/Arc2 dp\/p \:\s*(.*)/) {$data[287] = checkval($1);  next LINE};
			if (/Right Arm 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 (/Right Arm Angle Floor Angle \:\s*(.*)/) {$data[288] = checkval($1);  next LINE};
			if (/Right Arm Angle Vernier \:\s*(.*)/) {$data[289] = checkval($1);  next LINE};
			if (/Right Arm Scattering Angle \:\s*(.*)/) {$data[115] = checkval($1);  next LINE};
			if (/IPM1C12\.XPOS \:\s*(.*)/) {$data[169] = checkval($1);  next LINE};
			if (/IPM1C12\.YPOS \:\s*(.*)/) {$data[290] = 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 (/Survey X offset bpmA \:\s*(.*)/) {$data[291] = checkval($1);  next LINE};
			if (/Survey Y offset bpmA \:\s*(.*)/) {$data[292] = checkval($1);  next LINE};
			if (/Survey X offset bpmB \:\s*(.*)/) {$data[293] = checkval($1);  next LINE};
			if (/Survey Y offset bpmB \:\s*(.*)/) {$data[294] = 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 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};
			}; #end line by line while loop
#  		$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;
        	close(TESTFILE);
		}; #end if file opens statement
 	for ($j=0;$j<($numdata-1);$j++) {print RUNOUT "$data[$j]\t"};
 	print RUNOUT "$data[$numdata-1]\n";
#  	for ($j=0;$j<$numdata;$j++) {print "$j\t$data[$j]\n"};
 	print "$data[0]\t$data[283] is done\n";
}; #end run by run loop
close(RUNOUT);