$name"; if($city ne "0"){print " Местоположение: $city";} print " "; if ($mail ne "0") { print "$mail "; } if($url ne "0") { print "$url "; } $text2 =~ s/:-\\)//g; $text2 =~ s/:-\\|//g; $text2 =~ s/:-\\(//g; $text2 =~ s/:\\)//g; $text2 =~ s/:\\|//g; $text2 =~ s/:\\(//g; print " |
Текст объявления: $text2 |
$tim |
if($name eq "")
{
&error;
}
if($name eq "Вася")
{
&error;
}
if($text ~ m/"from?id"/i)
{
&error;
}
А как сделать бан-лист по ip-адресу?
И еще. Надо, чтобы эти bad words хранились в отдельном файле, например 1.txt.
if (($word=~/\\d+/)&&($ENV{\'REMOTE_ADDR\'}==$word)){&error("Вам запрещен доступ!");}
Вот этот код запрещает доступ определенному IP-адресу?
IP-адреса и слова хранятся в одном файле?
В файле words.txt можно писать предложения типа "Приглашаю всех на мою домашнюю страничку"?
А как сделать, чтобы скрипт определял IP-адрес?
Тест
енто я к тому что может не получиться
#!/usr/bin/perl
#-----------------------------
#Ваш логин
$login="****";
#Ваш пароль
$pass="****";
#Колличество сообщений на странице
$mess=50;
# -------------------------------
#
$smile1="http://nb.hut.ru/guest/smile1.gif";
$smile2="http://nb.hut.ru/guest/smile2.gif";
$smile3="http://nb.hut.ru/guest/smile3.gif";
$filename="data.blt";
$filehdr="header.blt";
$fileend="end.blt";
$page=0;
# -------------------------------
#Get data from memory --------
if ($ENV{\'REQUEST_METHOD\'} eq "POST")
{
read(STDIN, $bufer, $ENV{\'CONTENT_LENGTH\'});
}
else
{
$bufer=$ENV{\'QUERY_STRING\'};
}
#End -------------------------
# Decode data ----------------
@pairs = split(/&/, $bufer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
# End ------------------------
$action=$FORM{action};
if ($FORM{page} ne "")
{$page=$FORM{page};}
#### #### ####
&html;
&readdata;
if($bufer eq ""){&showpass;}
if($action eq "Редактировать"){&edit;}
elsif($action eq "checkpass"){&checkpass;}
elsif($action eq "Удалить"){&delet;}
elsif($action eq "Готово"){&addedit;}
&htmlend;
# #######sub########### #
sub checkpass
{
if($FORM{login} eq $login && $FORM{pass} eq $pass)
{
&show;
&glos;
}
else
{
print "Неправильно введён login или пароль.
\\n";
&showpass;
}
}
sub showpass
{
print "";
print "