projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Big update of Clearadm
[clearscm.git]
/
clearadm
/
clearagent.pl
diff --git
a/clearadm/clearagent.pl
b/clearadm/clearagent.pl
index
5fae618
..
fae4519
100755
(executable)
--- a/
clearadm/clearagent.pl
+++ b/
clearadm/clearagent.pl
@@
-1,4
+1,4
@@
-#!/usr/bin/perl
+#!/usr/bin/
env
perl
=pod
=pod
@@
-57,6
+57,7
@@
use warnings;
use Getopt::Long;
use FindBin;
use Getopt::Long;
use FindBin;
+use Sys::Hostname;
use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
@@
-95,7
+96,9
@@
$clearexec = Clearexec->new;
$clearexec->setMultithreaded ($multithreaded);
$clearexec->setMultithreaded ($multithreaded);
-my $logfile = "$Clearexec::CLEAROPTS{CLEAREXEC_LOGDIR}/$FindBin::Script.log";
+my $logfile = "$Clearexec::CLEAROPTS{CLEAREXEC_LOGDIR}/$FindBin::Script";
+ $logfile =~ s/\.pl$//;
+ $logfile .= '.' . hostname() . '.log';
EnterDaemonMode $logfile, $logfile, $pidfile
if $daemon;
EnterDaemonMode $logfile, $logfile, $pidfile
if $daemon;