Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Wednesday, October 14, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / perl / syswatcher

Diff for scripts/perl/syswatcher/syswatcher.pl between version 1.1 and 1.2

version 1.1, 2003/11/10 17:36:57 version 1.2, 2003/11/13 17:28:52
Line 13 
Line 13 
 # 16/10/2003 - added automatic database reconnecting (nepto)  # 16/10/2003 - added automatic database reconnecting (nepto)
 #  #
   
 # $Platon$  # $Platon: scripts/syswatcher/syswatcher.pl,v 1.1 2003/11/10 17:36:57 rajo Exp $
   
 use strict;  use strict;
   
Line 64  while (1) {
Line 64  while (1) {
                 sleep $update_interval;                  sleep $update_interval;
   
                 my $modify_time = -86400.0 * -M $0;                  my $modify_time = -86400.0 * -M $0;
                 if ($modify_time > 0) { # Autorestart                  if (defined $modify_time && $modify_time > 0) { # Autorestart - if file exists and is modified
                         print_info("Script '$0' MODIFIED $modify_time seconds after startup, restarting ...");                          print_info("Script '$0' MODIFIED $modify_time seconds after startup, restarting ...");
                         sleep $update_interval;  
                         exec $0;                          exec $0;
                 }                  }
         }          }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top