2 # Copyright (c) 2005-2008 Zmanda Inc. All Rights Reserved.
4 # This program is free software; you can redistribute it and/or modify it
5 # under the terms of the GNU General Public License version 2 as published
6 # by the Free Software Foundation.
8 # This program is distributed in the hope that it will be useful, but
9 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
10 # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
13 # You should have received a copy of the GNU General Public License along
14 # with this program; if not, write to the Free Software Foundation, Inc.,
15 # 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17 # Contact information: Zmanda Inc., 465 S Mathlida Ave, Suite 300
18 # Sunnyvale, CA 94086, USA, or: http://www.zmanda.com
20 use lib '@amperldir@';
25 package Amanda::Script::amlog_script;
26 use base qw(Amanda::Script);
27 use Amanda::Config qw( :getconf :init );
28 use Amanda::Debug qw( :logging );
29 use Amanda::Util qw( :constants );
31 use Amanda::Constants;
36 my ($execute_where, $config, $host, $disk, $device, $level, $index, $message, $collection, $record, $logfile) = @_;
37 my $self = $class->SUPER::new($execute_where);
39 $self->{execute_where} = $execute_where;
40 $self->{config} = $config;
41 $self->{host} = $host;
42 $self->{disk} = $disk;
43 $self->{device} = $device;
44 $self->{level} = [ @{$level} ]; # Copy the array
45 $self->{index} = $index;
46 $self->{message} = $message;
47 $self->{collection} = $collection;
48 $self->{record} = $record;
49 $self->{logfile} = $logfile;
57 if (!defined $self->{logfile}) {
58 $self->print_to_server_and_die($self->{action}, "property LOGFILE not set", $Amanda::Script_App::ERROR);
61 my $dirname = File::Basename::dirname($self->{logfile});
63 $self->print_to_server_and_die($self->{action}, "Directory '$dirname' doesn't exist", $Amanda::Script_App::ERROR);
66 $self->print_to_server_and_die($self->{action}, "Directory '$dirname' is not a directory", $Amanda::Script_App::ERROR);
76 print "MESSAGE-LINE YES\n";
77 print "MESSAGE-XML NO\n";
78 print "EXECUTE-WHERE YES\n";
81 #define a execute_on_* function for every execute_on you want the script to do
83 sub command_pre_dle_amcheck {
86 $self->{action} = "check";
88 $self->log_data("pre-dle-amcheck");
91 sub command_pre_host_amcheck {
94 $self->{action} = "check";
96 $self->log_data("pre-host-amcheck");
99 sub command_post_dle_amcheck {
102 $self->{action} = "check";
104 $self->log_data("post-dle-amcheck");
107 sub command_post_host_amcheck {
110 $self->{action} = "check";
112 $self->log_data("post-host-amcheck");
115 sub command_pre_dle_estimate {
118 $self->{action} = "estimate";
120 $self->log_data("pre-dle-estimate");
123 sub command_pre_host_estimate {
126 $self->{action} = "estimate";
128 $self->log_data("pre-host-estimate");
131 sub command_post_dle_estimate {
134 $self->{action} = "estimate";
136 $self->log_data("post-dle-estimate");
139 sub command_post_host_estimate {
142 $self->{action} = "estimate";
144 $self->log_data("post-host-estimate");
147 sub command_pre_dle_backup {
150 $self->{action} = "backup";
152 $self->log_data("pre-dle-backup");
155 sub command_pre_host_backup {
158 $self->{action} = "backup";
160 $self->log_data("pre-host-backup");
163 sub command_post_dle_backup {
166 $self->{action} = "backup";
168 $self->log_data("post-dle-backup");
171 sub command_post_host_backup {
174 $self->{action} = "backup";
176 $self->log_data("post-host-backup");
179 sub command_pre_recover {
182 $self->{action} = "restore";
184 $self->log_data("pre-recover");
187 sub command_post_recover {
190 $self->{action} = "restore";
192 $self->log_data("post-recover");
195 sub command_pre_level_recover {
198 $self->{action} = "restore";
200 $self->log_data("pre-level-recover");
203 sub command_post_level_recover {
206 $self->{action} = "restore";
208 $self->log_data("post-level-recover");
211 sub command_inter_level_recover {
214 $self->{action} = "restore";
216 $self->log_data("inter-level-recover");
221 my($function) = shift;
224 open($log, ">>$self->{logfile}") || $self->print_to_server_and_die($self->{action}, "Can't open logfile '$self->{logfile}' for append: $!", $Amanda::Script_App::ERROR);
225 print $log "$self->{config} $function $self->{execute_where} $self->{host} $self->{disk} $self->{device} ", join (" ", @{$self->{level}}), "\n";
233 Usage: amlog-script <command> --execute-where=<client|server> --config=<config> --host=<host> --disk=<disk> --device=<device> --level=<level> --index=<yes|no> --message=<text> --collection=<no> --record=<yes|no> --logfile=<filename>.
238 my $opt_execute_where;
250 Getopt::Long::Configure(qw{bundling});
252 'execute-where=s' => \$opt_execute_where,
253 'config=s' => \$opt_config,
254 'host=s' => \$opt_host,
255 'disk=s' => \$opt_disk,
256 'device=s' => \$opt_device,
257 'level=s' => \@opt_level,
258 'index=s' => \$opt_index,
259 'message=s' => \$opt_message,
260 'collection=s' => \$opt_collection,
261 'record=s' => \$opt_record,
262 'logfile=s' => \$opt_logfile
265 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);
267 $script->do($ARGV[0]);