Changeset 29278
- Timestamp:
- Sep 30, 2010, 9:18:41 AM (16 years ago)
- File:
-
- 1 edited
-
trunk/tools/czarclean.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/czarclean.pl
r29276 r29278 9 9 10 10 my $czarDbName = undef; 11 my $ begin= undef;12 my $ end= undef;11 my $from = undef; 12 my $to = undef; 13 13 my $interval = undef; 14 14 my $verbose = undef; 15 my $optimize = undef; 15 16 16 17 GetOptions ( 17 18 "dbname|d=s" => \$czarDbName, 18 19 "interval|i=s" => \$interval, 19 "begin|b=s" => \$begin, 20 "end|e=s" => \$end, 20 "from|f=s" => \$from, 21 "to|t=s" => \$to, 22 "optimize|o" => \$optimize, 21 23 "verbose|v" => \$verbose, 22 24 ); … … 30 32 print "* UNKNKOWN: option @ARGV\n"; 31 33 } 32 if (!$ begin) {34 if (!$from) { 33 35 $quit=1; 34 print "* REQUIRED: choose a begin date-b <datetime>\n";36 print "* REQUIRED: choose a from date -b <datetime>\n"; 35 37 } 36 if (!$end) { 37 38 if($begin) {$end=$begin;} else {$end="NULL";} 39 print "* OPTIONAL: choose an end date -e <datetime> (default=$end)\n"; 38 if (!$to) { 39 if($from) {$to=$from;} else {$to="NULL";} 40 print "* OPTIONAL: choose a to date -e <datetime> (default=$to)\n"; 40 41 } 41 42 if (!$czarDbName) { 42 43 $czarDbName = "czardb"; 43 print "* OPTIONAL: choose czar Db name -d <name> (default=$czarDbName\n";44 print "* OPTIONAL: choose czar Db name -d <name> (default=$czarDbName\n"; 44 45 } 45 46 if (!$interval) { 46 47 $interval = "30 MINUTE"; 47 print "* OPTIONAL: choose time interval -i <'30 MINUTE'|'1 hour'|etc> (default=$interval)\n"; 48 print "* OPTIONAL: choose time interval -i <'30 MINUTE'|'1 hour'|etc> (default=$interval)\n"; 49 } 50 if (!$optimize) { 51 $optimize = 0; 52 print "* OPTIONAL: optimize database after cleanup -o <'30 MINUTE'|'1 hour'|etc> (default=$interval)\n"; 48 53 } 49 54 print "*\n*******************************************************************************\n"; … … 60 65 61 66 62 $czarDb->cleanupDateRange($ begin, $end, $interval);63 67 $czarDb->cleanupDateRange($from, $to, $interval); 68 if ($optimize) {$czarDb->optimize();}
Note:
See TracChangeset
for help on using the changeset viewer.
