Changeset 12
- Timestamp:
- 12/09/07 22:11:25 (1 year ago)
- Files:
-
- trunk/dev-tools/svn-scripts-run-check.plx (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/dev-tools/svn-scripts-run-check.plx
r10 r12 75 75 $ENV{SHELL} = "/bin/bash"; 76 76 77 chdir("/home/ svn")78 or WarnLog(ParseDate("today"), "unable to change to /home/ svn: $!");77 chdir("/home/hg") 78 or WarnLog(ParseDate("today"), "unable to change to /home/hg: $!"); 79 79 80 80 my %programs = ('loblaw-test' => { pidFile => 81 81 "/home/hg/pids/loblaw-test-update.pid", 82 scriptFile => "/home/ svn/bin/update-loblaw-test.plx" });82 scriptFile => "/home/hg/bin/update-loblaw-test.plx" }); 83 83 84 84 foreach my $key (keys %programs) { … … 98 98 if ( (not defined $pid) or $pid eq "" or $? != 0) { 99 99 unlink($programs{$key}{pidFile}); 100 system("/usr/bin/nohup $programs{$key}{scriptFile} >> /home/ svn/logs/${key}.log 2>&1 &");100 system("/usr/bin/nohup $programs{$key}{scriptFile} >> /home/hg/logs/${key}.log 2>&1 &"); 101 101 WarnLog(ParseDate("today"), "unable to launch $key bot: $!") 102 102 unless ($? == 0);