#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI;
use MIME::Lite;
use CGI::ProgressBar qw/:standard/;
$| = 1; # Do not buffer output
my $CGI = CGI->new();
my $from_email = $CGI->param("from_email");
my $from_name = $CGI->param("from_name");
my $subject = $CGI->param("subject");
my $receipts = $CGI->param("receipts");
my $message = $CGI->param("message");
# Newline format. send message to each email listed
my $output = join "\n", split " ", $receipts;
if ($from_email, $from_name, $subject, $receipts, $message) {
my $msg = MIME::Lite->new(
# From Name: John Deo And Sent From Email: johndeo@mail.com
From => "$from_name <$from_email>",
To => $output,
Subject => $subject,
Data => $message
);
# Support HTML Message
$msg->attr("content-type" => "text/html");
$msg->send;
if ($msg) { # if mail starts sending
print progress_bar( -from=>1, -to=>100 );
for (1..100){
print update_progress_bar;
# Print ProgressBar
$progressbar_html = qq{
};
sleep 1;
}
print $response = "Message Sent Successfully";
exit;
}
if(!$msg) {
print $response = "Message Failed To Send";
}
}
print "Content-type: text/html\n\n";
print <
Simple Mailer
$progressbar_html
$response
START_HTML