lynx
Advanced lynx | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
anami city
Полагаю, можно в файле register.cgi
дописать после:
Код:
$filetomake = "$ikondir" . "members/$memberfiletitle.cgi";
open(FILE, ">$filetomake");
flock(FILE, 2);
print FILE "$inmembername|$password|$membertitle|$membercode|$numberofposts|$emailaddress|$showemail|$ipaddress|$homepage|$trash|$icqnumber|$location|$interests|$joineddate|$lastpostdate|$signature|$timedifference|$privateforums|$useravatar|$trash|$trash|$trash";
close(FILE);
|
Код:
$ikondir2="путь_на_сервере_ко_второй_конференции";
$filetomake = "$ikondir2" . "members/$memberfiletitle.cgi";
open(FILE, ">$filetomake");
flock(FILE, 2);
print FILE "$inmembername|$password|$membertitle|$membercode|$numberofposts|$emailaddress|$showemail|$ipaddress|$homepage|$trash|$icqnumber|$location|$interests|$joineddate|$lastpostdate|$signature|$timedifference|$privateforums|$useravatar|$trash|$trash|$trash";
close(FILE);
|
и т.д.
При этом надо быть осторожней - если ты проверяешь, не забанен ли пользователь, то проверять надо столько раз, сколько у тебя конференций.
После::
Код:
$filetoopen = "$ikondir" . "data/banlist.cgi";
open(FILE,"$filetoopen");
@bannedmembers = <FILE>;
close(FILE);
foreach (@bannedmembers) {
($bannedname,$bannedemail,$bannedip) = split(/\|/,$_);
chomp $bannedname;
chomp $bannedemail;
$bannedmember = "yes" if(($emailaddress eq "$bannedemail") || ($inmembername eq "$bannedname"));
}
print header(); &error("Регистрация&Извините\, Вы не можете быть зарегистрированы\. Обратитесь к администратору конференции") if ($bannedmember eq "yes");
|
Код:
$filetoopen = "$ikondir2" . "data/banlist.cgi";
open(FILE,"$filetoopen");
@bannedmembers2 = <FILE>;
close(FILE);
foreach (@bannedmembers2) {
($bannedname2,$bannedemail2,$bannedip2) = split(/\|/,$_);
chomp $bannedname2;
chomp $bannedemail2;
$bannedmember2= "yes" if(($emailaddress eq "$bannedemail2") || ($inmembername eq "$bannedname2"));
}
print header(); &error("Регистрация&Извините\, Вы не можете быть зарегистрированы\. Обратитесь к администратору конференции") if ($bannedmember2 eq "yes");
|
Это навскидку. Должно работать, хотя, можно и изящней, но это уже детали, только тормозить должно - много проверок.
|
Теоретически можно добиться работы, практически - ты первый, кто такое делает.