скрипт отлова мата

[lodevar]

Не знаете, есть ли скрипты отлова нецензурных выражений (например в форуме)?

[lodevar]

А как насчет того, чтоб этот файл открыть, переписать его print\'ами, а потом закрыть?
Типа вот так:

#!/usr/bin/perl
print "Content-Type: text/html

";

open(FIL,"ipdata.txt");
while()
{
  print $_."
";
}
close(FIL);

[Syrius]

Все правильно конечно, но хотелось бы еще узнать, как выбрать именно тот файл который нужен.

[Sonic]

#!/usr/bin/perl

if ($ENV{\'REQUEST_METHOD\'} eq "POST")
    {
      read(STDIN, $bufer, $ENV{\'CONTENT_LENGTH\'});
    }
elsif ($ENV{\'REQUEST_METHOD\'} eq "GET")
    {
      $bufer=$ENV{\'QUERY_STRING\'};
    }
else {
    print "Произошла ошибка"
;
}
#Это смотря каким методом ты передаёшь ифнормацию о файле

$ipdata=$FORM{ipdata};

print "Content-Type: text/html

";

open(FIL,"$ipdata.txt");
while()
{
print $_."
";
}
close(FIL);


По-моему так. Если ошибся, то поправят...

[Chs]

Ошибся, но не поправят.
Не пойман - не баг.

[lodevar]

Syrius (05-03-2001 15:42):
Все правильно конечно, но хотелось бы еще узнать, как выбрать именно тот файл который нужен.

Ну как? Устраивают предложения или нет? Ежели нет - пиши что конкретно надо, мы будем думать... :-)

[Syrius]

lodevar (06-03-2001 09:06):

Syrius (05-03-2001 15:42):
Все правильно конечно, но хотелось бы еще узнать, как выбрать именно тот файл который нужен.

Ну как? Устраивают предложения или нет? Ежели нет - пиши что конкретно надо, мы будем думать... :-)

Чичас проверю. Если работает, пиво с меня :-)

[Syrius]

Никак не пойму в чем дело :-(
Постоянно вылазиет 500-я

[AliMamed]

Syrius (07-03-2001 09:52):
Никак не пойму в чем дело :-(
Постоянно вылазиет 500-я

print "Content-Type: text/html

";

наверх перенеси

[Sonic]

Уупс, вот так прально и не даёт ошибку:

#!/usr/bin/perl
if ($ENV{\'REQUEST_METHOD\'} eq "POST")
{
read(STDIN, $bufer, $ENV{\'CONTENT_LENGTH\'});
}
elsif ($ENV{\'REQUEST_METHOD\'} eq "GET")
{
$bufer=$ENV{\'QUERY_STRING\'};
}
else {
print "Произошла ошибка
";
}

$ipdata=$FORM{ipdata};

print "Content-Type: text/html

";

open(FIL,"$ipdata.txt");
while()
{
print $_."
";
}
close(FIL);