Help for this page

Select Code to Download


  1. or download this
    if (-e $DSNlasttim) { # Check if file exists
            open (LASTTIM,"$DSNlasttim") || die "OPEN INPUT ERROR $DSNlast
    +tim: $!\n";
            $lasttim = do { local $/; <LASTTIM> };
    ...
            $delayrem = $delay - $currtime + $lastatmt;    # Get remaining
    + delay, if any
            if ($delayrem > 0) {$too_qik};    
    }