#!/bin/perl

chdir "/users/icd/wmc/umui_jobs" or warn "Failed to chdir!";
print `pwd`,"\n";

eval "\$$1=\$2" while $ARGV[0] =~ /^(\w+)=(.*)/ && shift;

$RUNID=shift;

print "Running mk_evp.pl $RUNID/CNTLOCN $RUNID/CONTCNTL\n";
print `ls -ltr $RUNID/CNTLOCN $RUNID/CONTCNTL`,"\n";
`./mk_evp.pl $RUNID/CNTLOCN $RUNID/CONTCNTL`;
print `ls -ltr $RUNID/CNTLOCN $RUNID/CONTCNTL`,"\n";

print "Running add_iceevp_nl.pl $RUNID/CNTLOCN\n";
`./add_iceevp_nl.pl $RUNID/CNTLOCN`;

print "\nSet PSTAR by hand, if you dont want 27000\n----------------------------------------\n";