NAME

SysAdmin::SMTP - Perl Net::SMTP class wrapper module.

SYNOPSIS

        use SysAdmin::SMTP;
        
        my $smtp_object = new SysAdmin::SMTP(server => "localhost");
        
        my $from_address = qq("Test User" <test_user\@test.com>);
        my $subject = "Test Subject";
        my $message_body = "Test Message";
        my $email_recipients = ["test_receiver\@test.com"];
        
        $smtp_object->sendEmail(from    => $from_address,
                            to      => $email_recipients,
                            subject => $subject,
                            body    => $message_body);
        

DESCRIPTION

This is a sub class of SysAdmin. It was created to harness Perl Objects and keep code abstraction to a minimum.

SysAdmin::SMTP uses Net::SMTP, MIME::Lite to send emails.

METHODS

new()

        my $smtp_object = new SysAdmin::SMTP(server => "localhost");
        

Declare the SysAdmin::SMTP object instance. Takes the SMTP server as the only variable to use.

sendEmail()

        my $from_address = qq("Test User" <test_user\@test.com>);
        my $subject = "Test Subject";
        my $message_body = "Test Message";
        my $email_recipients = ["test_receiver\@test.com"];
        
        $smtp_object->sendEmail(from    => $from_address,
                            to      => $email_recipients,
                            subject => $subject,
                            body    => $message_body);
                                                                                                                

SEE ALSO

Net::SMTP - Simple Mail Transfer Protocol Client

MIME::Lite - low-calorie MIME generator

AUTHOR

Miguel A. Rivera

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.