log start and stop of the running process
authorHeiko Schlittermann (ZARAFA.ctq.de) hs@schlittermann.de
Thu, 28 Apr 2011 12:48:05 +0200
changeset 53 1e29d8bd4ae2
parent 52 72c18cbde521
child 54 628fe317b2c1
log start and stop of the running process
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,