#!/usr/local/bin/perl -w
################################################################################
# xmpMail   - E-Mails an Verteiler-Liste schicken
# Called by - Command Level
# Calls     - xmpPerl.pm   - DBA Perl Package
#             Getopt       - Argument-Verwaltung
# Optionen  - xmpLOG.PL -a appl -v verteiler/file -t text/textfile
#-------------------------------------------------------------------------------
# Autor     - GR /03.12.01 - V1.0 erste Version
#           - GR /11.12.01 - V1.1 Kleine Ergänzung
#-------------------------------------------------------------------------------
# Comments  Dieses Script nutz aus der Funktions-Biliothek eine zugeordnete
#           Funktion, um eine Nachricht, auch aus einer Datei, an einen
#           Verteiler mit E-Mail-ID's zu senden.
#           Text oder Verteiler-Listen, die sich aus mehreren Worten zusammen-
#           setzen sind in "..." einzuzufassen.
################################################################################

# Modules ######################################################################
use strict;
use Getopt::Std;
use vars qw($opt_a $opt_v $opt_t);
use xmpPerl;
my  $rc;
my  $rl;

my $VER  = "1.1";

# Argumente/Options prüfen #####################################################

getopts("a:v:t:");

if ( (! defined $opt_a )# Application
or   (! defined $opt_v ) # Verteiler/File
or   (! defined $opt_t ) )  {# Text/File
   SaySyntax()
}

################################################################################
# Protokollierung aufrufen
################################################################################
$rl = xmpPerl::MailText($opt_a,$opt_v,$opt_t);
$rc = $?;

################################################################################
# etwas ausgeben, wenn sonst alles ok war
################################################################################
if ($rc != 0) {
   print "$0 failed to create/send E-Mail using $opt_v $opt_t ($rc).\n"
}

print "E-Mail has been sent to\n$rl\n";

exit 0;

#################################################################################
########################################################## Sub Routines #########
# SaySyntax #####################################################################
sub SaySyntax {
die "Usage: [perl] $0 -a ... -v ... -t ...\n".
"-a Applikations-, Prozess- oder Job-Name\n".
"-v E-Mail ID's oder Filename mit Verteiler\n".
"-t Text oder Filename einer Textdatei\n".
"abends ";
}