#!/usr/bin/perl -w
#
use Net::SMTP;

  my $smtp;
    if(!defined($ARGV[4]))
    {
         print "Usage :\ncnxsmtpex hote sujet emetEnv destEnv message \n\n";
          exit 1;
    }

    $serveur_smtp=$ARGV[0];
    $sujet=$ARGV[1];
    $emetteur=$ARGV[2];
    $mailto=$ARGV[3];
    $message=`cat $ARGV[4]`;

    $smtp = Net::SMTP->new($serveur_smtp, Hello => 'cnxsmtp', Debug => 1) or exit 1;
    $smtp->mail($emetteur) or exit 1;
    $smtp->to($mailto) or exit 1;
    $smtp->data() or exit 1;
    $smtp->datasend("From: $emetteur\n") or exit 1;
    $smtp->datasend("To: $mailto\n") or exit 1;
    $smtp->datasend("Subject: $sujet\n") or exit 1;
    $smtp->datasend("\n") or exit 1;
    $smtp->datasend("$message") or exit 1;
    $smtp->datasend("\n") or exit 1;
    $smtp->dataend() or exit 1;
    $smtp->quit or exit 1;

exit;
