Select Code to Download

Select or download this

    # Close the log file and save information for next log check.
    # Remember where (and when) we stopped reading for next time.
    $FTPTrkLastReadPos  = tell(FTPLOG);
    $FTPTrkLastReadTime = time;
    close(FTPLOG);

Select or download this

    # Get current characteristics of the log file
    my ($filesize,$modified,$created) = (stat(_))[7,9,10];
...

    # Process any and all new entries
    seek FTPLOG, $FTPTrkLastReadPos, 0;