NAME

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

SYNOPSIS

	use SysAdmin::SMTP;
	
	my $smtp_object = new SysAdmin::SMTP("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("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.