Changeset 27604

Timestamp:

Apr 5, 2010, 1:21:44 PM (16 years ago)

Author:

bills

Message:

drop database connection while doing the deletes because they
are really slow and if lots of jobs are outstanding we can run out of database connections

File:

• trunk/ippScripts/scripts/magic_destreak_cleanup.pl (modified) (3 diffs)

trunk/ippScripts/scripts/magic_destreak_cleanup.pl

@@ -118 +118 @@
 
 my $num_components = 0;
+my @components;
+# save the data, so we can disconnect from the database
+# deleting can take awhile
 while (my $comp = $stmt2->fetchrow_hashref()) {
+        push @components, $comp;
         $num_components++;
-
+}
+
+$stmt2->finish();
+$dbh->disconnect() or warn $dbh->errstr;
+
+my $dynamicMasks;               # Use dynamic masks?
+foreach my $comp (@components) {
         my $component = $comp->{component};
         my $backup_path_base = $comp->{backup_path_base};
@@ -129 +139 @@
         if ($stage eq "chip") {
             # Check to see if we're using dynamic masks
-            my $dynamicMasks;               # Use dynamic masks?
-            {
+            if (!defined $dynamicMasks) {
                 # Get the PSASTRO recipe
                 my $command = "$ppConfigDump -camera $camera -recipe PSASTRO $recipe_psastro -dump-recipe PSASTRO -";
@@ -228 +237 @@
 }
 
+$dbh = DBI->connect($dsn, $dbuser, $dbpassword) or die "Cannot connect to mysql server\n";
+
 if (!$no_update and ($num_components > 0)) {
     my $result = $dbh->do("DELETE FROM magicDSFile WHERE magic_ds_id = ?", undef, $magic_ds_id);