Subversion Repositories DevTools

########################################################################

# Copyright (c) VIX TECHNOLOGY (AUST) LTD

#

# Module name   : jats_play_sendmail.pl

# Module type   : JATS Utility

# Compiler(s)   : Perl

# Environment(s): jats

#

# Description   : 

#

# Usage         : See POD at the end of this file

#

#......................................................................#

require 5.008_002;

use strict;

use warnings;

use Pod::Usage;

use Getopt::Long;

use LWP::UserAgent;

use HTTP::Request::Common 'POST';

use JatsError;

my $now = localtime;

#

#   Trap: This actually uses SEND mail to do the hard work

#         It won't work under windows, unless there is a send mail program available

#         Does explain how it determines the server under Unix

#

my $req = POST( 'mailto:dpurdie@vixtechnology.com',

    From         => 'buildadm@vixtechnology.com',

    #CC           => 'david@dpurdie.dyndns.org',

    To           => 'David.Purdie',

    Sender       => 'My.Test.Program',

    Date         => scalar localtime,

    Subject      => 'Test Message - ' . $now,

    Content_Type => qq(text/html),

    Content      => 'This is the body of the test message',

);

my $response = LWP::UserAgent->new->request($req);

if ($response->code != 202)

{

    print("BAD Send\n");

    #DebugDumpData("Response", \$response);

}

else

{

    print("Sent OK\n");

}