#!/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';
$From = $FORM{'From'};
$To = $FORM{'To'};
$Cc = $FORM{'Cc'};
$Subject = $FORM{'Subject'};
$Message = $FORM{'Message'};
if ($From eq "" or $To eq "" or $Subject eq "" or $Message eq ""){
&MesajGoster("Hata: Bilgileriniz eksik... ");
}
open (MAIL, "|$mailprog -t") or &MesajGoster("Hata: $mailprog bulunamadı... ");
print MAIL "From: $From\n";
print MAIL "To: $To\n";
print MAIL "Reply-to: $From\n";
if ($Cc ne ""){
print MAIL "Cc: $Cc\n";
}
if ($Attach ne ""){
print MAIL "Attach: $Attach\n";
}
print MAIL "Subject: $Subject\n\n";
print MAIL "$Message\n";
# foreach $key (keys(%FORM)) {
# print MAIL "$key = $FORM{$key}\n";
# print "$key = $FORM{$key}\n";
# }
close(MAIL);
&MesajGoster("Sonuç: E-mailiniz başarıyla gönderilmiştir... ");
sub MesajGoster {
($errmsg) = @_;
print "\n";
print "\n";
print "S.Ü. Teknik Bilimler Meslek Yüksekokulu\n";
print "\n";
print "\n";
print "WebMail Servisi
\n";
print "$errmsg\n";
print "Devam etmek için BURAYA tıklayın.\n";
print "\n";
exit 0;
}