Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    else {
       print $LOG "*UNEXPECTED HALT: " . myUtils::timestamp() . "\n\n";
    }
    
  2. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    close $OF;
    
    rename "$FName.work", $FName;