#!/usr/bin/perl

use strict;
use Net::SMTP;
use Jcode;

my $MailerName = "Perl/SMTPAuth.pl";
my $host       = "smtp.mail.yahoo.co.jp";
my $port       = 587;
my $user       = "mslnotify";
my $password   = "";
my $debug      = 1;
my $Hello      = 'msl.titech.ac.jp';
my $Timeout    = 30;
my $charset    = 'iso-2022-jp';
#my $charset   = "iso-8859-1";

my $from     = 'mslnotify@yahoo.co.jp';
#my $from     = 'tkamiya@msl.titech.ac.jp';
my $to       = 'mslnotify@yahoogroups.jp';
#my $to       = 'tkamiya@lucid.msl.titech.ac.jp';
my $cc       = '';
my $bcc      = 'tkamiya@lucid.msl.titech.ac.jp, kamiya.t.aa@m.titech.ac.jp';
my $subject  = 'test';
my $body     = "test\n";

my $smtp = Net::SMTP->new($host, 
		LocalPort => $port, 
		Port      => $port, 
		Hello     => $Hello,
		Timeout   => $Timeout,
		Debug     => $debug,
		);
if($smtp->auth($user, $password)) {
	print "OK\n";
}
else {
	print "auth failed: $!\n";
}

$to      = Jcode->new($to)->h2z->jis;
$from    = Jcode->new($from)->h2z->jis;
$subject = Jcode->new($subject)->h2z->jis;
$body    = Jcode->new($body)->h2z->jis;
$to      = Jcode->new($to)->mime_encode;
$cc      = Jcode->new($cc)->mime_encode;
$bcc     = Jcode->new($bcc)->mime_encode;
$from    = Jcode->new($from)->mime_encode;
$subject = Jcode->new($subject)->mime_encode;

$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("MIME-Version: 1.0\n");
$smtp->datasend("Content-Transfer-Encoding: 7bit\n");
$smtp->datasend("Content-Type: text/plain; charset=\"$charset\"\n");
$smtp->datasend("X-Mailer: $MailerName\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("To: $to\n");
$smtp->datasend("Cc: $cc\n")   if($cc ne '');
$smtp->datasend("Bcc: $bcc\n") if($bcc ne '');
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
$smtp->datasend("$body");
$smtp->dataend();
$smtp->quit;

exit;