Feedback

#!/usr/sbin/perl ############################################################ # feedback.cgi - Tulassay Zsolt 1998. # 0.1 változat ############################################################ $sendmail = "/usr/lib/sendmail"; #################### sub parse_input { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @valtozoparok = split(/&/, $buffer); foreach $valtozopar (@valtozoparok) { ($nev, $ertek) = split(/=/, $valtozopar); $ertek =~ tr/+/ /; $ertek =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $ertek =~ s///g; $FORM{$nev} = $ertek; } if ($FORM{'to'}) { $to = "$FORM{'to'}" } else { &error(no_to) } if ($FORM{'subject'}) { $subject = "$FORM{'subject'}" } else { $subject = "Feedback" } if ($FORM{'link'}) { $link = "$FORM{'link'}" } else { $link = "http://www.c3.hu/~tulas/feedback.html" } if ($FORM{'name'}) { $name = "$FORM{'name'}" } else { $name = "Névtelen" } if ($FORM{'email'}) { $email = "$FORM{'email'}" } $sender = "$name <$email>"; if ($FORM{'message'}) { $message = "$FORM{'message'}" } else { &error(no_message)} } #################### sub time { ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); if ($sec < 10) { $sec = "0$sec" } if ($min < 10) { $min = "0$min" } if ($hour < 10) { $hour = "0$hour" } if ($mon < 10) { $mon = "0$mon" } if ($mday < 10) { $mday = "0$mday" } $year = $year + 1900; @napok = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat"); @honapok = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"); $date = "$napok[$wday], $mday $honapok[$mon] $year $hour\:$min\:$sec +0100"; } #################### sub mail { open(MAIL,"|$sendmail $to"); print MAIL "From: $sender\n"; print MAIL "To: $to\n"; print MAIL "Subject: $subject\n"; print MAIL "Date: $date\n"; print MAIL "X-Sender: feedback.cgi v0.1 by Tulassay Zsolt tulas\@c3.hu\n"; print MAIL "$message\n"; close(MAIL); } #################### sub error { if ($_[0] eq 'no_to') { &htmloutput("Hiba: Nincs címzett magadva."); exit } if ($_[0] eq 'no_message') { &htmloutput("Hiba: Nincs üzenet."); exit } } #################### sub htmloutput { $hibauzenet = $_[0]; print "Content-type: text/html\n\n"; print "\nFeedback\n"; print "\n"; print "\n\n\n"; print "\n"; print "\n"; print "

\n\n\n\n"; } ############################################################ # A program ########### if ($ENV{'CONTENT_LENGTH'} eq '') { &htmloutput("Hiba: Nincs bemenő adat.") } else { &parse_input; &time; &mail; print "Location: $link\n"; print "Content-type: text/html\n\n"; }