Show
Ignore:
Timestamp:
05/14/08 23:35:55 (19 months ago)
Author:
bchoate
Message:

Cleanup for TheSchwartz logging. Added support for 'leak' switch to help trace object leaks.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/release-38/tools/run-periodic-tasks

    r2272 r2337  
    1 #!/usr/bin/perl -w 
     1#!/opt/local/bin/perl -w 
    22 
    33# Movable Type (r) Open Source (C) 2001-2008 Six Apart, Ltd. 
    … …  
    1010 
    1111use lib 'lib', '../lib'; 
    12 use MT::Bootstrap; 
    13 use MT; 
     12 
     13my $daemonize = 0; 
     14my $sleep     = 5; 
     15my $help      = 0; 
     16my $load      = 10; 
     17my $verbose   = 0; 
     18my $scoreboard; 
     19my $randomize_jobs = 0; 
     20my $trace_objects = 0; 
     21 
     22require Getopt::Long; 
     23Getopt::Long::GetOptions( 
     24    "daemon"       => \$daemonize, 
     25    "sleep=i"      => \$sleep, 
     26    "load=i"       => \$load, 
     27    "scoreboard=s" => \$scoreboard, 
     28    "randomly"     => \$randomize_jobs, 
     29    "verbose"      => \$verbose, 
     30    "leak"         => \$trace_objects, 
     31); 
     32 
     33if ( $trace_objects ) { 
     34    require Devel::Leak::Object; 
     35    Devel::Leak::Object->import( qw{ GLOBAL_bless } ); 
     36} 
     37 
     38my %cfg; 
     39$cfg{verbose} = $verbose; 
     40$cfg{scoreboard} = $scoreboard; 
     41$cfg{prioritize} = 1; 
     42$cfg{randomize} = $randomize_jobs; 
     43 
     44require MT::Bootstrap; 
     45require MT; 
    1446 
    1547my $mt = MT->new() or die MT->errstr; 
    … …  
    2153$mt->{plugin_template_path} = 'tmpl'; 
    2254$mt->run_callbacks('init_app', $mt); 
    23  
    24 require Getopt::Long; 
    25 my $daemonize = 0; 
    26 my $sleep     = 5; 
    27 my $help      = 0; 
    28 my $load      = 10; 
    29 my $verbose   = 0; 
    30 my $scoreboard; 
    31 my $randomize_jobs = 0; 
    32  
    33 Getopt::Long::GetOptions( 
    34     "daemon"       => \$daemonize, 
    35     "sleep=i"      => \$sleep, 
    36     "load=i"       => \$load, 
    37     "scoreboard=s" => \$scoreboard, 
    38     "randomly"     => \$randomize_jobs, 
    39     "verbose"      => \$verbose, 
    40 ); 
    41  
    42 my %cfg; 
    43 $cfg{verbose} = $verbose; 
    44 $cfg{scoreboard} = $scoreboard; 
    45 $cfg{prioritize} = 1; 
    46 $cfg{randomize} = $randomize_jobs; 
    4755 
    4856my $client = eval {