projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added sys alias
[clearscm.git]
/
clearadm
/
clearagent.pl
diff --git
a/clearadm/clearagent.pl
b/clearadm/clearagent.pl
index
5fae618
..
95b0571
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";
@@
-79,7
+80,7
@@
my $clearexec;
my $multithreaded = $Clearexec::CLEAROPTS{CLEAREXEC_MULTITHREADED};
my $daemon = 1;
my $multithreaded = $Clearexec::CLEAROPTS{CLEAREXEC_MULTITHREADED};
my $daemon = 1;
-GetOptions
(
+GetOptions(
'usage' => sub { Usage },
'verbose' => sub { set_verbose },
'debug' => sub { set_debug },
'usage' => sub { Usage },
'verbose' => sub { set_verbose },
'debug' => sub { set_debug },
@@
-93,12
+94,13
@@
Usage 'Extraneous options: ' . join ' ', @ARGV
$clearexec = Clearexec->new;
$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;
display "$FindBin::Script V$VERSION started at " . localtime;