#! /usr/bin/perl

use Net::SMTP;
use URI::Escape;

my $recipient='dave@oksner.org';
my $query_string;

if ($ENV{QUERY_MTHD} eq "GET")
{
    $query_string = $ENV{QUERY_STRING};
}
else
{
    $query_string = <STDIN>;
}

$query_string = uri_unescape($query_string);
$query_string =~ s/\+/ /g;

print "Content-type: text/plain\n\n";

#print "VERY basic request parsing:\n\n";

#print "Query string: $query_string\n";

my @query = split /&/, $query_string;
my @output;

#print "Query 1: $query[0]\n";

for (my $i = 0; $i < $#query; $i++)
{
    #print "$query[$i]\n";
    my ($key,$value) = split /=/, $query[$i];
    #print "$key: $value\n";
    if ($value eq "on")
    {
        push @output,"$key: Yes\n";
    }
    else
    {
        push @output,"$key: $value\n";
    }
}

print "Information as sent to $recipient:\n";
print "@output";

my $smtp = Net::SMTP->new('localhost');

$smtp->mail('dave@oksner.org');
$smtp->to("$recipient");

$smtp->data();
$smtp->datasend("To: $recipient\n");
$smtp->datasend("Subject: Membership Inquiry\n");
$smtp->datasend("\n");
$smtp->datasend("Information:\n");
$smtp->datasend("@output");
$smtp->datasend("");

$smtp->quit;

exit 0;