#!/usr/local/bin/perl -w if( 1 > $#ARGV ) { die "perl checkRuns.pl "; } if( 2 < $#ARGV ) { die "perl checkRuns.pl "; } $tag = $ARGV[ 0 ]; $runNumber = $ARGV[ 1 ]; if( 2 == $#ARGV ) { $proclist = $ARGV[ 2 ]; } else { $proclist = 1; print "Default option: runs listed in the form of \n"; } $stupidSign="\\"; #$cmd0 = "cd ..; compile.csh; cd workdir"; $cmd0 = "cd ..; gmake lib bin; cd workdir"; $cmd1 = "rm $tag.rqmlog"; if( 2 == $proclist ) { $cmd2 = "RqmMakeAll -F runList-$tag.txt -f ER -s > $tag.rqmlog"; # use a list of hbook/root files; use scratch directory... #$cmd2 = "RqmMakeAll -F runList-$tag.txt -f ER > $tag.rqmlog"; # use a list of hbook/root files; run in local directory... } else { $cmd2 = "RqmMakeAll -p runList-$tag.txt -f ER -s > $tag.rqmlog"; # use scratch directory... #$cmd2 = "RqmMakeAll -p runList-$tag.txt -f ER > $tag.rqmlog"; # use local directory... } $cmd3 = "mv ER_Default.ps ER_$tag.ps"; $cmd4 = "mv ER_Default.root ER_$tag.root"; $cmd5 = "mv ER-new.root ER-new_$tag.root"; $cmd6 = "bbrroot -b -q RELEASE/RqmRootTreeTools/plotDircStripcharts.cc$stupidSign\($stupidSign\"ER-new_$tag.root$stupidSign\",$stupidSign\"ER_$tag.root$stupidSign\",$runNumber$stupidSign\)"; $cmd7 = "mv DIRC_stripcharts.ps DIRC_stripcharts_$tag.ps"; print "$cmd0\n"; `$cmd0`; print "$cmd1\n"; `$cmd1`; print "$cmd2\n"; `$cmd2`; print "$cmd3\n"; `$cmd3`; print "$cmd4\n"; `$cmd4`; print "$cmd5\n"; `$cmd5`; print "$cmd6\n"; `$cmd6`; print "$cmd7\n"; `$cmd7`;