X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=application-src%2Fscript-email.pl;fp=application-src%2Fscript-email.pl;h=b16f6a69b259c9d22ae51fb9f36ef06329e85e02;hb=2627875b7d18858bc1f9f7652811e4d8c15a23eb;hp=0000000000000000000000000000000000000000;hpb=fb2bd066c2f8b34addafe48d62550e3033a59431;p=debian%2Famanda diff --git a/application-src/script-email.pl b/application-src/script-email.pl new file mode 100644 index 0000000..b16f6a6 --- /dev/null +++ b/application-src/script-email.pl @@ -0,0 +1,210 @@ +#!@PERL@ +# Copyright (c) 2005-2008 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 +# by the Free Software Foundation. +# +# This program is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY +# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +# for more details. +# +# You should have received a copy of the GNU General Public License along +# 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 +# Sunnyvale, CA 94086, USA, or: http://www.zmanda.com + +use lib '@amperldir@'; +use strict; +use Getopt::Long; + +package Amanda::Script::Script_email; +use base qw(Amanda::Script); +use Amanda::Config qw( :getconf :init ); +use Amanda::Debug qw( :logging ); +use Amanda::Util qw( :constants ); +use Amanda::Paths; +use Amanda::Constants; + + +sub new { + my $class = shift; + my ($execute_where, $config, $host, $disk, $device, $level, $index, $message, $collection, $record, $mailto) = @_; + my $self = $class->SUPER::new($execute_where); + + $self->{execute_where} = $execute_where; + $self->{config} = $config; + $self->{host} = $host; + $self->{disk} = $disk; + $self->{device} = $device; + $self->{level} = [ @{$level} ]; # Copy the array + $self->{index} = $index; + $self->{message} = $message; + $self->{collection} = $collection; + $self->{record} = $record; + $self->{mailto} = [ @{$mailto} ]; # Copy the array + + return $self; +} + +sub command_support { + my $self = shift; + + print "CONFIG YES\n"; + print "HOST YES\n"; + print "DISK YES\n"; + print "MESSAGE-LINE YES\n"; + print "MESSAGE-XML NO\n"; + print "EXECUTE-WHERE YES\n"; +} + +#define a execute_on_* function for every execute_on you want the script to do +#something +sub command_pre_dle_amcheck { + my $self = shift; + $self->sendmail("pre-dle-amcheck"); +} + +sub command_pre_host_amcheck { + my $self = shift; + $self->sendmail("pre-host-amcheck"); +} + +sub command_post_dle_amcheck { + my $self = shift; + $self->sendmail("post-dle-amcheck"); +} + +sub command_post_host_amcheck { + my $self = shift; + $self->sendmail("post-host-amcheck"); +} + +sub command_pre_dle_estimate { + my $self = shift; + $self->sendmail("pre-dle-estimate"); +} + +sub command_pre_host_estimate { + my $self = shift; + $self->sendmail("pre-host-estimate"); +} + +sub command_post_dle_estimate { + my $self = shift; + $self->sendmail("post-dle-estimate"); +} + +sub command_post_host_estimate { + my $self = shift; + $self->sendmail("post-host-estimate"); +} + +sub command_pre_dle_backup { + my $self = shift; + $self->sendmail("pre-dle-backup"); +} + +sub command_pre_host_backup { + my $self = shift; + $self->sendmail("pre-host-backup"); +} + +sub command_post_dle_backup { + my $self = shift; + $self->sendmail("post-dle-backup"); +} + +sub command_post_host_backup { + my $self = shift; + $self->sendmail("post-host-backup"); +} + +sub command_pre_recover { + my $self = shift; + $self->sendmail("pre-recover"); +} + +sub command_post_recover { + my $self = shift; + $self->sendmail("post-recover"); +} + +sub command_pre_level_recover { + my $self = shift; + $self->sendmail("pre-level-recover"); +} + +sub command_post_level_recover { + my $self = shift; + $self->sendmail("post-level-recover"); +} + +sub command_inter_level_recover { + my $self = shift; + $self->sendmail("inter-level-recover"); +} + +sub sendmail { + my $self = shift; + my($function) = @_; + my $dest; + if ($self->{mailto}) { + my $destcheck = join ',', @{$self->{mailto}}; + $destcheck =~ /^([a-zA-Z,]*)$/; + $dest = $1; + } else { + $dest = "root"; + } + my @args = ( "-s", "$self->{config} $function $self->{host} $self->{disk} $self->{device} " . join (" ", @{$self->{level}}), $dest ); + my $args = join(" ", @args); + debug("cmd: $Amanda::Constants::MAILER $args\n"); + my $mail; + open $mail, '|-', $Amanda::Constants::MAILER, @args; + print $mail "$self->{config} $function $self->{host} $self->{disk} $self->{device} ", join (" ", @{$self->{level}}), "\n"; + close $mail; +} + +package main; + +sub usage { + print < --execute-where= --config= --host= --disk= --device= --level= --index= --message= --collection= --record= --mailto=. +EOF + exit(1); +} + +my $opt_execute_where; +my $opt_config; +my $opt_host; +my $opt_disk; +my $opt_device; +my @opt_level; +my $opt_index; +my $opt_message; +my $opt_collection; +my $opt_record; +my @opt_mailto; + +Getopt::Long::Configure(qw{bundling}); +GetOptions( + 'execute-where=s' => \$opt_execute_where, + 'config=s' => \$opt_config, + 'host=s' => \$opt_host, + 'disk=s' => \$opt_disk, + 'device=s' => \$opt_device, + 'level=s' => \@opt_level, + 'index=s' => \$opt_index, + 'message=s' => \$opt_message, + 'collection=s' => \$opt_collection, + 'record=s' => \$opt_record, + 'mailto=s' => \@opt_mailto +) or usage(); + +my $script = Amanda::Script::Script_email->new($opt_execute_where, $opt_config, $opt_host, $opt_disk, $opt_device, \@opt_level, $opt_index, $opt_message, $opt_collection, $opt_record, \@opt_mailto); + +$script->do($ARGV[0]); +