Topic Rating - Poll mod patch 1.1 Gold This mod enables a topic-rating function, to seperate the important topics from the stupid ones. This version of topic rating is compatable with the poll mod. Uninstall previous version of this mod, then install the poll mod. After that reinstall this mod! =) [rapmad] Note: Copy the included rate.pl to the sources-dir! TRU-Kid: - Updated For Y1G Release. dOCda S!: - Fixed colors and changed layout for thx msg. rapmad: - Patch version for poll mod. McFly - updated by TRU-Kid, dOCda S! http://www.security-board.de YaBB.pl if ($action eq 'register') { require "$sourcedir/Register.pl"; &Register; } elsif ($action eq 'ratetopic') { require "$sourcedir/Rate.pl"; &RateTopic; } Sources\Admin.pl if ($allowpics) { $allowpicschecked = "checked" } if ($enable_topicrating) { $ratechecked = "checked" } $txt{'740'} Enable Topic-Rating? allowpics showyabbcbutt showbdescrip maintenance guestaccess insert_original enable_ubbc enable_news enable_guestposting enable_notification showlatestmember showrecentbar showmemberbar showmarkread showmodify showuserpic showusertext showgenderimage shownewsfader MenuType curposlinks profilebutton autolinkurls emailpassword RegAgree emailwelcome allow_hide_email usetempfile faketruncation emailnewpass yyForceIIS yyblankpageIIS/; push(@onoff, "enable_topicrating"); \$showyabbcbutt = $showyabbcbutt; # Set to 1 to display the yabbc buttons on Posting and IM Send Pages \$enable_topicrating = $enable_topicrating; # Set to 1 if you want to enable Rating of Topics Sources\MessageIndex.pl ($views, $lastposter) = split(/\|/, $tmpa); ($views, $lastposter, $data) = split(/\|/, $tmpa); $txt{'301'} EOT if ($enable_topicrating == 1) { print qq~Rating~; } print << "EOT"; $views EOT if ($enable_topicrating == 1) { print qq~~; require "$sourcedir/Rate.pl"; &PrintRating; print qq~~; } print << "EOT"; Sources\Display.pl my($buffer,$views,$lastposter,$moderators,$counter,$counterwords,$max,$pageindex,$msubthread,$mnum,$mstate,$mdate,$msub,$mname,$memail,$mreplies,$musername,$micon,$noposting,$threadclass,$notify,$max,$start,$bgcolornum,$windowbg,$mattach,$mip,$mlm,$mlmb,$lastmodified,$postinfo,$star,$sendm,$topicdate); my($buffer,$views,$lastposter,$tmpa,$tmpb,$tmpc,$tmpd,$moderators,$counter,$counterwords,$max,$pageindex,$msubthread,$mnum,$mstate,$mdate,$msub,$mname,$memail,$mreplies,$musername,$micon,$noposting,$threadclass,$notify,$max,$start,$bgcolornum,$windowbg,$userpic_tmpwidth,$userpic_tmpheight,$windowbg,$mattach,$mip,$mns,$mlm,$mlmb,$lastmodified,$postinfo,$star,$sendm,$topicdate); ( $tmpa, $tmpb,$tmpc) = split( /\|/, $tmpa ); ( $tmpa, $tmpb, $tmpc, $tmpd) = split( /\|/, $tmpa ); print FILE qq~$tmpa|$tmpb|$tmpc~; print FILE qq~$tmpa|$tmpb|$tmpc|$tmpd~; EOT } else { print qq~~; } print << "EOT"; Sources\Post.pl ($views, $lastposter,$votetally) = split(/\|/,$tempinfo); ($views, $lastposter, $votetally, $data, $data2) = split(/\|/,$tempinfo); print FILE2 "$views|$myname|$votetally"; print FILE2 "$views|$myname|$votetally|$data|$data2"; Sources\ModifyMessage.pl ($views,$tmpa,$votetally) = split(/\|/, $tmpa); ($views,$tmpa,$votetally,$data,$data2) = split(/\|/, $tmpa); print FILE qq~$views|$mname|$votetally~; print FILE qq~$views|$mname|$votetally|$data|$data2~;

$txt{'139'}: $pageindex EOT if ($enable_topicrating == 1) { print << "EOT";