..:: Рейтинг темы ::.. :: Хаки для Ikonboard

=================================================================
Хак - Рейтинг топика
Автор - Phoenix M. Zerieon
Перевод и доработка - JESUS <jesus@tut.by>
==========================================================
Как работает можно посмотреть на моем форуме -
http://planeta.solo.by/cgi-bin/ikonboard/ikonboard.cgi
==========================================================
Редактируемые файлы:

forumoptions.cgi, forums.cgi, ikon.lib, ikonfriend.cgi, ikonboard.cgi, newposts.cgi, post.cgi,
postings.cgi, printpage.cgi, search.cgi, setforums.cgi, setmembers.cgi, topic.cgi, viewip.cgi
==========================================================
Также необходимо будет создать файл rateit.cgi и залить его на сервер (chmod 755)
==========================================================
НЕ ЗАБУДЬТЕ СДЕЛАТЬ КОПИИ РЕДАКТИРУМЫХ ФАЙЛОВ!
==========================================================
Шаг 1 (12 файлов)
==========================================================
Откройте файлы: forumoptions.cgi, ikon.lib, ikonboard.cgi, ikonfriend.cgi, newposts.cgi,
post.cgi, postings.cgi, printpage.cgi, search.cgi, setforums.cgi, setmembers.cgi и viewip.cgi.

В кадом из них найдите:
 $forumgraphic 
(в зависимости от файлов, этот код может повторяться несколько раз)...

После этой переменной нужно добавить еще две переменные:
 $ratings и $misc 
То есть везде код:
 |$forumgraphic| 

заменить на
 |$forumgraphic|$ratings|$misc| 

А также:
 $categoryplace, $category, etc... 
в строках, где перечисляются переменные
 ....., $forumgraphic, ..... 
добавить:
 $ratings, $misc 

==========================================================
Шаг 2 - Часть 1 (setforums.cgi)
==========================================================

В верхней части скрипта найдите:
 $new_forumgraphic = $PARAM{'forumgraphic'}; 
Ниже этого добавьте:
 $new_ratings = $PARAM{'ratings'}; 
==========================================================
Шаг 2 - Часть 2 (setforums.cgi)
==========================================================

В процедуре sub addforum найдите:
 <td bgcolor=#FFFFFF valign=middle align=left> <input type=text size=40 name="forumnewmsggraphic" value=""></td></tr> 
Ниже добавьте:
 <tr><td bgcolor=#FFFFFF valign=middle align=left width=40%> Рейтинг форума Вести статистику рейтинга форума?</td> <td bgcolor=#FFFFFF valign=middle align=left> <select name="ratings"><option value="On"> ДА <option value="" selected> НЕТ </select></td></tr> 
==========================================================
Шаг 2 - Часть 3 (setforums.cgi)
==========================================================

В процедуре sub createforum найдите:
 $processed_data .= "$newforumid| .......... | $new_forumgraphic|$new_pollstate|"; 
И после переменной $new_forumgraphic добавьте еще две:
 |$new_ratings|$misc| 
==========================================================
Шаг 2 - Часть 4 (setforums.cgi)
==========================================================

В процедуре sub editform найдите:
 <input type=text size=40 name="forumnewmsggraphic" value="$forumnewmsggraphic"></td></tr> 
Ниже дополните кодом:
 ~; $tempoutput = qq~<select name="ratings"><option value="On">ДА<option value="">НЕТ</select>~; $tempoutput =~ s/value=\"$ratings\"/value=\"$ratings\" selected/g; if (!$ratings) { $tempoutput = qq~<select name="ratings"><option value="On">ДА<option value="" selected>НЕТ</select>~; } print qq~ <tr><td bgcolor=#FFFFFF valign=middle align=left width=40%> Рейтинг форума Вести статистику рейтинга для этого форума?</td> <td bgcolor=#FFFFFF valign=middle align=left>$tempoutput</td></tr> 
