#!/usr/bin/perl -w
# usage : sendhtml.pl subject To_User html_file
my $sendmail = "/usr/sbin/sendmail";
my $fromuser = "FROM: admin\@mail.com\n";
$subject = "Subject: $ARGV[0]\n";
$touser = "TO: $ARGV[1]\n";
$htmlfile = $ARGV[2];
# usage : sendhtml.pl subject To_User html_file
my $sendmail = "/usr/sbin/sendmail";
my $fromuser = "FROM: admin\@mail.com\n";
$subject = "Subject: $ARGV[0]\n";
$touser = "TO: $ARGV[1]\n";
$htmlfile = $ARGV[2];
open(MAIL, "| $sendmail -t");
print MAIL "Mime-Version: 1.0\n";
print MAIL "Content-type: text/html\; charset=\"iso-8859-1\"\n";
print MAIL $fromuser;
print MAIL $touser;
print MAIL $subject;
print MAIL "Mime-Version: 1.0\n";
print MAIL "Content-type: text/html\; charset=\"iso-8859-1\"\n";
print MAIL $fromuser;
print MAIL $touser;
print MAIL $subject;
open HTML, "$htmlfile" or die $!;
while (my $line = <HTML>) {
print MAIL "$line";
}
close(HTML);
close(MAIL);
while (my $line = <HTML>) {
print MAIL "$line";
}
close(HTML);
close(MAIL);