🚀 go-pugleaf

chudzik wrote:
> Czy moglby mi ktos podeslac formularz w HTML-u
> i obslugujacy go skrypt CGI,
> ktory notke z formularza (list) przesle e-mail'em na
> jedno z kont serwera (RedHat 4.2),
> na ktorym bedzie zainstalowana strona z tym formularzem.

Ja napisalem cos takiego.
(zamienia tabelke w formularzu, na tabelke w html'u i to
wysyla jako list).
Prosze o uwagi, szczegolnie jesli chodzi o bezpiecznstwo.

#!/usr/local/bin/perl -w

print "Content-Type: text/html; charset=iso-8859-2\n\n";

$_="";
$len=$ENV{'CONTENT_LENGTH'};
read(STDIN, $_, $len)==$len || die "Error reading data in $0";

print '<html><body bgcolor="#ffffff"><h1>Information sent</h1><hr>
';

y/+/ /;
s/=/<\/td><td>:<\/td><td>/g;
s/&/<\/td><\/tr>\n<tr><td align=right>/g;
s/%0D%0A/<br>/ig;
s/%([\dA-F][\dA-F])/chr(hex($1))/eig;
$_="<table>\n<tr><td align=right>$_<\/td><\/tr>\n<\/table>\n";

print;

print '<br><img border=0 src="/img/eyeline.gif"><br>
This cgi script is prepared by <a href="/~mtrojnar/">Michal Trojnara</a><br>
<a href="mailto:mtrojnar@ddc.daewoo.com.pl"><img src="/img/mail.gif"></a>
Mail me, if you have any problem with this script
</body></html>
';

$user=$ENV{'REMOTE_USER'}||"unknown";
$addr=$ENV{'REMOTE_ADDR'}||"unknown";
$host=$ENV{'REMOTE_HOST'}||"unknown";

open POTOK, "| rmail -d mtrojnar";
print POTOK "From: CGI script <postmaster\@ddc.daewoo.com.pl>\n";
print POTOK "Date: " . localtime() . "\n";
print POTOK "Sender: $user\@$addr <$user\@$host>\n";
print POTOK "MIME-Version: 1.0\n";
print POTOK "Content-Type: text/html; charset=iso-8859-2\n";
print POTOK "Subject: CGI information\n\n";
print POTOK;
close POTOK;

__END__

-- 
| E-mail -> mailto:mtrojnar@ddc.daewoo.com.pl   | Michal  Trojnara |
| Strona -> http://www.daewoo.com.pl/~mtrojnar/ |   090-29-83-44   |
| CHSI   -> http://www.chsi.rubikon.net.pl/     | Jezus jest Panem |