Болтинг
Guest
Вывод сообщений из Perl в PHP
Помогите разобраться.
Имеется cgi скрипт рассылки, состоящий из одного файла submail.cgi.
Скрипт лежит в http://127.0.0.3/cgi/submail.cgi . Форма подписки лежит здесь http://127.0.0.3/subscribe.php . Вот код формы:
<form action="/cgi/submail.cgi" method=post>
<input type=text name="address" size=30 value="âàø e-mail"><br>
<input type="hidden" name=action value=Подписать checked> <br>
<input type="submit" value="Готово">
</form>
Когда посетитель вводит свой адрес и нажимает ГОТОВО, выводится сообщение, что вы подписаны. Но выводится в файле http://127.0.0.3/cgi/submail.cgi . За вывод в submail.cgi отвечает этот код:
sub message
{
print qq~
<html><title>$list_name</title>
<table width=500>
<td><b>$list_name</b><br><br>$message~;
print "<BR><BR><BR><BR>
</td>
</table>
</body></html>";
}
Подскажите, пожалуйста, как выводить сообщения в файле http://127.0.0.3/subscribe.php , а не в http://127.0.0.3/cgi/submail.cgi .
Помогите разобраться.
Имеется cgi скрипт рассылки, состоящий из одного файла submail.cgi.
Скрипт лежит в http://127.0.0.3/cgi/submail.cgi . Форма подписки лежит здесь http://127.0.0.3/subscribe.php . Вот код формы:
<form action="/cgi/submail.cgi" method=post>
<input type=text name="address" size=30 value="âàø e-mail"><br>
<input type="hidden" name=action value=Подписать checked> <br>
<input type="submit" value="Готово">
</form>
Когда посетитель вводит свой адрес и нажимает ГОТОВО, выводится сообщение, что вы подписаны. Но выводится в файле http://127.0.0.3/cgi/submail.cgi . За вывод в submail.cgi отвечает этот код:
sub message
{
print qq~
<html><title>$list_name</title>
<table width=500>
<td><b>$list_name</b><br><br>$message~;
print "<BR><BR><BR><BR>
</td>
</table>
</body></html>";
}
Подскажите, пожалуйста, как выводить сообщения в файле http://127.0.0.3/subscribe.php , а не в http://127.0.0.3/cgi/submail.cgi .