Subversion Repositories DevTools

Rev

Rev 7423 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7423 Rev 7460
Line 57... Line 57...
57 
my $lastDirScan = 0;
 57 
my $lastDirScan = 0;
58 
my $mtimeConfig = 0;
 58 
my $mtimeConfig = 0;
59 
my $conf;
 59 
my $conf;
60 
my $yday = -1;
 60 
my $yday = -1;
61 
my $tagRoot;
 61 
my $tagRoot;
62 
my $wedgedCount = 0;
 - 
 
63 
my $linkState = 0;
 62 
my $linkState = 0;
64 
 
 63 
 
65 
#
 64 
#
66 
#   Contain statisics maintained while operating
 65 
#   Contain statisics maintained while operating
67 
#       Can be dumped with a kill -USR2
 66 
#       Can be dumped with a kill -USR2
Line 101... Line 100...
101 
    'debug'           => {'default'   => 0      , 'fmt' => 'bool'},                 # Log to screen
 100 
    'debug'           => {'default'   => 0      , 'fmt' => 'bool'},                 # Log to screen
102 
    'txdetail'        => {'default'   => 0      , 'fmt' => 'bool'},
 101 
    'txdetail'        => {'default'   => 0      , 'fmt' => 'bool'},
103 
    'tagdir'          => {'mandatory' => 1      , 'fmt' => 'mkdir'},
 102 
    'tagdir'          => {'mandatory' => 1      , 'fmt' => 'mkdir'},
104 
    'forcedirscan'    => {'default'   => 100    , 'fmt' => 'period'},
 103 
    'forcedirscan'    => {'default'   => 100    , 'fmt' => 'period'},
105 
    'tagage'          => {'default'   => '10d'  , 'fmt' => 'period'},
 104 
    'tagage'          => {'default'   => '10d'  , 'fmt' => 'period'},
- 
 
 105 
    'wedgeTime'       => {'default'   => '30m'  , 'fmt' => 'period'},
106 
 
 106 
 
107 
    'JIRA_URL'        => {'mandatory' => 1      , 'fmt' => 'text'},
 107 
    'JIRA_URL'        => {'mandatory' => 1      , 'fmt' => 'text'},
108 
    'JIRA_USERNAME'   => {'mandatory' => 1      , 'fmt' => 'text'},
 108 
    'JIRA_USERNAME'   => {'mandatory' => 1      , 'fmt' => 'text'},
109 
    'JIRA_PASSWORD'   => {'mandatory' => 1      , 'fmt' => 'text'},
 109 
    'JIRA_PASSWORD'   => {'mandatory' => 1      , 'fmt' => 'text'},
110 
    'RM_USERNAME_RW'  => {'mandatory' => 1      , 'fmt' => 'text'},
 110 
    'RM_USERNAME_RW'  => {'mandatory' => 1      , 'fmt' => 'text'},
Line 129... Line 129...
129 
#
 129 
#
130 
while (1)
 130 
while (1)
131 
{
 131 
{
132 
    $logger->verbose3("Processing");
 132 
    $logger->verbose3("Processing");
133 
    $statistics{Cycle}++;
 133 
    $statistics{Cycle}++;
134 
    $wedgedCount = 0;
 134 
    Utils::resetWedge();
135 
    $now = time();
 135 
    $now = time();
136 
 
 136 
 
137 
    $statistics{phase} = 'ReadConfig';
 137 
    $statistics{phase} = 'ReadConfig';
138 
    readConfig();
 138 
    readConfig();
139 
    if ( $conf->{'active'} )
 139 
    if ( $conf->{'active'} )
Line 406... Line 406...
406 
    #   A few local stats
 406 
    #   A few local stats
407 
    #
 407 
    #
408 
    $statistics{SeqNum}++;
 408 
    $statistics{SeqNum}++;
409 
    $statistics{timeStamp} = time();
 409 
    $statistics{timeStamp} = time();
410 
    $statistics{upTime} = $statistics{timeStamp} - $startTime;
 410 
    $statistics{upTime} = $statistics{timeStamp} - $startTime;
411 
    $statistics{wedged} = $wedgedCount++ > 30  ? 1 : 0;
 411 
    $statistics{wedged} = Utils::isWedged($conf);
412 
 
 412 
 
413 
    if ( $statistics{wedged}) {
 413 
    if ( $statistics{wedged}) {
414 
         $statistics{state} = 'Wedged';
 414 
         $statistics{state} = 'Wedged';
415 
    } elsif(!$linkState){
 415 
    } elsif(!$linkState){
416 
        $statistics{state} = 'ReleaseNote generation Error';
 416 
        $statistics{state} = 'ReleaseNote generation Error';