#!/usr/bin/perl 
use strict;
use lib qw(/home/wakaba/public_html/-temp/wiki/lib);
use SuikaWiki::Input::HTTP;
use Jcode;
use Message::Entity;
use Net::SMTP;

my $mailto = q<fuyufuyuki@ybb.ne.jp>;
my $sender = q<webmaster@suika.fam.cx>;
my $subject = Jcode->new (q{同窓会アンケート})->jis;

my $input = SuikaWiki::Input::HTTP->new;
$input->{decoder}->{'#default'} = sub {
  my ($http, $s, $temp_params) = @_;
  my $charset = lc (@{$temp_params->{_charset_}||[]}[0]);
  $charset = 'jis' if $charset =~ /iso/;
  $charset = 'utf8' if $charset =~ /utf/;
  $charset = 'euc' if $charset =~ /euc/;
  $charset = 'sjis' if $charset =~ /shift/;
  return Jcode->new (\$s, $charset)->jis;
};

unless ($input->meta_variable ('REQUEST_METHOD') eq 'POST') {
  print "Status: 405 Method Not Allowed\nAllow: POST\n\n";
  exit;
}

my $msg = new Message::Entity;
my $hdr = $msg->header;
$hdr->field ('From')->add ($sender);
$hdr->field ('To')->add ($mailto);
$hdr->field ('Subject')->value ($subject);

my $v = '';
for (sort $input->parameter_names) {
  $v .= $_ . "\t" . join (' ', $input->parameter ($_)) . "\n";
}

my $body = $msg->body;
$body->value ($v);

my $smtp = Net::SMTP->new ('localhost');
$smtp->mail ($sender);
$smtp->to ($mailto);
$smtp->data ($msg->stringify);
$smtp->send;

print "Status: 303 OK\nLocation: http://www.geocities.jp/risu7h55/top.htm\n\n";

## License: Public Domain.