#!@PERL@
-# Copyright (c) 2005-2008 Zmanda Inc. All Rights Reserved.
+# Copyright (c) 2008, 2009, 2010 Zmanda, Inc. All Rights Reserved.
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License version 2 as published
# with this program; if not, write to the Free Software Foundation, Inc.,
# 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
-# Contact information: Zmanda Inc., 465 S Mathlida Ave, Suite 300
+# Contact information: Zmanda Inc., 465 S. Mathilda Ave., Suite 300
# Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
use lib '@amperldir@';
use strict;
+use warnings;
use Getopt::Long;
use File::Basename;
sub new {
my $class = shift;
- my ($execute_where, $config, $host, $disk, $device, $level, $index, $message, $collection, $record, $logfile) = @_;
- my $self = $class->SUPER::new($execute_where);
+ my ($execute_where, $config, $host, $disk, $device, $level, $index, $message, $collection, $record, $logfile, $text) = @_;
+ my $self = $class->SUPER::new($execute_where, $config);
$self->{execute_where} = $execute_where;
$self->{config} = $config;
$self->{collection} = $collection;
$self->{record} = $record;
$self->{logfile} = $logfile;
+ $self->{text} = $text;
return $self;
}
my $self = shift;
if (!defined $self->{logfile}) {
- $self->print_to_server_and_die($self->{action}, "property LOGFILE not set", $Amanda::Script_App::ERROR);
+ $self->print_to_server_and_die("property LOGFILE not set",
+ $Amanda::Script_App::ERROR);
}
my $dirname = File::Basename::dirname($self->{logfile});
if (! -e $dirname) {
- $self->print_to_server_and_die($self->{action}, "Directory '$dirname' doesn't exist", $Amanda::Script_App::ERROR);
+ $self->print_to_server_and_die("Directory '$dirname' doesn't exist",
+ $Amanda::Script_App::ERROR);
}
if (! -d $dirname) {
- $self->print_to_server_and_die($self->{action}, "Directory '$dirname' is not a directory", $Amanda::Script_App::ERROR);
+ $self->print_to_server_and_die(
+ "Directory '$dirname' is not a directory",i
+ $Amanda::Script_App::ERROR);
}
}
sub command_pre_dle_amcheck {
my $self = shift;
- $self->{action} = "check";
$self->setup();
$self->log_data("pre-dle-amcheck");
}
sub command_pre_host_amcheck {
my $self = shift;
- $self->{action} = "check";
$self->setup();
$self->log_data("pre-host-amcheck");
}
sub command_post_dle_amcheck {
my $self = shift;
- $self->{action} = "check";
$self->setup();
$self->log_data("post-dle-amcheck");
}
sub command_post_host_amcheck {
my $self = shift;
- $self->{action} = "check";
$self->setup();
$self->log_data("post-host-amcheck");
}
sub command_pre_dle_estimate {
my $self = shift;
- $self->{action} = "estimate";
$self->setup();
$self->log_data("pre-dle-estimate");
}
sub command_pre_host_estimate {
my $self = shift;
- $self->{action} = "estimate";
$self->setup();
$self->log_data("pre-host-estimate");
}
sub command_post_dle_estimate {
my $self = shift;
- $self->{action} = "estimate";
$self->setup();
$self->log_data("post-dle-estimate");
}
sub command_post_host_estimate {
my $self = shift;
- $self->{action} = "estimate";
$self->setup();
$self->log_data("post-host-estimate");
}
sub command_pre_dle_backup {
my $self = shift;
- $self->{action} = "backup";
$self->setup();
$self->log_data("pre-dle-backup");
}
sub command_pre_host_backup {
my $self = shift;
- $self->{action} = "backup";
$self->setup();
$self->log_data("pre-host-backup");
}
sub command_post_dle_backup {
my $self = shift;
- $self->{action} = "backup";
$self->setup();
$self->log_data("post-dle-backup");
}
sub command_post_host_backup {
my $self = shift;
- $self->{action} = "backup";
$self->setup();
$self->log_data("post-host-backup");
}
sub command_pre_recover {
my $self = shift;
- $self->{action} = "restore";
$self->setup();
$self->log_data("pre-recover");
}
sub command_post_recover {
my $self = shift;
- $self->{action} = "restore";
$self->setup();
$self->log_data("post-recover");
}
sub command_pre_level_recover {
my $self = shift;
- $self->{action} = "restore";
$self->setup();
$self->log_data("pre-level-recover");
}
sub command_post_level_recover {
my $self = shift;
- $self->{action} = "restore";
$self->setup();
$self->log_data("post-level-recover");
}
sub command_inter_level_recover {
my $self = shift;
- $self->{action} = "restore";
$self->setup();
$self->log_data("inter-level-recover");
}
my($function) = shift;
my $log;
- open($log, ">>$self->{logfile}") || $self->print_to_server_and_die($self->{action}, "Can't open logfile '$self->{logfile}' for append: $!", $Amanda::Script_App::ERROR);
- print $log "$self->{config} $function $self->{execute_where} $self->{host} $self->{disk} $self->{device} ", join (" ", @{$self->{level}}), "\n";
+ open($log, ">>$self->{logfile}") ||
+ $self->print_to_server_and_die(
+ "Can't open logfile '$self->{logfile}' for append: $!",
+ $Amanda::Script_App::ERROR);
+ print $log "$self->{action} $self->{config} $function $self->{execute_where} $self->{host} $self->{disk} $self->{device} ", join (" ", @{$self->{level}}), " $self->{text}\n";
close $log;
}
my $opt_collection;
my $opt_record;
my $opt_logfile;
+my $opt_text;
Getopt::Long::Configure(qw{bundling});
GetOptions(
'message=s' => \$opt_message,
'collection=s' => \$opt_collection,
'record=s' => \$opt_record,
- 'logfile=s' => \$opt_logfile
+ 'logfile=s' => \$opt_logfile,
+ 'text=s' => \$opt_text
) or usage();
-my $script = Amanda::Script::amlog_script->new($opt_execute_where, $opt_config, $opt_host, $opt_disk, $opt_device, \@opt_level, $opt_index, $opt_message, $opt_collection, $opt_record, $opt_logfile);
+my $script = Amanda::Script::amlog_script->new($opt_execute_where, $opt_config, $opt_host, $opt_disk, $opt_device, \@opt_level, $opt_index, $opt_message, $opt_collection, $opt_record, $opt_logfile, $opt_text);
$script->do($ARGV[0]);