Grey2002
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору ikonboard.cgi после Код: my $total_users = $guests + $members; | добавляем : Код: $filetoopen = "$ikondir" . "data/record.dat"; $filetoopen = &stripMETA($filetoopen); open(FILE, "$filetoopen") or die "Файл record.dat не найден"; flock(FILE,2); $recordin = <FILE>; close (FILE); ($record, $recordtime) = split(/\|/,$recordin); $recordtime = &longdate("$recordtime"); if ($total_users > $record) { $record = $total_users; $filetomake = "$ikondir" . "data/record.dat"; open(FILE, ">$filetomake"); flock(FILE,2); print FILE "$record|$currenttime"; close(FILE); } | этот код : Код: if ($online_ ne "off"){ if ($online_ eq "on"){ $online_header = qq~<b>$total_users $ibtxt{'0018'}</b>~; $online_row = qq~$ibtxt{'0019'} $guests, $ibtxt{'0020'} $members <br><font face="$font" color=$forumfontcolor size=$dfontsize1>$memberoutput~; } if ($online_ eq "reg" && $membername eq "$ibtxt{'0043'}"){ $online_header = qq~<b>Кто в онлайн.</b>~; $online_row = qq~Вы должны <a href="$registerprog">зарегистрироваться</a> чтобы видеть кто в онлайне.~; } else { $online_header = qq~<b>$total_users $ibtxt{'0018'}</b>~; $online_row = qq~$ibtxt{'0019'} $guests, $ibtxt{'0020'} $members <br><font face="$font" color=$forumfontcolor size=$dfontsize1>$memberoutput~; | меняем на : Код: if ($online_ ne "off"){ if ($online_ eq "on"){ $online_header = qq~<b>$total_users $ibtxt{'0018'}</b>~; $online_row = qq~$ibtxt{'0019'} $guests, $ibtxt{'0020'} $members (Рекорд: $record, установлен: $recordtime)<br><font face="$font" color=$forumfontcolor size=$dfontsize1>$memberoutput~; } if ($online_ eq "reg" && $membername eq "$ibtxt{'0043'}"){ $online_header = qq~<b>Кто в онлайн.</b>~; $online_row = qq~Вы должны <a href="$registerprog">зарегистрироваться</a> чтобы видеть кто в онлайне.~; } else { $online_header = qq~<b>$total_users $ibtxt{'0018'}</b>~; $online_row = qq~$ibtxt{'0019'} $guests, $ibtxt{'0020'} $members (Рекорд: $record, установлен: $recordtime)<br><font face="$font" color=$forumfontcolor size=$dfontsize1>$memberoutput~; | и в папке data создаём чистый файл record.dat Enjoy! P.S. : хак тестировался на 2-ом русплюсе
|