Subversion Repositories DevTools

#-------------------------------------------------------------------------------

# Function        : resetWedge 

#

# Description     : Called to indicate that the main processing loop is not wedged

#

# Inputs          : None 

#

# Returns         : Nothing

#

my $wedgeTime = 0;

sub resetWedge {

    $wedgeTime = time();

}

#-------------------------------------------------------------------------------

# Function        : isWedged 

#

# Description     : Determine if the current process is wedged

#                   ie: Main processing loop is not cyling

#

# Inputs          : $conf   - Config data 

#

# Returns         : True - is Wedged 

#

sub isWedged

{

    my ($conf) = @_;

    $conf->{logger}->verbose("isWedged ($conf->{wedgeTime}) : " .  (time() - $wedgeTime) );

    return (time() > ($wedgeTime + $conf->{wedgeTime}) );

}