Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » IkonBoard и другие форумы » Ikonboard v.2 » Рекорд посещений

Модерирует : Antuan

 Версия для печати • ПодписатьсяДобавить в закладки

Открыть новую тему     Написать ответ в эту тему

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-ом русплюсе

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 16:29 02-08-2002
durachka



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
нормально, работает.
 
Добавлено
Хотя было бы интереснее, если бы выводилось не макимальное количество посетителей в онлайн, а макимальная посещаемость за сутки..

Всего записей: 596 | Зарегистр. 20-05-2001 | Отправлено: 22:35 02-08-2002 | Исправлено: durachka, 22:38 02-08-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
durachka

Цитата:
если бы выводилось не макимальное количество посетителей в онлайн, а макимальная посещаемость за сутки..

если будет время, то может сделаю...

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 10:00 03-08-2002
123qaz74

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
с датой глюк - постоянно одна и та же, дата установки хака

Всего записей: 113 | Зарегистр. 17-12-2001 | Отправлено: 09:47 05-08-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
123qaz74
имхо ты где-то что-то напутал... гм.. тогда попробуй перед :

Код:
print FILE "$record|$currenttime";

вставить :

Код:
$currenttime = time;

а скорее всего, просто рекорд не обновлялся соотв. и дата...

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 11:05 05-08-2002
Alexander Ipp



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grey2002

Цитата:
если будет время, то может сделаю...

Думаешь так просто?
подсказка - юзай localtime.

Всего записей: 1943 | Зарегистр. 20-08-2001 | Отправлено: 18:57 05-08-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alexander Ipp

Цитата:
юзай localtime

а что это?
я бы немного по другому сделал... что нибудь с ифами и минусами...

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 19:01 05-08-2002
Alexander Ipp



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grey2002
И это тоже.
Но тебе же нужно определять, тот это день или прошлый? Вот для этого и юзается функция локалтайм...

Всего записей: 1943 | Зарегистр. 20-08-2001 | Отправлено: 19:36 05-08-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alexander Ipp
а какое у неё значение?

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 02:14 06-08-2002
Alexander Ipp



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grey2002
Ну она юниксовую дату переводит в обычный формат времени, точнее вытаскивает число, номер дня недели, года (с 1900) и т.п.
См. доки.
А также функции, связанные со временем в ikon.lib

Всего записей: 1943 | Зарегистр. 20-08-2001 | Отправлено: 19:02 06-08-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alexander Ipp

Цитата:
Ну она юниксовую дату переводит в обычный формат времени

ммм... если честно, то не очень понял... а что тогла longdate и т.д. делают... вродь они и переводят юниховый формат в нормальный...

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 07:44 08-08-2002
Alexander Ipp



BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Grey2002

Цитата:
а что тогла longdate и т.д. делают

Это ф-ии ИБ, а localtime - встроенная функция Перла.
Кстати, эти функции именно через localtime работают, см. код.

Всего записей: 1943 | Зарегистр. 20-08-2001 | Отправлено: 14:49 08-08-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Alexander Ipp
окей, спасибо, гляну...
 
Добавлено
Alexander Ipp
окей, спасибо, гляну...

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 03:16 12-08-2002
pechalny



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Пашет, но с таймами трабла, как Ипп и говорил

Всего записей: 1852 | Зарегистр. 29-07-2001 | Отправлено: 21:42 14-08-2002
Grey2002



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
pechalny
брр... да что там у вас за траблы странно блин... всё на  локале тестил всё ОК было...

----------
Мой Блог

Всего записей: 1325 | Зарегистр. 24-12-2001 | Отправлено: 02:42 19-08-2002
Открыть новую тему     Написать ответ в эту тему

Компьютерный форум Ru.Board » IkonBoard и другие форумы » Ikonboard v.2 » Рекорд посещений


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru