Правила для каждого форума - Хак :: Хаки для Ikonboard

Итак, я все-таки нашел хак объявлений в отдельном разделе...
выкладываю, может, кому понадобится... перевод и адаптация под Русский Иконборд мои...
копирайты не помню.... сорри...

Итак, создаем файл [B]forumannounce.cgi[/B]
#!/usr/bin/perl 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 headerseval { ($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(-charset=>$forumcharset); print start_html(-title=>"Ошибка Ikonboard!"); print "Невозможно найти файлы: $@\nЕсли у Вас установлен Windows NT, может потребоваться прописать полный путь в каждом require-операторе в каждом скрипте"; print end_html; exit; }$|++; # Unbuffer the output#################--- Начало ---###################$thisprog = "forumannounce.cgi";$query = new CGI;$cookiepath = $query->url(-absolute=>1); $cookiepath =~ s/$thisprog//sg; @params = $query->param; foreach $param(@params) { $theparam = $query->param($param); $theparam = &cleaninput("$theparam"); ${$param} = $theparam; }$inmembername = $membername; $inpassword = $password; $inannouncementtitle = $announcementtitle; $inannouncementpost = $announcementpost; if (! $inmembername) { $inmembername = cookie("amembernamecookie"); } if (! $inpassword) { $inpassword = cookie("apasswordcookie"); }if ($inmembername eq "") { $inmembername = "Guest"; } else { &getmemberstime("$inmembername"); }### Print Header for the page. print header(-charset=>$forumcharset); &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/closedfold.gif" border=0>  <a href="$boardurl/forums.cgi?forum=$inforum">  $forumname</a>      <img src="$imagesurl/images/bar.gif" border=0><img src="$imagesurl/images/openfold.gif" border=0>    Объявления раздела</tr></table> <table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center> <tr><td><table cellpadding=3 cellspacing=1 border=0 width=100%> ~; ### Startactions if ($action eq "delete") { if ($checked eq "yes") { # Validate user &getmember("$inmembername"); &moderator; $cleartoedit = "no"; if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; } if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; } unless ($cleartoedit eq "yes") { $cleartoedit = "no"; } if ($cleartoedit eq "no") { &error("удалеении объявления&Вы не являетесь Модератором или Администратором, или Ваш пароль неверен"); } # Get the announcement to delete $filetoopen = "$ikondir" . "forum$inforum/news.cgi"; $filetoopen = &stripMETA($filetoopen); open(FILE, "$filetoopen") or die "Cannot locate the required file"; @announcements = <FILE>; close(FILE); # Write it back minus the one to delete. $count = 0; $filetoopen = "$ikondir" . "forum$inforum/news.cgi"; $filetoopen = &stripMETA($filetoopen); open(FILE, ">$filetoopen") or die "Cannot locate the required file"; flock (FILE, 2); foreach $line (@announcements) { chomp $line; if ($count ne $number) { print FILE "$line\n"; } $count++; } close(FILE); &doend("Объявление удалено"); exit; } # end checked delete else { &login("$thisprog?action=delete&number=$number&checked=yes&inforum=$inforum"); } # end else } # end action elsif ($action eq "add") { # Present the form $output .= qq~ <form action="$thisprog" method=post><input type=hidden name="action" value="addannouncement"> <input type=hidden name="inforum" value="$inforum"><input type=hidden name="forumname" value="$forumname"> <tr><td bgcolor=$miscbacktwo colspan=2 align=center>Добавление объявления</td></tr> <tr><td bgcolor=$miscbackone valign=middle>Ник</td> <td bgcolor=$miscbackone valign=middle><input type=text name="membername" value="$inmembername" size=30></a></td></tr> <tr><td bgcolor=$miscbackone valign=middle>Пароль</td> <td bgcolor=$miscbackone valign=middle><input type=password name="password" value="$inpassword" size=30></td></tr> <tr><td bgcolor=$miscbackone valign=top width=30%>Заголовок объявления</td> <td bgcolor=$miscbackone valign=middle><input type=text name="announcementtitle" size=60 maxlength=100></td></tr> <tr><td bgcolor=$miscbackone valign=top width=30%>Объявление Текст объявленияЕсли на форуме включены смайлы, Вы можете их использовать в объявлении.Ikoncode будет преобразовываться автоматически.</td> <td bgcolor=$miscbackone valign=middle><textarea cols=60 rows=15 name="announcementpost"></textarea></td></tr> <tr><td bgcolor=$miscbacktwo valign=middle colspan=2 align=center> <input type=Submit value=Отправить name=Submit onClick="return clckcntr();">   <input type="reset" name=Очистить></form></td></tr> ~; } # end action elsif ($action eq "addannouncement") { $currenttime = time; # Validate user &getmember("$inmembername"); &moderator; $cleartoedit = "no"; if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; } if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; } unless ($cleartoedit eq "yes") { $cleartoedit = "no"; } if ($cleartoedit eq "no") { &error("Добавлении объявления в форум&Вы не являетесь Модератором или Администратором, или Ваш пароль неверен"); } # Check for blanks. if ($inannouncementpost eq "") { print header(); &error("Объявлении&Вы должны ввести объявление."); } if ($inannouncementtitle eq "") { print header(); &error("Объявлении&Вы должны ввести заголовок объявления"); } # Get the announcement file $filetoopen = "$ikondir" . "forum$inforum/news.cgi"; $filetoopen = &stripMETA($filetoopen); open(FILE, "$filetoopen"); @announcements = <FILE>; close(FILE); # Write it back with the new announcement at the top $newline = "$inannouncementtitle|$currenttime|$inannouncementpost"; chomp $newline; $filetoopen = "$ikondir" . "forum$inforum/news.cgi"; $filetoopen = &stripMETA($filetoopen); open(FILE, ">$filetoopen"); flock(FILE, 2); print FILE "$newline\n"; foreach $line (@announcements) { chomp $line; print FILE "$line\n"; } close(FILE); &doend("Объявление добавлено"); } # end add announcement elsif ($action eq "edit") { # Get the announcement file $filetoopen = "$ikondir" . "forum$inforum/news.cgi"; $filetoopen = &stripMETA($filetoopen); open(FILE, "$filetoopen") or die "Cannot locate the required file"; @announcements = <FILE>; close(FILE); # Get the announcement to edit $count = 0; foreach (@announcements) { if ($count eq $number) { ($announcementtitle, $notneeded, $announcementpost) = split(/\|/,$_); } $count++; } # Clean the text area $announcementpost =~ s/\<p\>/\n\n/g; $announcementpost =~ s/\<br\>/\n/g; # Present the form $output .= qq~ <form action="$thisprog" method=post><input type=hidden name="action" value="doedit"> <input type=hidden name="number" value="$number"><input type=hidden name="inforum" value="$inforum"> <input type=hidden name="forumname" value="$forumname"> <tr><td bgcolor=$miscbacktwo colspan=2 align=center>Редактирование объявления</td></tr> <tr><td bgcolor=$miscbackone valign=middle>Ник</td> <td bgcolor=$miscbackone valign=middle><input type=text name="membername" value="$inmembername" size=30></a></td></tr> <tr><td bgcolor=$miscbackone valign=middle>Пароль</td> <td bgcolor=$miscbackone valign=middle><input type=password name="password" value="$inpassword" size=30></td></tr> <tr><td bgcolor=$miscbackone valign=top width=30%>Заголовок объявления</td> <td bgcolor=$miscbackone valign=middle><input type=text name="announcementtitle" value="$announcementtitle"size=60 maxlength=100></td></tr> <tr><td bgcolor=$miscbackone valign=top width=30%>Объявление Текст объявленияЕсли на форуме включены смайлы, Вы можете их использовать в объявлении.Ikoncode будет преобразовываться автоматически.</td> <td bgcolor=$miscbackone valign=middle><textarea cols=60 rows=15 name="announcementpost">$announcementpost</textarea></td></tr> <tr><td bgcolor=$miscbacktwo valign=middle colspan=2 align=center> <input type=Submit value=Отправить name=Submit onClick="return clckcntr();">   <input type="reset" name=Очистить></form></td></tr> ~; } # end action elsif ($action eq "doedit") { $currenttime = time; # Make sure it's got all new lines converted # Validate user &getmember("$inmembername"); &moderator; $cleartoedit = "no"; if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; } if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; } unless ($cleartoedit eq "yes") { $cleartoedit = "no"; } if ($cleartoedit eq "no") { &error("Редактировании объявления&Вы не являетесь Модератором или Администратором, или Ваш пароль неверен"); } # Check for blanks. if ($inannouncementpost eq "") { print header(); &error("Объявлении&Вы должны ввести объявление."); } if ($inannouncementtitle eq "") { print header(); &error("Объявлении&Вы должны ввести заголовок объявления"); } # Get the announcement file $filetoopen = "$ikondir" . "forum$inforum/news.cgi"; $filetoopen = &stripMETA($filetoopen); open(FILE, "$filetoopen") or die "Cannot locate the file to open"; @announcements = <FILE>; close(FILE); # Write it back with the new announcement at the top $count = 0; $newline = "$inannouncementtitle|$currenttime|$inannouncementpost"; chomp $newline; $filetoopen = "$ikondir" . "forum$inforum/news.cgi"; $filetoopen = &stripMETA($filetoopen); open(FILE, ">$filetoopen") or die "Не найден файл"; flock(FILE, 2); foreach $line (@announcements) { chomp $line; if ($count eq $number) { print FILE "$newline\n"; } else { print FILE "$line\n"; } $count++; } close(FILE); &doend("Объявление отредактировано"); exit; } # end edit announcement else { # start last else ### start displaying the announcements. $filetoopen = "$ikondir" . "forum$inforum/news.cgi"; $filetoopen = &stripMETA($filetoopen); open(FILE, "$filetoopen"); @announcements = <FILE>; close(FILE); $postcountcheck = 0; $totals = @announcements; if ($totals eq "0") { $dateposted = time; @announcements[0] = qq~В настоящее время нет объявлений|$dateposted| Нажмите <a href="$thisprog?action=add">Добавить</a> для добавления объявления (только для Администрации) Это объявление будет удалено, когда будет сделано следующее~; } foreach $line (@announcements) { ($title, $dateposted, $post) = split(/\|/, $line); $dateposted = $dateposted + ($timedifferencevalue*3600) + ($timezone*3600); $dateposted = &dateformat("$dateposted"); $post = &ikoncode("$post"); $post = &doemoticons("$post"); $post =~ s/\:\)/<img src=\"$imagesurl\/emoticons\/smile.gif\" border=\"0\">/g; $post =~ s/\;\)/<img src=\"$imagesurl\/emoticons\/wink.gif\" border=\"0\">/g; $post =~ s/\:\(/<img src=\"$imagesurl\/emoticons\/sad.gif\" border=\"0\">/g; # Allow HTML $post =~ s/&lt\;/\</g; $post =~ s/&gt\;/\>/g; $post =~ s/&quot\;/\"/g; if ($count eq "1") { $postbackcolor = "$postcolorone"; $postfontcolor = "$postfontcolorone"; $count++; } else { $postbackcolor = "$postcolortwo"; $postfontcolor = "$postfontcolortwo"; $count = 1; } $post = qq~<blockquote>$post</blockquote>~; $adminadd = qq~<a href="$thisprog?action=add&inforum=$inforum&forumname=$forumname">Добавить</a>~; $admindelete = qq~<a href="$thisprog?action=delete&number=$postcountcheck&inforum=$inforum&forumname=$forumname">Удалить</a>~; $adminedit = qq~<a href="$thisprog?action=edit&number=$postcountcheck&inforum=$inforum&forumname=$forumname">Редактировать</a>~; &getmember("$inmembername"); $output .= qq~ <tr><td bgcolor=$titlecolor align=center valign=top>» $title «</td></tr> ~; &moderator; $cleartoedit = "no"; if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; } if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; } unless ($cleartoedit eq "yes") { $cleartoedit = "no"; } if ($cleartoedit eq "yes") { $output .= qq~<tr><td bgcolor=$postbackcolor align=left>$admindelete | $adminedit | $adminadd</td></tr> ~; } $output .= qq~ <tr><td bgcolor="$postbackcolor" valign=top> $post</td></tr><tr><td bgcolor="$postbackcolor" valign=middle>Добавлено: $dateposted</td></tr> ~; $postcountcheck++; } # end foreach } # end last else $output .= qq~</table></td></tr></table>~; &output( -Title => "$boardname - Объявления", -ToPrint => $output, -Version => $versionnumber <img src="smiles/wink.gif" align=absmiddle alt=";)">; ############################################################## ### Sub route (login) sub login {local($url) = @_; ($postto, $therest) = split(/\?/,$url); @pairs = split(/\&/,$therest); foreach (@pairs) { ($name, $value)=split(/\=/,$_); $hiddenvars .= qq~<input type=hidden name="$name" value="$value">\n~; } $output .= qq~ <form action="$postto" method="post">$hiddenvars <input type=hidden name="forumname" value="$forumname"> <tr><td bgcolor=$miscbacktwo valign=middle colspan=2 align=center>Введите свои данные для добавления объявления Только Администраторы или модераторы раздела могут добавить объявление</td></tr> <tr><td bgcolor=$miscbackone valign=middle>Ник</td> <td bgcolor=$miscbackone valign=middle><input type=text name="membername" value="$inmembername" size=30></td></tr> <tr><td bgcolor=$miscbackone valign=middle>Пароль</td> <td bgcolor=$miscbackone valign=middle><input type=password name="password" value="$inpassword" size=30></td></tr> <tr><td bgcolor=$miscbacktwo valign=middle colspan=2 align=center><input type=submit name="submit" value="Войти"></form></td></tr></table></td></tr></table> ~; } # end routine sub doend { my $action_taken = shift; $relocurl = "$boardurl/forums.cgi?forum=$inforum"; $output .= qq~ <tr><td bgcolor=$miscbacktwo valign=middle align=center>Объявление</td></tr> <tr><td bgcolor=$miscbackone valign=middle> Если Ваш браузер не перешел автоматически, нажмите одну из ссылок:<ul><li>$action_taken<li><a href="$relocurl">Назад на форум</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 );}
я конечно извиняюсь - переделывал под свой форум, поэтому там могут не совпадать размеры шрифтов, классы и т.п. однако, мне кажется - это может исправить каждый... читайте код

После этого... правки в [B]forums.cgi[/B]

Найти:
 # Start printing the threads $output .= qq~ <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</td> <td bgcolor=$titlecolor align=left width=25%>Информация по теме</td> <td bgcolor=$titlecolor width=25%>Последнее</td></tr> ~;

Выше этого добавить:
 my $filetoopen = "$ikondir" . "forum$inforum/news.cgi"; if (-e $filetoopen) { openFILE(-FH=>'FILE',-FN=>"$filetoopen",-MD=>'r'); my @announcementdata = <FILE>; close(FILE); my $totalannouncements = @announcementdata; if ($totalannouncements eq "0" || $totalannouncements eq "" ) { $toshow = "no" } ($title, $dateposted, $trash) = split(/\|/, $announcementdata[0]); } else { $dateposted = time; $toshow = "no"; } my $dateposted = $dateposted + ($timedifferencevalue*3600) + ($timezone*3600); $dateposted = &longdate("$dateposted"); if (($toshow ne "no") && ($startarray == 0)) { $output .= qq~ <table cellpadding=0 cellspacing=1 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center> <tr><td bgcolor=$titlecolor colspan=4> >> Объявления раздела</td></tr> <tr><td bgcolor=$forumcolortwo align=center width=50><img src="$imagesurl/images/announce.gif" border=0></td> <td bgcolor=$forumcolortwo align=center> $title </td><td bgcolor=$forumcolortwo align="center" width=100> [ <a href="$boardurl/forumannounce.cgi?inforum=$inforum&forumname=$forumname">Прочитать все</a> ]</td> <td bgcolor=$forumcolorone align=center width=120>$dateposted</td></tr></table> ~; }

Далее найти:
 Модерирование: <a href="$forumoptionsprog?action=prune&forum=$inforum">Массовая очистка</a> 

Ниже этого добавить:

 &nbsp<a href="forumannounce.cgi?action=add&inforum=$inforum&forumname=$forumname">Добавить объявление в раздел</a> 

Юзайте!

Опять же.... менял под свой форум - могут быть изменения в HTML- части...

Всем спасибо, все свободны

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

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

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

Правила для каждого форума - Хак

Позволяет создавать правила (или объявления) для конкретного форума.

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