==========================================================
Шаг 2 - Часть 5 (setforums.cgi)
==========================================================

В процедуре sub catform найдите:
 <td bgcolor=#FFFFFF valign=middle align=left> <input type=text size=40 name="forumnewmsggraphic" value=""></td></tr> 
Ниже добавьте:
 <tr><td bgcolor=#FFFFFF valign=middle align=left width=40%> Рейтинг форума Вести статистику рейтинга форума?</td> <td bgcolor=#FFFFFF valign=middle align=left> <select name="ratings"><option value="On"> ДА <option value="" selected> НЕТ </select></td></tr> 
==========================================================
Шаг 2 - Часть 7 (setforums.cgi)
==========================================================

В процедуре sub doaddcategory найдите кусок кода что-то вроде:
 $processed_data .= "$newforumid| .............. |$new_forumgraphic|$new_pollstate|"; 
И опять же после переменной $new_forumgraphic добавьте еще две:
 |$new_ratings|$misc| [CODE] ========================================================== Шаг 2 - Часть 8 (setforums.cgi) ==========================================================В процедуре sub editcatname найдите: [CODE] $processed_data .= "$linetochange\n"; $forumname = ""; $forumdescription = ""; $forummoderator = ""; $lastposter = ""; $lastposttime = ""; $threads = ""; $posts = ""; $forumgraphic = ""; 
И замените на:
 print FILE "$linetochange\n"; $forumname = ""; $forumdescription = ""; $forummoderator = ""; $lastposter = ""; $lastposttime = ""; $threads = ""; $posts = ""; $forumgraphic = ""; $ratings = ""; 
(то есть добавьте $ratings = "";)

==========================================================
Шаг 3 - Часть 1 (forums.cgi)
==========================================================

Найдите:
 if (("$privateforum" eq "yes") && ("$allowed" ne "yes")) { &accessneeded; } 

Ниже дополните кодом:
 if ($ratings eq "") { $ratings = ""; } else { $ratings = qq~<td bgcolor=$titlecolor width=60 align=left>Рейтинг</td>~; } 
==========================================================
Шаг 3 - Часть 2 (forums.cgi)
==========================================================

Найдите далее что-то типа этого:
 <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td><table cellpadding=3 cellspacing=1 border=0 width=100%><tr><td bgcolor=$titlecolor width=50% colspan=2>$newthreadbutton $newpollbutton</td> <td bgcolor=$titlecolor align=left width=25%>Информация по теме</td><td bgcolor=$titlecolor width=25%>Последнее</td></tr>~; 
И замените на:
 <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td><table cellpadding=3 cellspacing=1 border=0 width=100%><tr><td bgcolor=$titlecolor width=50% colspan=2>$newthreadbutton $newpollbutton</td> <td bgcolor=$titlecolor align=left width=25%>Информация по теме</td><td bgcolor=$titlecolor width=25%>Последнее</td>$ratings</tr>~; 
==========================================================
Шаг 3 - Часть 3 (forums.cgi)
==========================================================

Найдите:
 if ($topicdescription) { $topicdescription = qq~  »$topicdescription~; } 
И добавьте ниже:
 if (-e "$ikondir/forum$inforum/rate$topicid.file") { require "$ikondir/forum$inforum/rate$topicid.file"; $average = int($rates / $votes); } else { $average = "0"; }$ratestar = qq(<img src="$imagesurl/images/norating.gif">);if ($average > 0) {$ratestar = qq(<img src="$imagesurl/images/1star.gif">);} if ($average > 1) {$ratestar = qq(<img src="$imagesurl/images/2stars.gif">);} if ($average > 2) {$ratestar = qq(<img src="$imagesurl/images/3stars.gif">);} if ($average > 3) {$ratestar = qq(<img src="$imagesurl/images/4stars.gif">);} if ($average > 4) {$ratestar = qq(<img src="$imagesurl/images/5stars.gif">);}if ($ratings eq "") { $ratings = ""; } else { $ratings2 = qq~<td bgcolor=$forumcolorone width=60>$ratestar</td>~; } 
==========================================================
Шаг 3 - Часть 4 (forums.cgi)
==========================================================

Чуть ниже найдите:
 Обсуждение начал <a href="$profileprog?action=show&member=$startedbyfilename">$startedby</a></td><td bgcolor=$forumcolorone>$lastpostdate $lastposter</td></tr> 
И замените на:
 Обсуждение начал <a href="$profileprog?action=show&member=$startedbyfilename">$startedby</a></td><td bgcolor=$forumcolorone>$lastpostdate $lastposter</td>$ratings2</tr> 
И еще ниже в коде:
 $output .= qq~ <tr><td bgcolor=$titlecolor colspan=4>$newthreadbutton $newpollbutton</td></tr></table></td></tr></table> ~; 
Замените цифру 4 на цифру 5.

==========================================================
Шаг 4 - Часть 1 (topic.cgi)
==========================================================

Найдите первый кусок кода (он еще повторяется в скрипте):
 #------- HTML 
Перед этим добавьте код:
 if (-e "$ikondir/forum$inforum/rate$topicid.file") { require "$ikondir/forum$inforum/rate$topicid.file"; $average = int($rates / $votes); } else { $average = "0"; }$ratestar = qq~<img src="$imagesurl/images/norating.gif">~;if ($average > 0) {$ratestar = qq(<img src="$imagesurl/images/1star.gif">);} if ($average > 1) {$ratestar = qq(<img src="$imagesurl/images/2stars.gif">);} if ($average > 2) {$ratestar = qq(<img src="$imagesurl/images/3stars.gif">);} if ($average > 3) {$ratestar = qq(<img src="$imagesurl/images/4stars.gif">);} if ($average > 4) {$ratestar = qq(<img src="$imagesurl/images/5stars.gif">);}if ($ratings eq "") { $ratings = ""; } else { $ratings2 = qq~ $ratestar~; }

Потом ниже найдите что-то типа:
 <img src="$imagesurl/images/bar.gif" border=0><img src="$imagesurl/images/openfold.gif" border=0>  $topictitle 
and replace it with this:
 <img src="$imagesurl/images/bar.gif" border=0><img src="$imagesurl/images/openfold.gif" border=0>  $topictitle  $ratings2 
Если Вы не хотите, чтобы в топике показывался рейтинг, этот шаг можно пропустить ;)

==========================================================
Шаг 4 - Шаг 2 (topic.cgi)
==========================================================

Найдите второй:
 #------- HTML 
Перед ним добавьте:
 if ($ratings eq "") { $ratings3 = ""; } else { $ratings3 = qq(<form action="$boardurl/rateit.cgi" method="POST"> <select name="rateselect"> <option value="0">Оценка темы <option value="5">5 <option value="4">4 <option value="3">3 <option value="2">2 <option value="1">1</select> <input type="hidden" name="id" value="$inforum"><input type="hidden" name="forumname" value="$intopic"> <input type="hidden" name="threadname" value="$topicid"><input type="submit" value="Оценить"> </form> ); } 
Затем найдите:
 <td align=right valign=bottom bgcolor=$menubackground nowrap>$jumphtml</td> 
И замените на:
 <td align=right valign=bottom bgcolor=$menubackground nowrap>$jumphtml $ratings3</td> 

==========================================================
Шаг 5 - Часть 1 (ikon.lib)
==========================================================

