Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
$logfile->append( localtime() . " end\n" );
print $logfile->slurp; # FIXME for testing
# rename here...
  2. or download this
    Mon Sep 12 09:54:46 2022 begin
192.168.1.13:3143 ok in 0.003s
...
192.168.1.18:3143 timeout in 0.103s
192.168.1.17:3143 timeout in 0.104s
Mon Sep 12 09:54:46 2022 end