X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=clearadm%2Fclearagent.pl;h=fae4519daaf0ad042ec3e0dc3d3271af37104282;hb=0c802537ec02d6cfea4c41b3138535c09a319489;hp=5fae61862a0fcb6a5679a76ff1a2756613e339ab;hpb=81cbd130706633b1c19ff59371c2ef61d80c562b;p=clearscm.git

diff --git a/clearadm/clearagent.pl b/clearadm/clearagent.pl
index 5fae618..fae4519 100755
--- a/clearadm/clearagent.pl
+++ b/clearadm/clearagent.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 =pod
 
@@ -57,6 +57,7 @@ use warnings;
 
 use Getopt::Long;
 use FindBin;
+use Sys::Hostname;
 
 use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
 
@@ -95,7 +96,9 @@ $clearexec = Clearexec->new;
 
 $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;