После кода:
 ########################### # error routine sub error { my $errorinfo = shift; ($where, $errormsg) = split(/\&/, $errorinfo);$inmembername = cookie("amembernamecookie"); $inpassword = cookie("apasswordcookie");&title;$output .= qq~<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth align=center><tr><td width=30% rowspan=2><img src="$imagesurl/images/$boardlogo" border=0></td><td valign=top align=left>  <img src="$imagesurl/images/closedfold.gif" border=0><a href="$forumsummaryprog">  $boardname</a>   <img src="$imagesurl/images/bar.gif" border=0><img src="$imagesurl/images/openfold.gif" border=0>  Ошибка при $where</td></tr></table><table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td><table cellpadding=6 cellspacing=1 border=0 width=100%><tr><td bgcolor=$miscbacktwo valign=middle align=center>Произошла ошибка при $where</td></tr><tr><td bgcolor=$miscbackone valign=middle>Возможная причина ошибки при $where: $errormsg Вы хотите просмотреть <a href="$helpprog">файлы справки</a>? <center> <a href="javascript:history.go(-1)"> << Назад</a></center></tr></td></table></td></tr></table>~; &output( -Title => $boardname, -ToPrint => $output, -Version => $versionnumber ); } 
Добавьте новую процедуру:
 #################################################### # ratings routine by Phoenix M. Zerieon & JESUSsub ratings {$inmembername = cookie("amembernamecookie"); $inpassword = cookie("apasswordcookie");&title;$relocurl = "$threadprog?forum=$inforum&topic=$intopic";$output .= qq~ <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth align=center><tr><td width=30% rowspan=2><img src="$imagesurl/images/$boardlogo" border=0></td><td valign=top align=left>  <img src="$imagesurl/images/closedfold.gif" border=0><a href="$forumsummaryprog">  $boardname</a>   <img src="$imagesurl/images/bar.gif" border=0><img src="$imagesurl/images/openfold.gif" border=0>  Ваш голос учтен!</td></tr></table> <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center><tr><td><table cellpadding=6 cellspacing=1 border=0 width=100%> <tr><td bgcolor=$miscbacktwo valign=middle align=center>Тема оценена!</td></tr> <tr><td bgcolor=$miscbackone valign=middle> Если Ваш браузер не поддерживает переадресацию, выберите любую из ссылок:<ul><li><a href="$threadprog?forum=$inforum&topic=$intopic">Назад в тему</a> <li><a href="$forumsprog?forum=$inforum">К форуму</a> <li><a href="$forumsummaryprog">К списку форумов</a></ul></tr></td></table></td></tr></table><meta http-equiv="refresh" content="1; url=$relocurl"> ~; &output( -Title => $boardname, -ToPrint => $output, -Version => $versionnumber ); } # end routine 
==========================================================
Шаг 6 - Часть 1 (postings.cgi)
==========================================================

Найдите:
 $filetounlink = "$ikondir" . "forum$inforum/$intopic.thd"; unlink $filetounlink; $filetounlink = "$ikondir" . "forum$inforum/$intopic.vote"; unlink $filetounlink; $filetounlink = "$ikondir" . "forum$inforum/$intopic.poll"; unlink $filetounlink; 
И замените на:
 $filetounlink = "$ikondir" . "forum$inforum/$intopic.thd"; unlink $filetounlink; $filetounlink = "$ikondir" . "forum$inforum/rate$intopic.file"; unlink $filetounlink; $filetounlink = "$ikondir" . "forum$inforum/rateip$intopic.file"; unlink $filetounlink; $filetounlink = "$ikondir" . "forum$inforum/$intopic.vote"; unlink $filetounlink; $filetounlink = "$ikondir" . "forum$inforum/$intopic.poll"; unlink $filetounlink; 
Далее код:
 $filetotrash = "$ikondir" . "forum$inforum/$intopic.thd"; unlink "$filetotrash"; $filetotrash = "$ikondir" . "forum$inforum/$intopic.mal"; unlink "$filetotrash"; $filetotrash = "$ikondir" . "forum$inforum/$intopic.vote"; unlink "$filetotrash"; $filetotrash = "$ikondir" . "forum$inforum/$intopic.poll"; unlink "$filetotrash"; 
