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

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

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

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2

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

Fredboy



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

Всего записей: 576 | Зарегистр. 29-06-2001 | Отправлено: 22:51 18-08-2001
batva



crazy administrator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ок.
вот оригинальный скрипт.
Вот результат его работы. http://ru-board.com/cgi-bin/demoscript/ib2/active.cgi
Далее все в твоих руках, переведи на русский, плюс измени формат вывода как ты хочешь. Все вопросы в этом топике. Я ему сабж поменяю, ты не против?


Код:
 
#!/usr/bin/perl
##########################################################
# Ikonboard Active Topics #
##########################################################
# Author:        ST8 <st8@q3f.net>                       #
# Date:          18 April 2001         #
##########################################################
# Lists active threads from the day         #
##########################################################
 
use CGI::Carp "fatalsToBrowser";          # Output errors to browser
use CGI qw(:standard);                    # Saves loads of work
$CGI::POST_MAX=1024 * 150;                # limit post data
$CGI::DISABLE_UPLOADS = 1;                # Disable uploads
$CGI::HEADERS_ONCE = 1;                   # Kill redundant headers
 
eval {
($0 =~ m,(.*)/[^/]+,)   and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
require "ikon.lib";          # Require ikonboard ()
require "data/progs.cgi";    # Require prog names
require "data/boardinfo.cgi";# Require board info
require "data/styles.cgi";   # Require styles info
};
if ($@) {
    print header(); print start_html(-title=>"Ikonboard Error!");
    print "Could not find these files: $@\nIf you are running NT you may need to enter the full path in each require statement in each script";
    print end_html; exit;
}
 
##########################################################
# Configuration
 
# List all forums in this array that u wish to be checked for active topics
my @fnumbers = (1,2,3,4,5);
 
# Max Number of threads to display
my $maxthreads = 16;
 
# Summary View set to yes to only display an overview rather than entire thread (yes/no)
my $summary = "no";
 
# Turn images on? otherwise they will be linked (on/off)
my $imgs = "off";
 
##########################################################
 
my $q = new CGI;
$action = $q->param("action");
 
if ($action eq "ssi") {  
$recent_topics = &getrecenttopics;  
print qq~
<table width="120" border="0" cellspacing="1">
<tr>
<td bgcolor=$titlecolor><font face="$font" color=$titlefontcolor size=2><b>Recent Topics</b></font></td>
$recent_topics
</table>
~;
exit;  
}
 
 
$inmembername = cookie("amembernamecookie");
 
if ($inmembername eq "") {
    $inmembername = "Guest";
    }
&whosonline("$inmembername|Viewing <a href=$boardurl/active.cgi>Todays Active Topics</a>|none");
 
 
$output .= qq~
<table cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
               <tr>
               <td valign=middle align=left width="100%" bgcolor="$menubackground" nowrap background=$imagesurl/images/bg.gif colspan=2><a href="$forumsummaryprog"><b><font face="$font" color=$titlefontcolor size=2>&nbsp;$boardname</a> &raquo; Active Topics</font></b></td>
               </tr>
    <tr>
        <td>
        <table cellspacing=1 border=0 width=100%>
        <tr>
        <td bgcolor=$miscbacktwo valign=middle colspan=3 align=center><font face="$font" color=$fontcolormisc size=2><b>Active topics</b></font>
</td>
</tr>
~;
 
