ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/UserCode/OSUT3Analysis/DBTools/scripts/osusub
(Generate patch)

Comparing UserCode/OSUT3Analysis/DBTools/scripts/osusub (file contents):
Revision 1.2 by ahart, Thu Jun 14 17:42:30 2012 UTC vs.
Revision 1.5 by ahart, Wed Aug 15 08:43:26 2012 UTC

# Line 4 | Line 4 | use strict;
4   use Mysql;
5   use File::Copy;
6   use Getopt::Long;
7 + use POSIX;
8  
9   sub printHelp;
10   sub outputPset;
# Line 11 | Line 12 | sub outputRunList;
12   sub getLocation;
13   sub outputCondor;
14  
15 < our $db;
15 > our $db = Mysql->connect ("cmshead", "ntuple", "osuT3User");
16  
17   my %opt;
18   Getopt::Long::Configure ("bundling");
# Line 32 | Line 33 | if (-e $ARGV[2])
33      exit;
34    }
35   mkdir $ARGV[2];
36 < outputRunList ($ARGV[0], $ARGV[2]);
36 > my $nFiles = outputRunList ($ARGV[0], $ARGV[2]);
37 > my $nJobs = $ARGV[3];
38 > my $realNJobs = ceil ($nFiles / ceil ($nFiles / $nJobs));
39   outputPset ($ARGV[2]);
40 < outputCondor ($ARGV[2], $ARGV[3]);
40 > outputCondor ($ARGV[2], $realNJobs);
41   copy ($ARGV[1], "$ARGV[2]/userConfig_cfg.py");
42   chdir $ARGV[2];
43 + print "Submitting $realNJobs jobs to run on $nFiles files.\n";
44   system ("condor_submit condor.sub");
45  
46   sub
# Line 101 | Line 105 | outputRunList
105      }
106    print RUNLIST "]";
107    close (RUNLIST);
108 +
109 +  return $nFiles;
110   }
111  
112   sub
# Line 112 | Line 118 | getLocation
118    my $queryDataset = $dataset;
119    $queryDataset =~ s/\*/%/g;
120    $queryDataset =~ s/(.*)/%$1%/g;
121 <  $db = Mysql->connect ("cmshead", "ntuple", "osuT3User");
116 <  my $query = "select dataset,user,creationTime,location,nFiles,status from ntuple where dataset like '$queryDataset' order by lastUpdateTime";
121 >  my $query = "select dataset,user,creationTime,location,nFiles,status from ntuple where dataset like '$queryDataset' and status='present' order by creationTime";
122    $db->selectdb ("ntuple");
123    $results = $db->query ($query);
124    if ($results->numrows () == 1)
# Line 177 | Line 182 | printHelp
182    my $exeName = $0;
183    $exeName =~ s/^.*\/([^\/]*)$/$1/;
184  
185 <  print "Usage: $exeName [OPTIONS] DATASET CONFIG DIRECTORY NJOBS\n";
185 >  print "Usage: $exeName [OPTION]... DATASET CONFIG DIRECTORY NJOBS\n";
186    print "Submits CMSSW jobs to the OSU Tier 3 compute nodes using Condor.\n";
187    print "\n";
188    printf "%-29s%s\n", "  -h, --help", "print this help message";

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines