my $VERSION = '$Revision: 1.1 $';
($VERSION) = ($VERSION =~ /\$Revision: (.*) /);
-sub SetupAgent () {
+sub SetupAgent() {
verbose 'Setting up Agent...';
my ($status, @output, $cmd);
($status, @output) = Execute "$cmd 2>&1";
- error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status
- if $status;
+ error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status if $status;
$cmd = "chmod 777 $Clearadm::CLEAROPTS{CLEARADM_BASE}/$_";
# Symlink $CLEARADM/etc/conf.d/clearadm -> /etc/init.d
my $confdir = '/etc/init.d';
- error "Cannot find conf.d directory ($confdir)", 1
- unless -d $confdir;
+ error "Cannot find conf.d directory ($confdir)", 1 unless -d $confdir;
unless (-e "$confdir/clearagent") {
$cmd = "ln -s $FindBin::Bin/etc/init.d/clearagent $confdir";
($status, @output) = Execute "$cmd 2>&1";
- error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status
- if $status;
+ error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status if $status;
verbose 'Starting clearagent';
($status, @output) = Execute "$cmd 2>&1";
- error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status
- if $status;
+ error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status if $status;
} else {
$cmd = 'update-rc.d clearagent defaults';
($status, @output) = Execute "$cmd 2>&1";
- error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status
- if $status;
+ error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status if $status;
verbose 'Starting clearagent';
return;
} # SetupAgent
-sub SetupTasks () {
+sub SetupTasks() {
my ($status, @output, $cmd);
verbose 'Setting up Tasks...';
# Symlink $CLEARADM/etc/conf.d/cleartasks -> /etc/init.d
my $confdir = '/etc/init.d';
- error "Cannot find conf.d directory ($confdir)", 1
- unless -d $confdir;
+ error "Cannot find conf.d directory ($confdir)", 1 unless -d $confdir;
unless (-e "$confdir/clearadm") {
$cmd = "ln -s $FindBin::Bin/etc/init.d/cleartasks $confdir";
($status, @output) = Execute "$cmd 2>&1";
- error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status
- if $status;
+ error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status if $status;
} # unless
# Setup runlevel links
($status, @output) = Execute "$cmd 2>&1";
- error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status
- if $status;
+ error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status if $status;
verbose 'Starting cleartasks';
($status, @output) = Execute "$cmd 2>&1";
- error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status
- if $status;
+ error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status if $status;
verbose 'Done';
return;
} # SetupTasks
-sub SetupWeb () {
+sub SetupWeb() {
verbose 'Setting up Web...';
my ($status, @output, $cmd);
# Symlink $CLEARADM/etc/conf.d/clearadm -> /etc/apache2/conf.d
my $confdir = '/etc/apache2/conf.d';
- error "Cannot find Apache 2 conf.d directory ($confdir)", 1
- unless -d $confdir;
+ error "Cannot find Apache 2 conf.d directory ($confdir)", 1 unless -d $confdir;
unless (-e "$confdir/clearadm") {
$cmd = "ln -s $FindBin::Bin/etc/conf.d/clearadm $confdir";
return;
} # SetupWeb
-sub SetupDatabase () {
+sub SetupDatabase() {
verbose 'Setting up Database';
my ($status, @output, $cmd);
($status, @output) = Execute "$cmd 2>&1";
- error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status
- if $status;
+ error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status if $status;
verbose 'Setting up database users';
($status, @output) = Execute "$cmd 2>&1";
- error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status
- if $status;
+ error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status if $status;
verbose 'Setting up predefined tasks';
($status, @output) = Execute "$cmd 2>&1";
- error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status
- if $status;
+ error "Unable to execute $cmd (Status: $status)\n" . join("\n", @output), $status if $status;
verbose 'Done';
my $package = 'all';
-GetOptions (
+GetOptions(
usage => sub { Usage },
verbose => sub { set_verbose },
debug => sub { set_debug },
'package=s' => \$package,
) or Usage "Invalid parameter";
-Usage 'Extraneous options: ' . join ' ', @ARGV
- if @ARGV;
+Usage 'Extraneous options: ' . join ' ', @ARGV if @ARGV;
# Announce ourselves
verbose "$FindBin::Script V$VERSION";