#!/usr/bin/Perl
#################################################
# form2.pl
print "Content-type: text/html", "\n\n";
$veri=$ENV{'QUERY_STRING'};
($kutuismi, $isim)=split(/=/, $veri);
if(!$veri)
{
print <<HTML;
<html>
<head><title>Form Örnegi</title></head>
<body>
<H2>Form Örnegi</H2>
<form action="cgi-bin/form2.pl" method="GET">
Isim: <input type="text" name="isim" size=20>
<p>
<input type="submit" value="GONDER">
<input type="reset" value="SIL" SIZE>
</form>
<HR>
</body>
</html>
HTML
}
else
{
if($isim)
{
print "Merhaba $isim. MaxiAsp'ye hosgeldin!!";
}
else
{
print "Giris Için Tiklayin";
}
}
exit(0);
##################################################
Coded By : Sync