Subversion Repositories camp_sysinfo_client_3

#! perl -w

# yes, I got tired of Perl deciding it was going to be one place or 

# another, so I just say "look in the path". Of course, if /tmp is

# in the path . . . .

# script takes a standard sendmail message formatted file (you know the

# one, where you have From:, To:, etc...), pulls the header info out, 

# then uses that to send via the sendEmail script.

# this way, you can use a standard format for an e-mail, but conver it

# to something else.

# of course, that means you are formatting one way, then reformatting

# another, but it is better than rewriting your main script.

my $mailServer;

my $smtpUser;

my $smtpPass;

my $config = '/root/sysinfo_mail';

my $emailScript = '/opt/sendEmail/sendEmail.pl';

my $logFile = '/tmp/mail.log';

my $tls = "'auto'";

# just pre-delaring some variables

my $from;

my $to;

my $subject;

my $cc;

my $bcc;

my $message;

if ( -e '/root/sysinfo_mail' ) {

   open DATA,"<$config" or die "Could not read config $config: $!\n";

   my $commands = join( '', <DATA> );

   die "Could not parse $config\n" unless eval( $commands );

}

while ( $line = <> ) {

   if ( $line =~ m/^From:\s+(.*)$/ ) {   

      $from = $1;   

      chomp $from;   

   }

   if ( $line =~ m/^To:\s+(.*)$/ ) { 

      $to = $1;

      chomp $to;

   }

   if ( $line =~ m/^Subject:\s+(.*)$/ ) {

      $subject = $1;

      chomp $subject;

   }

   if ( $line =~ m/^cc:\s+(.*)$/ ) {

      $cc = $1;

      chomp $cc;

   }

   if ( $line =~ m/^bcc:\s+(.*)$/ ) {

      $bcc = $1;

      chomp $bcc;

   }

   if ( $line =~ m/^$/ ) { # blank line, so the rest is the message

      $message = join( '', <> );

   }

}

#print "From: $from\nTo: $to\nSubject: $subject\n";

#print "cc: $cc\n" if $cc;

#print "bcc: $bcc\n" if $bcc;

#print "\n$message";

my %CLIParams ;

$CLIParams{'-f'}  = qq/$from/;

$CLIParams{'-t'}  = qq/$to/;  

$CLIParams{'-u'}  = qq/$subject/;

$CLIParams{'-s'}  = qq/$mailServer/;

$CLIParams{'-xu'} = qq/$smtpUser/;  

$CLIParams{'-xp'} = qq/$smtpPass/;  

$CLIParams{'-cc'} = qq/$cc/ if $cc; 

$CLIParams{'-bcc'}= qq/$bcc/ if $bcc;

$CLIParams{'-l'}  = qq/$logFile/;

$CLIParams{'-o tls='} = qq/$tls/ if $tls;

$commandLine = qq/$emailScript/;

die "Could not find executable $commandLine in sendEmailScript\n" unless -x $commandLine;

$commandLine .= ' -q'; # make it act quietly

foreach my $key ( keys %CLIParams ) {

   # depending on whether the key ends in an = or not, we will or will not use a space

   # between the key and the parameter

   $commandLine .= $key =~ m/=$/ ? " $key'$CLIParams{$key}'" : " $key '$CLIParams{$key}'";

}

$commandLine .= ' ' . $$parameters{'otherCLParams'} if $$parameters{'otherCLParams'};

#print "$commandLine\n";

open SENDMAIL, "|$commandLine" or die "Could not open [$commandLine]: $!\n";

print SENDMAIL $message;

close SENDMAIL;