foreach $number (@fnumbers) {
 
opendir(THREADS, "$ikondir/forum$number");
my @threads = readdir(THREADS);
closedir(THREADS);  
@unsortedthreads = grep(/\w+.pl/, @threads);
@thethreads = sort {$b <=> $a} @unsortedthreads;
 
$maxt = $maxthreads;
$tcount = 0;
 
(my $sec,my $min,my $hour,my $day,my $month,my $year,my $wday,my $yday,my $isdst) = localtime();
 
foreach $thread (@thethreads) {
$tcount++;
if ($tcount < $maxt) {
open(DETAILS,"$ikondir/forum$number/$thread");
$details = <DETAILS>;
close(DETAILS);
 
# 1|FlipCom Interface Script|Script to work with the Flipcom irc/icq program.|open|0|1|ST8|980109695|ST8|980109695
($tno,$title,$desc,$status,$replies,$views,$poster,$postdate,$lastrep,$lastrepdate) = split(/\|/,$details);
 
open(TDETAILS,"$ikondir/forum$number/$tno.thd");
$Tdetails = <TDETAILS>;
close(TDETAILS);
 
# ST8|FlipCom Interface Script|213.1.155.243|yes|yes|980109695|bleh
($user,$title,$ip,$smilies,$signature,$postdate,$thread) = split(/\|/,$Tdetails);
 
($trash,$trash,$trash,$postday,$postmonth,$postyear,$trash,$trash,$trash) = localtime($lastrepdate);
 
if (($day eq $postday) && ($month eq $postmonth) && ($year eq $postyear)) {
$gubbins = qq~$lastrepdate|$lastrep|$poster|$title|$thread|$postdate|$replies|$number|$tno~;
push(@finishedthreads2, $gubbins);
}
}
}
}
 
@finishedthreads2 = sort {$b <=> $a} @finishedthreads2;
 
$maxout = $maxthreads;
$toutcount = 0;
 
foreach $outthread (@finishedthreads2) {
$toutcount++;
if ($toutcount < $maxout) {
($lastrepdate,$lastrep,$poster,$title,$thread,$postdate,$replies,$number,$tno) = split(/\|/,$outthread);
 
if ($imgs eq "off") {
    $thread =~ s/\[img\](.+?)\[\/img\]/<a href=$1 target=_blank><font size=2>[IMAGE]<\/font><\/a>/isg;
}
 
unless ($summary eq "yes") {
$thread = doemoticons("$thread");
$thread = ikoncode("$thread");
$thread = qq~<tr><td colspan="3" bgcolor=$miscbackone><font face="$font" color=$postfontcolorone size=2>$thread</font></td></tr>~;
} else {
undef $thread;
}
 
        $postdate = $postdate + ($timedifferencevalue*3600) + ($timezone*3600);
        $postdate = &dateformat("$postdate");
 
        $lastrepdate = $lastrepdate + ($timedifferencevalue*3600) + ($timezone*3600);
        $lastrepdate = &dateformat("$lastrepdate");
 
if ($lastrep) {
$lastrep = "Last Reply by <a href=$boardurl/profile.cgi?action=show&member=$lastrep>$lastrep</a> @ $lastrepdate";
}
 
&getforum("$number");
 
$output .= qq~
<tr><td colspan="3" bgcolor=$titlecolor><font face="$font" color=$titlefontcolor size=2>$title by $poster @ $postdate</font></td></tr>
<tr><td colspan="3" bgcolor=$miscbackone><font face="$font" color=$postfontcolorone size=2><a href=$boardurl/ikonboard.cgi>$category</a> &raquo; <a href=$boardurl/forums.cgi?forum=$number>$forumname</a></font></td></tr>
$thread
<tr>
<td width="70%" bgcolor=$miscbackone><font face="$font" color=$postfontcolorone size=1><b>$replies replies. $lastrep</b></font></td>
<td width="15%" bgcolor=$miscbackone align="center"><font face="$font" color=$postfontcolorone size=1><b>(<a href="$boardurl/post.cgi?action=reply&forum=$number&topic=$tno">Reply</a>)</b></font></td>
<td width="15%" bgcolor=$miscbackone align="center"><font face="$font" color=$postfontcolorone size=1><b>(<a href="$boardurl/topic.cgi?forum=$number&topic=$tno">Read More</a>)</b></font></td>
</tr>
<tr><td bgcolor=$miscbackone colspan=3><font face="$font" color=$postfontcolorone size=1>&nbsp;</font></td></tr>
~;
}
}
 
$output .= qq~
</table></td></tr></table>
~;
 
print header();
&output(
       -Title   => "$boardname - Active Topics",  
       -ToPrint => $output,  
       -Version => $versionnumber  
       );
 


Всего записей: 12593 | Зарегистр. 07-01-2001 | Отправлено: 01:26 19-08-2001
Fredboy



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

