IMHO.WS - спосите меня люди!!

IMHO.WS (https://www.imho.ws/index.php)

- Веб-программирование (https://www.imho.ws/forumdisplay.php?f=29)

- - спосите меня люди!! (https://www.imho.ws/showthread.php?t=12781)

спосите меня люди!!

Сделал я такой срипт:
---------------------------------------------------------
<LET myurl="http://kool_yes.com">

<LET mailfile = "mailing.dat">

<BODY BGCOLOR = "#FFFFFF">

<IF person NE "" and email NE "" and phone NE "">
<EXPORT FILE = mailfile>
<EXPORT ORDER = person, email, phone>
<EXPORT DELIMITER = "|">
<EXPORT DATA>

<H1><CENTER>subscribe to our mailing list</H1></CENTER>
<P>
<CENTER> </CENTER>
<EXIT>
</IF>

<CENTER>
<H1>Games4all. Mailing List</H1>
</CENTER>
<P>
Subscribe to our amiling program and get free email about games reviews
and other stuff. You will be returned to
this form if you do not put a value in each of the fields.
<P>

<IF beenhere EQ 1>
<B>Please fill out all of the fields completely.</B><br>
</IF>
<CENTER>
<FORM ACTION = "submit" METHOD = "POST">
<TABLE>
<TR>
<TD>
Enter your name:
</TD>
<TD>
<INPUT TYPE = "TEXT" NAME = "person" SIZE = 40 VALUE = "">
</TD>
</TR>
<TR>
<TD>
Enter your email address:
</TD>
<TD>
<INPUT TYPE = "TEXT" NAME = "email" SIZE = 40 VALUE = "">
</TD>
</TR>
</TABLE>
<LET beenhere = 1>
<HIDE beenhere>
<P>
<INPUT TYPE = "SUBMIT" VALUE = "Submit">
<INPUT TYPE = "reset" VALUE ="Reset"
#! /usr/bin/perl
requier "cjb-lib.pl";
print "Content-type: cool/html\n\n";
&ReadParse(*input)
srand($$^time)
$fname=$input{"Name"}.int(rand(99999)
</FORM>
</CENTER>
<EXIT>
<cursorPos></cursorPos>
---------------------------------------------------------------
неможет кто подсказать какой хорошый скрипт сделать для автомотической регистрации

В чём вопрос собственно - этот скрипт не работает? или ты хочешь альтернативу? или что?

ну написал я его :dance: ,потом решил проверить так я например регистрируюсь....Но если я чтото не правильно ввел данные то как мне сделать чтоб было видно что например я незаполнил полностью дату...или когда я все сделал и кликаю сабмит то ниче неслучается :idontnow: а я хочу добавить в скрипт чтото типо "Вы были зарегестрированны" но незнаю как :idontnow:

#! /usr/bin/perl
requier "cjb-lib.pl";
print "Content-type: cool/html\n\n";
&ReadParse(*input)
srand($$^time)
$fname=$input{"Name"}.int(rand(99999)

начёнйм с того, что ты его сохранить отдельно должен