#!/usr/bin/perl

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

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$FORM{$name} = $value;
}
$mailprog = '/usr/sbin/sendmail';
$recipient = 'adem@alaeddin.cc.selcuk.edu.tr';

open (MAIL, "|$mailprog -t") or &dienice("$mailprog bulunamadı.!\n");
print MAIL "To: $recipient\n";
print MAIL "Reply-to: $FORM{'email'} ($FORM{'name'})\n";
print MAIL "Subject: Form Data\n\n";

foreach $key (keys(%FORM)) {
	print MAIL "$key = $FORM{$key}\n";
}

close(MAIL);

print <<EndHTML;
<h2>Teşekkürler</h2>
İlginiz için çok teşşekkür ederiz. Mesajınız alınmıştır..<p>
</body></html>
EndHTML
;

sub dienice {
	($errmsg) = @_;
	print "<h2>Hata</h2>\n";
	print "$errmsg<p>\n";
	print "</body></html>\n";
	exit;
}