Всего записей: 576 | Зарегистр. 29-06-2001 | Отправлено: 20:44 19-08-2001
Fredboy



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
batva
вопросик есть , как сделать , чтоб  отображалось последнее сообщение?, как у тебя.
Если не сильно занят подскажи , а то сам долго буду разбираться.
 

Всего записей: 576 | Зарегистр. 29-06-2001 | Отправлено: 23:30 23-08-2001
Black_Lady

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
to Fredboy
ну и как тебе удалось продвинуться?  
 
to batva
 
ну подскажи, плиз, в каком направлении копать, чтобы последнее сообщение (а может и два) из нужного форума выбрать и поставить куда надо?
во всех хаках не нашла чего-нибудь подобного
lastpost заголовок выдает, recentpost все последние подряд собирает и в файл пишет

Всего записей: 5 | Зарегистр. 20-09-2001 | Отправлено: 11:39 23-09-2001
DimoN



Tech administrator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Fredboy
Black_Lady
 
Ставиш хак ластпост.
и вставляеш $lastpost в нужное место.

----------
Мы Баним с улыбкой :) ™

Всего записей: 7528 | Зарегистр. 19-04-2001 | Отправлено: 19:27 23-09-2001
Black_Lady

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо DimoN что откликнулся
но lastpost у меня уже установлен на главной, вот ссылка  
http://www.chibimoon.wallst.ru/cgi-bin/ikonboard//ikonboard.cgi
и он выводит НАЗВАНИЯ топиков, а не сами сообщения!!!
Вот у вас здесь active.cgi  сообщения выводит, у-у-у, завидую
 
Установила recentpost - он и заголовок топика выдает и само сообщения, но инфу берет, как я поняла, из recentpost.dat, а туда закидываются только последние пять сообщений, а вот как вытащить именно само сообщение из конкретного форума, а не только заголовок...
Может в post.cgi в хак lastpostа дописать что нибудь?
 
$filetomake = "$ikondir" . "forum$inforum/lastpost.cgi";  
$filetomake = ($filetomake);  
open(FILE, ">$filetomake");  
flock(FILE, 2);  
print FILE "$inforum|$intopic|$topictitle ВОТ СЮДА НАПРИМЕР????";  
close(FILE);  

Всего записей: 5 | Зарегистр. 20-09-2001 | Отправлено: 23:22 23-09-2001
batva



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

Цитата:
Может в post.cgi в хак lastpostа дописать что нибудь?  
 
$filetomake = "$ikondir" . "forum$inforum/lastpost.cgi";  
$filetomake = ($filetomake);  
open(FILE, ">$filetomake";  
flock(FILE, 2);  
print FILE "$inforum|$intopic|$topictitle ВОТ СЮДА НАПРИМЕР????";  
close(FILE);  

 
нет, не нужно.
ласт пост пишется в файл, чтобы форум не тормозил при выводе главной страницы, ибо прикинь каждый раз циклы гонять и искать ласт посты для каждого форума.
 
А Актив топики лучше динамически каждый раз при вызове генерить.
 

Цитата:
ну подскажи, плиз, в каком направлении копать, чтобы последнее сообщение (а может и два) из нужного форума выбрать и поставить куда надо?  

 
сначало теория.
берем тот скрипт что я выше постил.
Смотрим.

Цитата:
open(TDETAILS,"$ikondir/forum$number/$tno.thd");  
$Tdetails = <TDETAILS>;  
close(TDETAILS);  

 
тут открывается и читается файл треда.
Этот файл уже построчно отсортированным хранится, тоесть первый пост наверху, следом второй, итд. Кадый пост отдельной строкой.
Вот такая конструкция
Код:
$Tdetails = <TDETAILS>;  
дает нам первую строку, тоесть первый пост, потом этот пост проверяется на время, сплитуется, выбирается автор, дата, сабж итд в отдельные переменные.  

Код:
 
($user,$title,$ip,$smilies,$signature,$postdate,$thread) = split(/\|/,$Tdetails);
 

И если по дате все ок, он выводится.
 
 
У нас задача брать не только первый пост топика, но и последний верно?
Что делаем?
Читаем файл в массив.
теперь первый элемент массива это первый пост а последний-последний. :)
Это все.
 просто не правда ли?
 
