suslik_s_gitaroy
Хомяк под кайфом | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
irlandec
ищи
Код: 'unban' => \&unban,
'ipbanned' => \&ipbanned |
меняй на
Код: 'unban' => \&unban,
'ipbanned' => \&ipbanned,
'ban' => \&ban |
ищи
Код: if ($membercode eq "banned") {
$unbanlink = qq~ | <a href="$thisprog?action=unban&member=$member">[ $ibtxt{'2231'} ]</a>~;
} |
меняй на
Код: if ($membercode eq "banned") {
$unbanlink = qq~ | <a href="$thisprog?action=unban&member=$member">[ $ibtxt{'2231'} ]</a>~;
}else{$unbanlink = qq~ | <a href="$thisprog?action=ban&member=$member">[ забанить ]</a>~;} |
ищи
Код:
перед этим вставляй
Код: sub ban {
&getmember("$inmember");
$memberfiletitle = $inmember;
$memberfiletitle =~ s/ /\_/isg;
# Remove from ban lists
$filetoopen = "$ikondir" . "banned.cgi";
open(FILE,">>$filetoopen");
print FILE "$ipaddress\n";
close(FILE);
$filetoopen = "$ikondir" . "data/banlist.cgi";
open(FILE,">>$filetoopen");
print FILE "$inmember|$inemailaddress|$ipaddress";
close(FILE);
$filetomake = "$ikondir" . "members/$memberfiletitle.cgi";
open(FILE, ">$filetomake");
flock(FILE, 2);
print FILE "$membername|$password|BANNED|banned|$numberofposts|$emailaddress|$showemail|$ipaddress|$homepage|$aolname|$icqnumber|$location|$interests|$joineddate|$lastpostdate|$signature|$timedifference|$allowedforums|$useravatar|$misc1|$misc2|$misc3";
close(FILE);
print qq~
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
<font face=verdana color=#333333 size=3><b>$membername забанен</b>
</td></tr>
~;
} |
фсе!
если какие ошибки, то пиши... я это тока что написал... |
