Changeset 30274 for trunk/tools/czarclean.pl

Timestamp:

Jan 13, 2011, 1:08:55 PM (16 years ago)

Author:

rhenders

Message:

Added czar-database clean-up interval to config file, and changed relevant code in czartool (interval is 30 minutes)

File:

• trunk/tools/czarclean.pl (modified) (4 diffs)

trunk/tools/czarclean.pl

@@ -6 +6 @@
 
 # local classes
+use czartool::Config;
 use czartool::CzarDb;
 
 my $czarDbName = undef;
-my $from = undef;
-my $to = undef;
+my $begin = undef;
+my $end = undef;
 my $interval = undef;
 my $verbose = undef;
 my $optimize = undef;
+my $config = new czartool::Config();
 
 GetOptions (
         "dbname|d=s" => \$czarDbName,
         "interval|i=s" => \$interval,
-        "from|f=s" => \$from,
-        "to|t=s" => \$to,
+        "begin|b=s" => \$begin,
+        "end|e=s" => \$end,
         "optimize|o" => \$optimize,
         "verbose|v" => \$verbose,
@@ -32 +34 @@
     print "* UNKNKOWN: option                          @ARGV\n";
 }
-if (!$from) {
+if (!$begin) {
     $quit=1;
-    print "* REQUIRED: choose a from date                 -b <datetime>\n";
+    print "* REQUIRED: choose a begin date                -b <datetime>\n";
 }
-if (!$to) {
-    if($from) {$to=$from;} else {$to="NULL";}
-    print "* OPTIONAL: choose a to date                   -e <datetime>                   (default=$to)\n";
+if (!$end) {
+    if($begin) {$end=$begin;} else {$end="NULL";}
+    print "* OPTIONAL: choose an end date date            -e <datetime>                   (default=$end)\n";
 }
 if (!$czarDbName) {
@@ -45 +47 @@
 }
 if (!$interval) {
-    $interval = "30 MINUTE";
-    print "* OPTIONAL: choose time interval               -i <'30 MINUTE'|'1 hour'|etc>   (default=$interval)\n";
+    print "* OPTIONAL: choose time interval               -i <'30 MINUTE'|'1 hour'|etc>   (default=".$config->getCzarCleanupInterval().")\n";
 }
 if (!$optimize) {
     $optimize = 0;
-    print "* OPTIONAL: optimize database after cleanup    -o <'30 MINUTE'|'1 hour'|etc>   (default=$interval)\n";
+    print "* OPTIONAL: optimize database after cleanup    -o                              (default=$optimize)\n";
 }
 print "*\n*******************************************************************************\n";
@@ -56 +57 @@
 if ($quit) { exit; }
 
-
-my $save_temps = 0;
-
-
-my $czarDb = new czartool::CzarDb($czarDbName, "ippdb01", "ipp", "ipp", 0, $save_temps); # TODO last arg here is save_temps, should get as arg
+my $czarDb = $config->getCzarDbInstance();
 
 my $labels = undef;
 
 
-$czarDb->cleanupDateRange($from, $to, $interval);
+$czarDb->cleanupDateRange($begin, $end, $config->getCzarCleanupInterval());
 if ($optimize) {$czarDb->optimize();}