IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 29278


Ignore:
Timestamp:
Sep 30, 2010, 9:18:41 AM (16 years ago)
Author:
rhenders
Message:

Added optimize option

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tools/czarclean.pl

    r29276 r29278  
    99
    1010my $czarDbName = undef;
    11 my $begin = undef;
    12 my $end = undef;
     11my $from = undef;
     12my $to = undef;
    1313my $interval = undef;
    1414my $verbose = undef;
     15my $optimize = undef;
    1516
    1617GetOptions (
    1718        "dbname|d=s" => \$czarDbName,
    1819        "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,
    2123        "verbose|v" => \$verbose,
    2224        );
     
    3032    print "* UNKNKOWN: option                          @ARGV\n";
    3133}
    32 if (!$begin) {
     34if (!$from) {
    3335    $quit=1;
    34     print "* REQUIRED: choose a begin date             -b <datetime>\n";
     36    print "* REQUIRED: choose a from date                 -b <datetime>\n";
    3537}
    36 if (!$end) {
    37 
    38     if($begin) {$end=$begin;} else {$end="NULL";}
    39     print "* OPTIONAL: choose an end date              -e <datetime>                   (default=$end)\n";
     38if (!$to) {
     39    if($from) {$to=$from;} else {$to="NULL";}
     40    print "* OPTIONAL: choose a to date                   -e <datetime>                   (default=$to)\n";
    4041}
    4142if (!$czarDbName) {
    4243    $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";
    4445}
    4546if (!$interval) {
    4647    $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}
     50if (!$optimize) {
     51    $optimize = 0;
     52    print "* OPTIONAL: optimize database after cleanup    -o <'30 MINUTE'|'1 hour'|etc>   (default=$interval)\n";
    4853}
    4954print "*\n*******************************************************************************\n";
     
    6065
    6166
    62 $czarDb->cleanupDateRange($begin, $end, $interval);
    63 
     67$czarDb->cleanupDateRange($from, $to, $interval);
     68if ($optimize) {$czarDb->optimize();}
Note: See TracChangeset for help on using the changeset viewer.