#!/usr/bin/perl

use CGI qw/:standard/;
use Jcode;

my $q = new CGI;

my $mailpath	= '/usr/sbin/sendmail -t';
my $mailto	= 'mail@mydomain.com';

my $q = CGI::new();

my $namae	= $q->param('namae');
Jcode::convert(*namae,'jis');
my $zip		= $q->param('zip');
Jcode::convert(*zip,'jis');
my $todofuken	= $q->param('todofuken');
Jcode::convert(*todofuken,'jis');
my $address	= $q->param('address');
Jcode::convert(*address,'jis');
my $tel		= $q->param('tel');
Jcode::convert(*tel,'jis');
my $email	= $q->param('email');
Jcode::convert(*email,'jis');
my $msg		= $q->param('msg');
Jcode::convert(*msg,'jis');

my $message = <<"EOL";

お名前：$namae
〒$zip
都道府県：$todofuken
住所：$address
電話番号：$tel
ご意見：$msg

EOL

my $subject = 'サンプルスクリプト';
Jcode::convert(*subject, 'jis');
$subject = jcode($subject)->mime_encode;
Jcode::convert(*message, 'jis');


open SENDMAIL, "| $mailpath";

print SENDMAIL<<"EOM";
From: $email
To: $mailto
Subject: $subject
Errors-To: $mailto
MIME-Virsion: 1.0
Content-Type:text/plain; charset="ISO-2022-JP"

$message

EOM

close SENDMAIL;

print "Location:http://www.bnets.net/\n\n";