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

Comparing UserCode/OSUT3Analysis/DBTools/scripts/osudb (file contents):
Revision 1.5 by ahart, Tue Jul 31 14:55:05 2012 UTC vs.
Revision 1.6 by ahart, Wed Aug 1 14:15:20 2012 UTC

# Line 42 | Line 42 | if ($ARGV[0] ne "uploadRelease")
42      $status = "" if $ARGV[0] eq "update";
43      $status = "deprecated" if $ARGV[0] eq "deprecate";
44      $opt{"format"} = "BEAN" if $ARGV[0] eq "create" && !$opt{"format"};
45 –    $opt{"location"} = "$ENV{'PWD'}/$opt{'location'}" if !($opt{"location"} =~ m/^\//);
45      dbUpdate ($id, $fullDataset, $ENV{"USER"}, $opt{"format"}, $opt{"location"}, $opt{"fileList"}, $status, $opt{"comment"}, $opt{"pyConfig"}, $opt{"crabCfg"}, $opt{"jsonFile"}, $opt{"lumiSummary"}, $opt{"release"});
46      dbDelete ($id) if $ARGV[0] eq "deleteEntry";
47    }
# Line 236 | Line 235 | dbUpdate
235          }
236      }
237    ($nFiles, $size) = sizeOfDataset ($dataset, $location, $fileList);
238 +  my $fullLocation = "$ENV{'PWD'}/$location";
239  
240    $dataset = addSlashes ($dataset);
241    $user = addSlashes ($user);
# Line 244 | Line 244 | dbUpdate
244    $crabCfg = addSlashes ($crabCfg);
245    $jsonFile = addSlashes ($jsonFile);
246    $lumiSummary = addSlashes ($lumiSummary);
247 <  $location = addSlashes ($location);
247 >  $fullLocation = addSlashes ($fullLocation);
248    $fileList = addSlashes ($fileList);
249    $status = addSlashes ($status);
250    $comment = addSlashes ($comment);
# Line 261 | Line 261 | dbUpdate
261        my $id = 1;
262        $id = $row[0] + 1 if $results->numrows ();
263  
264 <      $query = "insert into ntuple (id, dataset, creationTime, lastUpdateTime, user, format, location, fileList, nFiles, sizeInGB, status, comment, pset, crabCfg, jsonFile, lumiSummary, version) values ($id, '$dataset', now(), now(), '$user', '$format', '$location', '$fileList', $nFiles, $size, '$status', '$comment', '$pset', '$crabCfg', '$jsonFile', '$lumiSummary', '$release')";
264 >      $query = "insert into ntuple (id, dataset, creationTime, lastUpdateTime, user, format, location, fileList, nFiles, sizeInGB, status, comment, pset, crabCfg, jsonFile, lumiSummary, version) values ($id, '$dataset', now(), now(), '$user', '$format', '$fullLocation', '$fileList', $nFiles, $size, '$status', '$comment', '$pset', '$crabCfg', '$jsonFile', '$lumiSummary', '$release')";
265      }
266    if ($id > 0)
267      {
# Line 271 | Line 271 | dbUpdate
271        $values .= ", dataset='$dataset'" if $dataset;
272        $values .= ", lastUpdateTime=now()";
273        $values .= ", format='$format'" if $format;
274 <      $values .= ", location='$location'" if $location;
274 >      $values .= ", location='$fullLocation'" if $location;
275        $values .= ", fileList='$fileList'" if $fileList;
276        $values .= ", nFiles=$nFiles" if $nFiles;
277        $values .= ", sizeInGB=$size" if $size;
# Line 408 | Line 408 | sizeOfDataset
408    my $location = shift;
409    my $fileList = shift;
410  
411 –  my $query = "select nFiles from ntuple where dataset='$dataset'";
412 –  $db->selectdb ("ntuple");
413 –  my $results = $db->query ($query);
414 –  my @row = $results->fetchrow ();
415 –  my $previousNFiles = 0;
416 –  $previousNFiles = $row[0] if $results->numrows ();
417 –
411    my $size = 0.0;
412    my $nFiles = 0;
413 <  if ($location && !$fileList && $previousNFiles < 1)
413 >  if ($location && !$fileList)
414      {
415        if (!(-e $location))
416          {

Diff Legend

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