Removed /usr/local from CDPATH

[clearscm.git] / clearadm / clearagent.pl

diff --git a/clearadm/clearagent.pl b/clearadm/clearagent.pl
index a6ad922..95b0571 100755 (executable)
--- 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";
 
@@ -79,7 +80,7 @@ my $clearexec;
 my $multithreaded = $Clearexec::CLEAROPTS{CLEAREXEC_MULTITHREADED};
 my $daemon        = 1;
 
-GetOptions (
+GetOptions(
   'usage'           => sub { Usage },
   'verbose'         => sub { set_verbose },
   'debug'           => sub { set_debug },
@@ -93,12 +94,13 @@ Usage 'Extraneous options: ' . join ' ', @ARGV
 
 $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;
   
 display "$FindBin::Script V$VERSION started at " . localtime;
 
@@ -137,9 +139,9 @@ L<Getopt::Long|Getopt::Long>
 =begin html
 
 <blockquote>
-<a href="http://clearscm.com/php/cvs_man.php?file=clearadm/lib/Clearexec.pm">Clearexec</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/Display.pm">Display</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/Utils.pm">Utils</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=clearadm/lib/Clearexec.pm">Clearexec</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/Display.pm">Display</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/Utils.pm">Utils</a><br>
 </blockquote>
 
 =end html