Смотри.
 

Код:
 
open(TDETAILS,"$ikondir/forum$number/$tno.thd");
@Tdetails = <TDETAILS>;#читаем все посты в массив
close(TDETAILS);
 
$Tdetails = $Tdetails[0];#это первый пост топика
$Tdetails_lastpost = $Tdetails[$#Tdetails];#а это последний.
 

 
Теперь у нас в переменной $Tdetails по прежнему первый пост, мы даже имя переменной не тронули.
А в переменной $Tdetails_lastpost понятно чего.
Дальше попробуешь сама? :)

Всего записей: 12593 | Зарегистр. 07-01-2001 | Отправлено: 04:02 24-09-2001
Black_Lady

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Да-а-а...ты, Batva, крутой, конечно...
(вот и я это сказала) и кстати где смайлик нужный мне, где??? (одновременно восхищение и смущение?)
 
потратила уйму времени, но мой излюбленный метод проб и ошибок ни к чему пока не привел
 
как только появилась переменная $Tdetails = $Tdetails[0]
так все посты исчезли из active.cgi остались user и дата 1 января 1970 г.
 
перенесла я ее под строку со split, вот под эту
 
($user,$title,$ip,$smilies,$signature,$postdate,$thread) = split(/\|/,$Tdetails);
 
посты появились, все стало как было прежде, но сколько ни пыталась, сколько свой прекрасный лобик не морщила, не смогла понять как же вывести инфу из  
$Tdetails[$#Tdetails]
теоретически поняла все так:  есть переменая - массив $Tdetails , в нем нумерованные элементы , которые получились благодаря splitованию, и в такой элемент входят user, титул ...и пост, вот этот пост и выводится, и по умолчанию он первый...
теперь, если появляется новая переменная $Tdetails_lastpost = $Tdetails[$#Tdetails], то как именно из нее вытащить этот последний $thread, кроме того в выводящейся таблице уже есть параметр $thread, и он показывает первый топик...
 
(конечно я первым делом попыталась вывести  $Tdetails_lastpost, просто поместив его в таблицу вот сюда
 <tr>
<td colspan="3" width="100%" bgcolor=$miscbackone><font face="$font" color=$postfontcolortwo size=1>proverka postov$Tdetails[$#Tdetails]</font></td>
</tr>
 
 ничего не получилось, т.е. как будто такой переменной и нет вовсе- другие свои попытки даже приводить неудобно - все глупости какие -то, результат всех попыток один-исчезновение всех постов)
 
В общем, теперь я думаю, и правда придется долго разбираться, вот книжку взяла покумекать по perl (500стр.)
 
но если подскажешь еще, ну очень благодарная буду
подскажи, а?
 
 
 
 
 
 

Всего записей: 5 | Зарегистр. 20-09-2001 | Отправлено: 22:22 24-09-2001
Black_Lady

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В общем вся проблема оказалась в том,  что вот Ето
 
open(TDETAILS,"$ikondir/forum$number/$tno.thd");  
@Tdetails = <TDETAILS>;#читаем все посты в массив  
close(TDETAILS);  
 
надо было ЕЩЕ РАЗ вписать в листинг
Слава богу, все получилось, я cделала так:
прямо над этим блоком в active.cgi
 
&getforum("$number");
$output .= qq~
<tr><td colspan="3" bgcolor=$titlecolor><font face="$font" color=$titlefontcolor size=2>$title $ibtxt{'00334'} $poster @ $postdate</font></td></tr>
...
 
поместила вот это
 
open(TDETAILS,"$ikondir/forum$number/$tno.thd");  
@Tdetails = <TDETAILS>;#читаем все посты в массив  
close(TDETAILS);  
 $Tdetails_lastpost = $Tdetails[$#Tdetails];#а это последний.  
($userlp,$titlelp,$iplp,$smilieslp,$signaturelp,$postdatelp,$threadlp) = split(/\|/,$Tdetails_lastpost);
 
а в табличку внесла $threadlp
 
<tr>
<td colspan="3" width="100%" bgcolor=$miscbackone><font face="$font" color=$postfontcolortwo size=1><br>$threadlp
</font></td>
</tr>
 
Результат работы здесь
http://www.chibimoon.wallst.ru/cgi-bin/ikonboard//active.cgi
 
Спасибо Batve!!!  

 
 
 

Всего записей: 5 | Зарегистр. 20-09-2001 | Отправлено: 02:31 04-10-2001
DimoN



Tech administrator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Молодец.!!! Голова!

----------
Мы Баним с улыбкой :) ™

Всего записей: 7528 | Зарегистр. 19-04-2001 | Отправлено: 03:06 04-10-2001
Fredboy



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Black_Lady
Тебя бы не затруднила выложить сюда весь код, потому что читая всё это мне чуть плохо не стало  

Всего записей: 576 | Зарегистр. 29-06-2001 | Отправлено: 16:43 04-10-2001
Crab



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Готов присоединиться к совершенствованию этого скрипта (если Black_Lady не пожадничает последнюю версию).
Неплохо бы научить этот скрипт понимать коды форматирования, цитируемые из топиков и ответов (смайлики он уже понимает).


----------
Машина должна работать, человек - думать.

Всего записей: 579 | Зарегистр. 25-05-2001 | Отправлено: 11:49 05-10-2001
Black_Lady

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Fredboy
да без проблем, хотя здесь уже все есть, код Batva дал, и я подробно сказала, что делать, читай после слов Я сделала так:
но вот  весь код, учти что переводить тебе все равно придется :)
 
Надеюсь, Batva ругать меня не будет за спам :)
 

Код:
#!/usr/bin/perl
##########################################################
# Ikonboard Active Topics #
##########################################################
# Author:        ST8 <st8@q3f.net>                       #
# Date:          18 April 2001         #
##########################################################
# Lists active threads from the day         #
##########################################################
 
use CGI::Carp "fatalsToBrowser";          # Output errors to browser
use CGI qw(:standard);                    # Saves loads of work
$CGI::POST_MAX=1024 * 150;                # limit post data
$CGI::DISABLE_UPLOADS = 1;                # Disable uploads
$CGI::HEADERS_ONCE = 1;                   # Kill redundant headers
 
eval {
($0 =~ m,(.*)/[^/]+,)   and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
require "ikon.lib";          # Require ikonboard ()
require "data/progs.cgi";    # Require prog names
require "data/boardinfo.cgi";# Require board info
require "data/styles.cgi";   # Require styles info
};
if ($@) {
    print header(); print start_html(-title=>"Ikonboard Error!");
    print "Could not find these files: $@\nIf you are running NT you may need to enter the full path in each require statement in each script";
    print end_html; exit;
}
 
##########################################################
# Configuration
 
# List all forums in this array that u wish to be checked for active topics
my @fnumbers = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
 
# Max Number of threads to display
my $maxthreads = 60;
 
# Summary View set to yes to only display an overview rather than entire thread (yes/no)
my $summary = "no";
 
# Turn images on? otherwise they will be linked (on/off)
my $imgs = "off";
 
##########################################################
 
my $q = new CGI;
$action = $q->param("action");
 
if ($action eq "ssi") {
$recent_topics = &getrecenttopics;
print qq~
<table width="120" border="0" cellspacing="1">
<tr>
<td bgcolor=$titlecolor><font face="$font" color=$titlefontcolor size=2><b>Recent Topics</b></font></td>
$recent_topics
</table>
~;
exit;
}
 
 
$inmembername = cookie("amembernamecookie");
 
if ($inmembername eq "") {
    $inmembername = "Guest";
    }
&whosonline("$inmembername|Viewing <a href=$boardurl/active.cgi>Todays Active Topics</a>|none");
 
 
$output .= qq~
<table cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
               <tr>
               <td valign=middle align=left width="100%" bgcolor="$menubackground" nowrap background=$imagesurl/images/bg.gif colspan=2><a href="$forumsummaryprog"><b><font face="$font" color=$titlefontcolor size=2>&nbsp;$boardname</a> &raquo; $ibtxt{'00335'}</font></b></td>
               </tr>
    <tr>
        <td>
        <table cellspacing=1 border=0 width=100%>
        <tr>
        <td bgcolor=$miscbacktwo valign=middle colspan=3 align=center><font face="$font" color=$fontcolormisc size=2><b>$ibtxt{'00336'}</b></font>
</td>
</tr>
~;
 
foreach $number (@fnumbers) {
 
opendir(THREADS, "$ikondir/forum$number");
my @threads = readdir(THREADS);
closedir(THREADS);
@unsortedthreads = grep(/\w+.pl/, @threads);
@thethreads = sort {$b <=> $a} @unsortedthreads;
 
$maxt = $maxthreads;
$tcount = 0;
 
(my $sec,my $min,my $hour,my $day,my $month,my $year,my $wday,my $yday,my $isdst) = localtime();
 
foreach $thread (@thethreads) {
$tcount++;
if ($tcount < $maxt) {
open(DETAILS,"$ikondir/forum$number/$thread");
$details = <DETAILS>;
close(DETAILS);
 
# 1|FlipCom Interface Script|Script to work with the Flipcom irc/icq program.|open|0|1|ST8|980109695|ST8|980109695
($tno,$title,$desc,$status,$replies,$views,$poster,$postdate,$lastrep,$lastrepdate) = split(/\|/,$details);
 
open(TDETAILS,"$ikondir/forum$number/$tno.thd");
$Tdetails = <TDETAILS>;
close(TDETAILS);
 
 
# ST8|FlipCom Interface Script|213.1.155.243|yes|yes|980109695|bleh
($user,$title,$ip,$smilies,$signature,$postdate,$thread) = split(/\|/,$Tdetails);
($trash,$trash,$trash,$postday,$postmonth,$postyear,$trash,$trash,$trash) = localtime($lastrepdate);
 
if (($day eq $postday) && ($month eq $postmonth) && ($year eq $postyear)) {
$gubbins = qq~$lastrepdate|$lastrep|$poster|$title|$thread|$postdate|$replies|$number|$tno~;
push(@finishedthreads2, $gubbins);
}
}
}
}
 
@finishedthreads2 = sort {$b <=> $a} @finishedthreads2;
 
$maxout = $maxthreads;
$toutcount = 0;
 
foreach $outthread (@finishedthreads2) {
$toutcount++;
if ($toutcount < $maxout) {
($lastrepdate,$lastrep,$poster,$title,$thread,$postdate,$replies,$number,$tno) = split(/\|/,$outthread);
 
if ($imgs eq "off") {
    $thread =~ s/\[img\](.+?)\[\/img\]/<a href=$1 target=_blank><font size=2>[IMAGE]<\/font><\/a>/isg;
}
 
unless ($summary eq "yes") {
$thread = doemoticons("$thread");
$thread = ikoncode("$thread");
$thread = qq~<tr><td colspan="3" bgcolor=$miscbackone><font face="$font" color=$postfontcolorone size=2>$thread</font></td></tr>~;
} else {
undef $thread;
}
 
        $postdate = $postdate + ($timedifferencevalue*3600) + ($timezone*3600);
        $postdate = &dateformat("$postdate");
 
        $lastrepdate = $lastrepdate + ($timedifferencevalue*3600) + ($timezone*3600);
        $lastrepdate = &dateformat("$lastrepdate");
 
if ($lastrep) {
$lastrep = "$ibtxt{'00332'} <a href=$boardurl/profile.cgi?action=show&member=$lastrep>$lastrep</a> @ $lastrepdate";
}
open(TDETAILS,"$ikondir/forum$number/$tno.thd");  
@Tdetails = <TDETAILS>;#читаем все посты в массив  
close(TDETAILS);  
 $Tdetails_lastpost = $Tdetails[$#Tdetails];#а это последний.  
($userlp,$titlelp,$iplp,$smilieslp,$signaturelp,$postdatelp,$threadlp) = split(/\|/,$Tdetails_lastpost);
 
&getforum("$number");
 
$output .= qq~
<tr><td colspan="3" bgcolor=$titlecolor><font face="$font" color=$titlefontcolor size=2>$title $ibtxt{'00334'} $poster @ $postdate</font></td></tr>
<tr><td colspan="3" bgcolor=$miscbackone><font face="$font" color=$postfontcolorone size=2><a href=$boardurl/ikonboard.cgi>$category</a> &raquo; <a href=$boardurl/forums.cgi?forum=$number>$forumname</a></font></td></tr>
$thread
<tr>
<td colspan="3" width="100%" bgcolor=$miscbacktwo><font face="$font" color=$postfontcolortwo size=1><b>$ibtxt{'00333'} $replies  $lastrep</b></font></td>
</tr>
 
 <tr>
<td colspan="3" width="100%" bgcolor=$miscbackone><font face="$font" color=$postfontcolortwo size=1><br>$threadlp
</font></td>
</tr>
 
 
<tr>
<td width="100%" bgcolor=$miscbacktwo align="right"><font face="$font" color=$postfontcolorone size=1><b><a href="$boardurl/post.cgi?action=reply&forum=$number&topic=$tno">$ibtxt{'00331'}</a></b></font>&nbsp;&nbsp;&nbsp;<font face="$font" color=$postfontcolorone size=1><b><a href="$boardurl/topic.cgi?forum=$number&topic=$tno">$ibtxt{'0033'}</a></b></font>&nbsp;</td>
</tr>
 
~;
}
}
 
$output .= qq~
</table></td></tr></table>
~;
 
print header();
&output(
       -Title   => "$boardname - Active Topics",
       -ToPrint => $output,
       -Version => $versionnumber
       );

 
 
Crab
Удачи тебе с кодами форматирования :)

Всего записей: 5 | Зарегистр. 20-09-2001 | Отправлено: 22:41 15-10-2001 | Исправлено: Black_Lady, 22:44 15-10-2001
sokis



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Извините, может быть глупый вопрос. Но...
Как убрать Гостя из статистики, а то получается, что гость самый активный участник.
 
Сорри... Совсем запарился...
Вопрос по memberlist.cgi

Всего записей: 5 | Зарегистр. 28-01-2003 | Отправлено: 13:51 18-02-2003 | Исправлено: sokis, 14:18 18-02-2003
Xnom



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

Цитата:
Сорри... Совсем запарился...  
Вопрос по memberlist.cgi

Будь внимательнее!!!
Ответ на твой вопрос:
http://forum.ru-board.com/topic.cgi?forum=21&topic=1417#1

Всего записей: 778 | Зарегистр. 09-10-2002 | Отправлено: 19:31 18-02-2003
sokis



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

Цитата:
Ответ на твой вопрос:  
http://forum.ru-board.com/topic.cgi?forum=21&topic=1417#1

Спасибо!

Цитата:
Будь внимательнее!!!  

Буду!

Всего записей: 5 | Зарегистр. 28-01-2003 | Отправлено: 16:15 19-02-2003
Paha_W



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Вот тут прочитал хак и понял и того, что надо создать файл с телом как написал:

Цитата:
Black_LadyОтправлено: 21:41 15-10-2001
в своем сообщении.
А как прикрутить его к форуму? Извиняюсь за свое незнание.Сори.
Заранее благодарен.
 

Всего записей: 440 | Зарегистр. 26-05-2004 | Отправлено: 10:45 12-02-2005
trew

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Paha_W Просто загружаешь в директорию к скриптам форума.

Всего записей: 716 | Зарегистр. 15-11-2003 | Отправлено: 17:33 12-02-2005
BigMurzik



Местный кот
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем привет. А как сделать что бы выводилось на любой страницы заголовки поледних тем. типа
 
Заголовк темы 1
Заголовк темы 2
Заголовк темы 3
Заголовк темы 4
Заголовк темы 5
Заголовк темы 6
Заголовк темы 7
Заголовк темы 8
 
Т.е. без всеких таблиц итд, просто  

Код:
 
<a href=topic.cgi?forum=1&topic=1 target=_blank>заголовок темы 1</a><br>
 


----------
В Калининграде лета нет и похоже уже не будет :(

Всего записей: 1967 | Зарегистр. 23-10-2001 | Отправлено: 22:53 28-02-2005
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2

Компьютерный форум 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