test/pfg/submitESAnalysis.pl

0001 #!/usr/bin/env perl
0002
0003 use strict;
0004
0005 open INPUT, "<crab.tmpl";
0006 open OFILE, ">crab.cfg";
0007 while (<INPUT>) {
0008
0009     #my $num = sprintf "%08d", $ARGV[0];
0010     chomp($_);
0011
0012     if ($_ =~ s/XXXXXX/$ARGV[0]/) {
0013     print OFILE "$_\n";
0014     } else {
0015     print OFILE "$_\n";
0016     }
0017
0018 }
0019
0020 close(INPUT);
0021 close(OFILE);
0022
0023 system("mkdir $ARGV[0]; mv crab.cfg $ARGV[0]; cp esAnalysis.py $ARGV[0]");
0024 system(". /afs/cern.ch/cms/LCG/LCG-2/UI/cms_ui_env.sh; . /afs/cern.ch/cms/sw/cmsset_default.sh; eval `scramv1 runtime -sh`; . /afs/cern.ch/cms/ccs/wm/scripts/Crab/crab.sh; cd $ARGV[0]; crab -create crab.cfg; crab -submit");
0025 #system(". /afs/cern.ch/cms/sw/cmsset_default.sh; . /afs/cern.ch/cms/sw/cmsset_default.sh; cmsenv; . /afs/cern.ch/cms/ccs/wm/scripts/Crab/crab.sh; cd $ARGV[0]; crab -create crab.cfg; crab -submit");