| 4X_Pro
Руководитель Проекта
Настоящий Компьютерщик
Откуда: Москва Всего сообщений: 2994 Рейтинг пользователя: 79
Дата регистрации на форуме: 29 сен. 2001
|
Профиль | Сообщить модератору | ИгнорироватьNEW! Сообщение отправлено: 24 октября 2003 18:11
Active topics hack - вывод 10 последних тем на главной странице Хак написан XXXX Pro для проекта Russian Ikonboard 1. Файл post.cgi В процедуры newthread и addnewpoll добавить (перед $output = qq~) следующий код: <br>open(FILE,"<$ikondir"."data/acttopic.dat");<br>flock(FILE,1);<br>@oldtopics=<FILE>;<br>close(FILE);<p>$newtopicline="$inforum|$newthreadnumber|$inmembername|$intopictitle|$currenttime\n";<br>@newtopics = ($newtopicline,@oldtopics[0..8]);<br>open(FILE,">$ikondir"."data/acttopic.dat");<br>flock(FILE,2);<br>foreach (@newtopics) {<br> print FILE ($_);<br>}<br>close(FILE);<br> В процедуру addreply (перед $output = qq~) добавить: <br>open(FILE,"<$ikondir"."data/acttopic.dat");<br>flock(FILE,1);<br>@oldtopics=<FILE>;<br>close(FILE);<p>$newtopicline="$inforum|$intopic|$inmembername|$topictitle|$currenttime\n";<br>$found=0;<br>open(FILE,">$ikondir"."data/acttopic.dat");<br>flock(FILE,2);<br>print FILE ($newtopicline);<br>foreach (@oldtopics[0..8]) {<br> ($tmp_forum,$tmp_topic,$trash)=split(/\|/,$_);<br> if ($tmp_forum == $inforum && $tmp_topic==$intopic) {<br> $found = 1;<br> }<br> else {<br> print FILE ($_);<br> }<br>}<br>if ($found) { print FILE ($oldtopics[9]); }<br>close(FILE);<br> 2. Файл ikonboard.cgi: Перед
<br>$userlink<br><br>$recordmessage<br></font><br></td></tr></table><br></td></tr></table><br>~;<p>#------- END OF HTML<br> вставить такой код:
<br>open(FILE,"<$ikondir"."data/acttopic.dat");<br>flock(FILE,1);<br>@acttopics=<FILE>;<br>close(FILE);<p>foreach (@acttopics) {<br> ($forum,$topic,$membername,$topictitle,$topictime) = split(/\|/,$_);<br> $timemsg = longdate($topictime)." ".shorttime($topictime);<br> $topiclinks .= qq~<a href="$topicprog?forum=$forum&topic=$topic">$topictitle</a> - <a href="$profileprog?action=show&member=$membername">$membername</a> $timemsg<br>~;<br>}<p>$output .= qq~<br><table cellpadding=0 cellspacing=1 border=0 width=$tablewidth align=center bgcolor=$tablebordercolor><br><tr valign=middle><td bgcolor=$titlecolor>10 активных тем форума</td></tr><br><tr valign=middle><td bgcolor=$miscbackone><br><font face="$font" color=$forumfontcolor size=$dfontsize2><br>$topiclinks<br></td></tr><br></table><br>~;<br> Но хак имеет один недостаток: если тема будет перемещена, удалена или переименована, на главной странице это не отобразится.
--- Каждый человек всегда может найти, чем он может быть полезен окружающим. Проблема только в одном: слишком многие не хотят это искать.
|