lynx
Advanced lynx | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
WSergey
Цитата:| 15-ый пост, там ссылка... |
От ленивый народ.
Твоя ошибка в подпрограмме getmember, смотри:
Код:
sub getmember {
my $nametocheck = shift;
$nametocheck =~ s/ /\_/g;
$filetoopen = "$ikondir" . "members/$nametocheck.cgi";
$filetoopen = &stripMETA($filetoopen);
if (-e $filetoopen) {
open(FILE,"$filetoopen");
$filedata = <FILE>;
close(FILE);
chomp($filedata);
($membername, $password, $membertitle, $membercode, $numberofposts, $emailaddress, $showemail, $ipaddress, $homepage, $aolname, $icqnumber ,$location ,$interests, $joineddate, $lastpostdate, $signature, $timedifference, $privateforums, $useravatar, $birthday, $gender, $misc1, $misc2, $misc3) = split(/\|/,$filedata);
#open (F, ">>debug.cgi");
#print F "$password--$membername-$nametocheck\n";
#close F;
chomp $privateforums;
if($privateforums) {
@private = split(/&/,$privateforums);
foreach $accessallowed (@private) {
chomp $accessallowed;
($access, $value) = split(/=/,$accessallowed);
$allowedentry{$access} = $value;
}
}
$filetoopen = "$ikondir" . "members/$nametocheck.ext";
$filetoopen = &stripMETA($filetoopen);
if (-e $filetoopen) {
open(FILE, $filetoopen);
$filedata = <FILE>;
close(FILE);
chomp($filedata);
$allowchat = $filedata;
}
else {
$allowchat = "yes";
}
}
####else { $userregistered = "no"; } ###Вот причина траблы. Раскомментируй эту строчку.
}
|
Не забудь вернуть проверку на дубли юзеров. |
Не может такого быть, что ты в АЦ легким движением руки что-то изменил в фильтре нецензурных слов, и оно теперь любой ник, прежде чем зарегить, на пробел (например) меняет. И естественно, пишет, что такой ник регить нельзя или он уже есть. 