замените на код:
 $filetotrash = "$ikondir" . "forum$inforum/$intopic.thd"; unlink "$filetotrash"; $filetotrash = "$ikondir" . "forum$inforum/$intopic.mal"; unlink "$filetotrash"; $filetounlink = "$ikondir" . "forum$inforum/rate$intopic.file"; unlink $filetounlink; $filetounlink = "$ikondir" . "forum$inforum/rateip$intopic.file"; unlink $filetounlink; $filetotrash = "$ikondir" . "forum$inforum/$intopic.vote"; unlink "$filetotrash"; $filetotrash = "$ikondir" . "forum$inforum/$intopic.poll"; unlink "$filetotrash"; 
==========================================================
Шаг 7 (собственно сам скрипт рейтинга тем)
==========================================================

Создайте текстовый файл и сохраните его как rateit.cgi:

#!/usr/bin/perl########################################################################### # Rating Topics for Ikonboard v2.х # # Written by Phoenix Zerieon # Translated & Edited by JESUS <jesus@tut.by> ###########################################################################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 uploadseval { ($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 };use CGI;$html=CGI::new(); print $html->header(-charset=>$forumcharset);$access = qq(Not Allowed);$rate=$html->param("rateselect"); $inforum=$html->param("id"); $intopic=$html->param("forumname"); $topicid=$html->param("threadname"); $myip=$html->remote_host();if ($id =~ /[a-zA-Z\.]/) {print $access; exit;} if ($threadname =~ /[a-zA-Z\.]/) {print $access; exit;}if ($rate == 0 or $rate >= 6) { &error("рейтинге темы&Вы должны выбрать оценку по пятибальной системе от одного до пяти."); }if (-e "$ikondir/forum$inforum/rateip$topicid.file") { open(IP, "$ikondir/forum$inforum/rateip$topicid.file"); while(<IP>) { $thisip=$_; chomp($thisip); if ($thisip eq $myip) { &error("рейтинге темы&Извините, но Вы уже оценили эту тему."); } } close(IP); open(IP, ">>$ikondir/forum$inforum/rateip$topicid.file"); flock(IP,2); print IP "$myip\n"; close(IP); } else { open(IP, ">$ikondir/forum$inforum/rateip$topicid.file"); flock(IP,2); print IP "$myip\n"; close(IP); }if (-e "$ikondir/forum$inforum/rate$topicid.file") { require "$ikondir/forum$inforum/rate$topicid.file"; $votes = $votes +1; $rates = $rates + $rate; $average = int($rates / $votes); open(WRITE, ">$ikondir/forum$inforum/rate$topicid.file") || die ("Unable to open the file $ikondir/forum$inforum/rate$topicid.file because of this error: $!"); flock(WRITE,2); print WRITE "\$votes = $votes\;\n"; print WRITE "\$rates = $rates\;"; close(WRITE);&ratings } else { $votes = 1; $rates = $rate; $average = $rate; open(WRITE, ">$ikondir/forum$inforum/rate$topicid.file") || die ("Unable to open the file $ikondir/forum$inforum/rate$topicid.file because of this error: $!"); flock(WRITE,2); print WRITE "\$votes = $votes\;\n"; print WRITE "\$rates = $rates\;"; close(WRITE);&ratings } 
==========================================================

И все...
Осталось только загрузить скрипты на сервер и создать картинки, которыми будет показываться рейтинг...
Например, эти:

==========
[B]Enjoy![/B]

Объединенный Открытый Проект

Сайт для Настоящих Компьютерщиков

Объединенный Открытый Проект » Русский IkonBoard » Хаки для Ikonboard » ..:: Рейтинг темы ::..

..:: Рейтинг темы ::..

хак и новый скрипт (может, кому и понадобится)

Объединенный Открытый Проект » Русский IkonBoard » Хаки для Ikonboard » ..:: Рейтинг темы ::..