# HG changeset patch # User Heiko Schlittermann (ZARAFA.ctq.de) hs@schlittermann.de # Date 1303987685 -7200 # Node ID 1e29d8bd4ae22f2a4e093780bab65f29735e4534 # Parent 72c18cbde521710d1ff114e25f62509dc9ffa05c log start and stop of the running process diff -r 72c18cbde521 -r 1e29d8bd4ae2 bin/ftbackup --- a/bin/ftbackup Thu Apr 28 11:26:03 2011 +0200 +++ b/bin/ftbackup Thu Apr 28 12:48:05 2011 +0200 @@ -61,9 +61,14 @@ KEEP => 2, ); +END { + say STDERR "*** $ME STOP: " . localtime if not -t STDERR; +} MAIN: { + say STDERR "*** $ME START: " . localtime if not -t STDERR; + Getopt::Long::Configure("bundling"); GetOptions( "l|level=i" => \$opt_level,