Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
code 13.11.04 11:31 Число просмотров: 3292
Автор: Heller <Heller> Статус: Elderman
|
#!/usr/bin/perl
use CGI qw/:standart/;
$name=new CGI;
$name=$name->param('xxx');
#Вместо xxx поставь имя текстового поля
$name =~/[<>\|\-&\.\\\/\0]/g;
open (FH,"temp/$name.htm") or open (FH,"error.htm");
print "Content-type: text/html\n\n";
while (<FH>) {print}
close FH;
А вообще очень рекомендую выкачать откуда-нибудь пакет cgi-lib.pl - а то этот CGI.pm как-то не всегда корректно срабатывает.
С cgi-lib.pl строчки 2-4 надо будет заменить на следующее:
require 'cgi-lib.pl';
&ReadParse(*in);
$name=$in{'xxx'};
|
|
|