#!/usr/local/bin/perl

$mailprog = '/usr/lib/sendmail';

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

read (STDIN,$QUERY,$ENV{CONTENT_LENGTH});
do settags($QUERY);
do settags($ENV{'PATH_INFO'});
do fixtags();

if ( $tags{'from'} =~ m/\@/ && $tags{body} ne "" ) {
        do mail();
} else {
        do form();
}

do cgiFoot();

sub cgiFoot {
        print <<EOM;
        <HR>
        <ADDRESS>
        <B>MailIt</B> by <A HREF=/~zturk/>Z. Turk</A>.
        </ADDRESS>
EOM
}

sub mail {

        print "<TITLE>MailIt Response</TITLE>\n";
        print "<H1>MailIt Response</H1>\n";

        $Anon = 1 if $tags{'anon'};

        # Now send mail to $tags{'to'}

        open (MAIL, "|$mailprog $tags{'to'}") || die "Can't open $mailprog!\n";
        $mail = "";
        $mail .= "From: $tags{'from'}\n";
        $mail .= "Subject: $tags{'subject'}\n\n";
        $mail .= "$tags{'body'}\n";
        $mail .= "------------------------------------------------\n" .
        "Sent by http://www.fagg.uni-lj.si/cgi-bin/mailit\n" .
        "for $ENV{'REMOTE_HOST'} at $ENV{'REMOTE_ADDR'} \n" .
	"using $ENV{'HTTP_USER_AGENT'} \n" unless $Anon==1;
        print MAIL $mail;
        close (MAIL);

        print "This mail was sent:<PRE>\n";
        print "To: $tags{'to'}\n";
	print $mail;

        print "</PRE>\n";
}


# ------------------------------------------------------------

sub form {

	$ENV{'PATH_INFO'} =~ s/ /\%20/g;
	$ENV{'PATH_INFO'} =~ s/\r/\%0D/g;
	$ENV{'PATH_INFO'} =~ s/\n/\%0A/g;

 	$Anon = 1 if $tags{'anon'};

        print <<EOM;
        <TITLE> Mail form </TITLE>
        <H1> Mail Form: $tags{'subject'} </H1>

        <FORM METHOD=POST ACTION="$ENV{'SCRIPT_NAME'}$ENV{'PATH_INFO'}">
	<PRE>
EOM

        if ($tags{'from'} eq "") {
                print "   From: <INPUT NAME=from SIZE=35> - write your email address here";
        } else {
                print "   From: <B>$tags{'from'}</B>";
        }
        print "\n";

        if ($tags{'to'} eq "") {
                print "     To: <INPUT NAME=to SIZE=35>";
        } else {
                print "     To: <B>$tags{'to'}</B>";
        }
        print "\n";

        if ($tags{'subject'} eq "") {
                print "Subject: <INPUT NAME=subject SIZE=54>";
        } else {
                print "Subject: <B>$tags{'subject'}</B>";
        }
        print "<BR>\n";

        print "Message: ";
        if ($tags{'body'} eq "") {
                print "<TEXTAREA NAME=body ROWS=15 COLS=60></TEXTAREA>";
        } else {
                print "$tags{'body'}";
        }
        print "</PRE>\n";

	print <<EOM;
	<Input TYPE=CHECKBOX NAME="anon"> Anonymously<BR><BR>
        <Input TYPE="submit" VALUE="Send">
        <Input TYPE="reset" VALUE="Reset">
        </FORM>
EOM
        print "ANONYMOUS !!!\n" if $Anon == 1; 
}

# ------------------------------------------------------------

sub settags {
        local($_) = @_;
        s|^/||;
        if (/=/) {
                @terms = split('&');
                foreach $term (@terms) {
                        ($tag,$val) = split('=',$term,2);
                        # may override previous value
                        $tags{$tag} = $val;
                        # print "\$tag { $tag } = $val\n";
                }
        }
        # No '=', so the whole string must be a query:
        else {
            $tags{'isindex'} = $_;
        }
}

sub fixtags {
        foreach $tag (keys(%tags)) {
                $tags{$tag} =~ s/\+/ /g;
                $tags{$tag} =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig;
        }
}