Subversion Repositories DevTools

Rev

Rev 7397 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7397 Rev 7460
Line 470... Line 470...
470
        print Data::Dumper->Dump ( [$_], ["*[Arg:$ii] $name" ]);
470
        print Data::Dumper->Dump ( [$_], ["*[Arg:$ii] $name" ]);
471
        $ii++
471
        $ii++
472
    }
472
    }
473
}
473
}
474
 
474
 
-
 
475
#-------------------------------------------------------------------------------
-
 
476
# Function        : resetWedge 
-
 
477
#
-
 
478
# Description     : Called to indicate that the main processing loop is not wedged
-
 
479
#
-
 
480
# Inputs          : None 
-
 
481
#
-
 
482
# Returns         : Nothing
-
 
483
#
-
 
484
my $wedgeTime = 0;
-
 
485
sub resetWedge {
-
 
486
    $wedgeTime = time();
-
 
487
}
-
 
488
 
-
 
489
#-------------------------------------------------------------------------------
-
 
490
# Function        : isWedged 
-
 
491
#
-
 
492
# Description     : Determine if the current process is wedged
-
 
493
#                   ie: Main processing loop is not cyling
-
 
494
#
-
 
495
# Inputs          : $conf   - Config data 
-
 
496
#
-
 
497
# Returns         : True - is Wedged 
-
 
498
#
-
 
499
sub isWedged
-
 
500
{
-
 
501
    my ($conf) = @_;
-
 
502
    $conf->{logger}->verbose("isWedged ($conf->{wedgeTime}) : " .  (time() - $wedgeTime) );
-
 
503
    return (time() > ($wedgeTime + $conf->{wedgeTime}) );
-
 
504
}
475
 
505
 
476
1;
506
1;