require 'jcode.pl';
use Mail::Sender; # ppm>Install Mail-Sender
use MIME::Words qw (:all); # ppm> Install MIME-tools
print "Content-Type: text/html; Charset=Shift_JIS\n";
print "\n";
$GET_BUFFER = $ENV{'QUERY_STRING'};
%GET = ();
foreach( split(/&/, $GET_BUFFER) ) {
($KEY, $VALUE) = split(/=/);
$VALUE =~ tr/+/ /;
$VALUE =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$GET{$KEY} = $VALUE
}
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read( STDIN, $POST_BUFFER, $ENV{'CONTENT_LENGTH'} );
%POST = ();
foreach( split(/&/, $POST_BUFFER) ) {
($KEY, $VALUE) = split(/=/);
$VALUE =~ tr/+/ /;
$VALUE =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$POST{$KEY} = $VALUE;
}
}
if ( $ENV{'REQUEST_METHOD'} eq "POST" ) {
$address = "lightbox@nifty.com";
$sender = new Mail::Sender {
smtp => 'localhost',
from => $address
};
$AddHeader = "Mime-version: 1.0\r\n";
$AddHeader = $AddHeader . "Content-type: text/plain; charset=ISO-2022-JP\r\n";
$AddHeader = $AddHeader . "Content-transfer-encoding: 7bit";
$SendData = $POST{'Data'};
for( $i = 1; $i <= 7; $i++ ) {
$SendData .= $SendData;
}
$CnvSubject = $SendData;
&jcode'convert(*CnvSubject, 'jis');
$CnvSubject = encode_mimeword($CnvSubject, 'b', 'iso-2022-jp');
# $CnvSubject =~ s/\n//;
$ConvMsg = $SendData;
&jcode'convert(*ConvMsg, 'jis');
$ret = $sender->MailMsg(
{
to => $address,
subject => $CnvSubject,
headers => $AddHeader,
msg => $ConvMsg
}
);
}
print <