ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/UserCode/OSUT3Analysis/DBTools/scripts/crabclean

Comparing UserCode/OSUT3Analysis/DBTools/scripts/crabclean (file contents):
Revision 1.6 by ahart, Fri May 10 00:24:02 2013 UTC vs.
Revision 1.7 by ahart, Thu May 23 20:38:44 2013 UTC

#	Line 3 | Line 3
3		use strict;
4		use Getopt::Long;
5		use Mysql;
6	+	use Term::ANSIColor;
7
8		sub printHelp;
9		sub parseCrabDir;
#	Line 24 | Line 25 | if ($opt{"dataset"})
25		my $queryDataset = $dataset;
26		$queryDataset =~ s/\*/%/g;
27		$queryDataset =~ s/(.*)/%$1%/g;
28	<	my $query = "select workingDirectory,location,dataset,user,creationTime from ntuple where dataset like '$queryDataset' order by creationTime";
28	>	my $query = "select workingDirectory,location,dataset,user,creationTime,status from ntuple where dataset like '$queryDataset' order by creationTime";
29		$db->selectdb ("ntuple");
30		my $results = $db->query ($query);
31		if ($results->numrows () == 1)
#	Line 47 | Line 48 | if ($opt{"dataset"})
48		for (my $i = 1; $i <= $results->numrows (); $i++)
49		{
50		my @row = $results->fetchrow ();
51	+	$row[4] =~ s/([^ ]*) [^ ]*/$1/g;
52		$workingDir{"$i"} = $row[0];
53		$location{"$i"} = $row[1];
54		printf "(%2d) $row[2]\n", $i;
55	<	print "     created by $row[3] on $row[4]\n";
55	>	print "     (";
56	>	print color "green" if $row[5] eq "present";
57	>	print color "bold yellow" if $row[5] eq "submitted";
58	>	print color "bold red" if $row[5] eq "created" or $row[5] eq "cancelled" or $row[5] eq "deprecated";
59	>	print $row[5];
60	>	print color "reset";
61	>	print ") created by $row[3] on $row[4]\n";
62		}
63		print "\nWhich entry would you like to use?: ";
64		my $response = <STDIN>;
#	Line 100 | Line 108 | else
108		}
109		}
110		}
111	+	opendir (CRAB_OUTPUT, "$outputDir");
112	+	my @crabOutput = readdir (CRAB_OUTPUT);
113	+	closedir (CRAB_OUTPUT);
114	+	my $nFiles = @crabOutput - 2;
115	+	print "Before cleaning: $nFiles files\n";
116		foreach my $file (@crabOutput)
117		{
118		next if ($file eq "." || $file eq "..");
#	Line 119 | Line 132 | foreach my $file (@crabOutput)
132		system ("rm -i $outputDir/$file") if !$opt{"force"};
133		}
134		}
135	+	opendir (CRAB_OUTPUT, "$outputDir");
136	+	my @crabOutput = readdir (CRAB_OUTPUT);
137	+	closedir (CRAB_OUTPUT);
138	+	my $nFiles = @crabOutput - 2;
139	+	print "After cleaning:  $nFiles files\n";
140
141		sub
142		printHelp

Diff Legend

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