#!/usr/bin/perl

# Historie 

use strict;
use warnings;

use Getopt::Long;
use Win32::Service;
use Mail::Sendmail;
use 5.010;
use POSIX;

# main-parameters
my %config=(
  "email_to"=>'',                                  # es kann auch eine Liste von Empfaengern angegeben werden, Trennzeichen ";"
  "email_from"=>'xxxxxx-xxxxxx@xxxxxx.de',             # von wem wird die eMail versandt
  "email_pwd"=>'xxxxxx',                       # Anmeldepasswort am Exchange
  "email_required"=>1,                             # eine Authorisierung erforderliche?
  "email_smtp"=>'xxxxxx.local.xxxxxx.de',       # Exchange-Server
    # werden erst später belegt
    "email_subject"=>'',
    "email_subject_error"=>'',
);

GetOptions
( 
  "help|h"             => sub{ Usage(); },
  "to=s"               => \$config{email_to},
) or Usage();


sub Usage
{
	my( $message ) = @_;

	if( $message )
	{
		print "$message\n" if ($config{silent} == 1);
	}
	print "\t-help\tDokumentation dieses Skriptes\n";
	print "\n";
	print "\t-to\t\tEmpfaenger fuer eMail - nur eine derzeit moeglich\n";
	
	
	print "....\n";

	exit 0;					# beenden
}

my $hostname = 'localhost'; # this means local host.
my $name_of_this_machine = (gethostbyname ($hostname))[0];

my %mail = ( To          => $config{email_to},
                From      => $config{email_from},
                Message   => "Diese Mail wurde automatisch verschickt!",
			    Subject   => "** NEUSTART Server: ".$name_of_this_machine,
              );
		   
  $mail{auth} = {user=>$config{email_from}, password=>$config{email_pwd}, required=>$config{email_required} };

  $mail{Smtp} = $config{email_smtp}; 
 
  sendmail(%mail) or die $Mail::Sendmail::error;
  print "OK. Log says:\n", $Mail::Sendmail::log ;
   
exit (0);