Перемещение форумов по разделам :: Ikonboard v.2

Я нашёл такой хак

В setforums.cgi найти:

Код:

$new_categoryname = $PARAM{'categoryname'};
$new_categorynumber = $PARAM{'categorynumber'};
$new_forumname = $PARAM{'forumname'};
$new_forumdescription = $PARAM{'forumdescription'};
$new_forummoderator = $PARAM{'forummoderator'};
$new_htmlstate = $PARAM{'htmlstate'};
$new_idmbcodestate = $PARAM{'idmbcodestate'};
$new_privateforum = $PARAM{'privateforum'};
$new_startnewthreads = $PARAM{'startnewthreads'};
$new_forumgraphic = $PARAM{'forumgraphic'};

Добавить ниже:

Код:

$new_categoryplace = $PARAM{'new_categoryplace'};

Чуть ниже найти:

Код:

my %Mode = (
'addforum' => \&addforum,
'processnew' => \&createforum,
'edit' => \&editform,
'doedit' => \&doedit,
'addcategory' => \&catform,
'doaddcategory' => \&doaddcategory,
'editcatname' => \&editcatname,
'reordercategories' => \&reordercats,
'recount' => \&recount

Заменить на:

Код:

Затем найти:

Код:

if ($categoryplace ne $lastcategoryplace) { #start if $categoryplace
print qq~
<tr>
<td bgcolor=#EEEEEE width=20% nowrap>
» $category<td bgcolor=#EEEEEE width=15% align=center nowrap><a href="$thisprog?action=editcatname&category=$categoryplace">Edit Category Name</a></td><td bgcolor=#EEEEEE width=25% align=left><a href="$thisprog?action=addforum&category=$categoryplace">Add Forum to this category</a></td>
</td></tr>
<tr>
<td bgcolor=#FFFFFF colspan=3 align=left nowrap>
$forumname Posts: $posts | Topics: $threads <a href="$thisprog?action=edit&forum=$forumid">Edit Forum</a> | <a href="$thisprog?action=delete&forum=$forumid">Delete Forum</a> | <a href="$thisprog?action=recount&forum=$forumid">Recount Post Numbers / Fix Forum</a></td>
</td></tr>
~;
} # end if
else {
print qq~
<tr>
<td bgcolor=#FFFFFF colspan=3 align=left nowrap><hr noshade size=1>
$forumname Posts: $posts | Topics: $threads <a href="$thisprog?action=edit&forum=$forumid">Edit Forum</a> | <a href="$thisprog?action=delete&forum=$forumid">Delete Forum</a> | <a href="$thisprog?action=recount&forum=$forumid">Recount Post Numbers / Fix Forum</a></td>
</td></tr>
~;
}

Заменить на:

Код:

if ($categoryplace ne $lastcategoryplace) { #start if $categoryplace
print qq~
<tr>
<td bgcolor=#EEEEEE width=20% nowrap>
» $category<td bgcolor=#EEEEEE width=15% align=center nowrap><a href="$thisprog?action=editcatname&category=$categoryplace">Edit Category Name</a></td><td bgcolor=#EEEEEE width=25% align=left><a href="$thisprog?action=addforum&category=$categoryplace">Add Forum to this category</a></td>
</td></tr>
<tr>
<td bgcolor=#FFFFFF colspan=3 align=left nowrap>
$forumname Posts: $posts | Topics: $threads <a href="$thisprog?action=edit&forum=$forumid">Edit Forum</a> | <a href="$thisprog?action=delete&forum=$forumid">Delete Forum</a> | <a href="$thisprog?action=recount&forum=$forumid">Recount Post Numbers / Fix Forum</a> | <a href="$thisprog?action=moveforum&forum=$forumid">Move Forum</a></td>
</td></tr>
~;
} # end if
else {
print qq~
<tr>
<td bgcolor=#FFFFFF colspan=3 align=left nowrap><hr noshade size=1>
$forumname Posts: $posts | Topics: $threads <a href="$thisprog?action=edit&forum=$forumid">Edit Forum</a> | <a href="$thisprog?action=delete&forum=$forumid">Delete Forum</a> | <a href="$thisprog?action=recount&forum=$forumid">Recount Post Numbers / Fix Forum</a> | <a href="$thisprog?action=moveforum&forum=$forumid">Move Forum</a></td>
</td></tr>
~;
}

Далее, ближе к концу файла в sub reordercats найти:

Код:

print qq~
<tr><td bgcolor=#333333" colspan=2>
Welcome your ikon board Administration Center / Edit Category Name Result:
</td></tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
All information saved
</td></tr></table></td></tr></table>
~;

} # end else

} # end routine

Добавить ниже:

Код:

#######Sub-routes - Move Forum

sub moveforum {

print qq~
<tr><td bgcolor=#333333" colspan=2>
Welcome to your ikon board Administration Center / Move a forum
</td></tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
Move '$forumname' in category '$categoryname' set-up
</td></tr>
~;
$filetoopen = "$ikondir" . "data/allforums.cgi";
open(FILE, "$filetoopen") or &systemerror("Cannot locate $filetoopen");
@forums = <FILE>;
close(FILE);

foreach $forum (@forums) { #start foreach @forums
chomp $forum;
($forumid, $category, $categoryplace, $forumname, $forumdescription) = split(/\|/,$forum);
$rearrange = ("$categoryplace|$category|$forumname|$forumdescription|$forumid");
push (@rearrangedforums, $rearrange);

} # end foreach (@forums)

@finalsortedforums = sort(@rearrangedforums);

foreach $sortedforums (@finalsortedforums) { #start foreach @finalsortedforums

($categoryplace, $category) = split(/\|/,$sortedforums);

if ($categoryplace ne $lastcategoryplace) { #start if $categoryplace
print qq~
<tr>
<td bgcolor=#FFFFFF width=40%>
» $category</td>
<td bgcolor=#FFFFFF>Current Place [ $categoryplace ]
</td></tr>
~;
} # end if

$lastcategoryplace = $categoryplace;

} # end foreach

$filetoopen = "$ikondir" . "data/allforums.cgi";
open(FILE, "$filetoopen");
@forums = <FILE>;
close(FILE);

foreach $forum (@forums) {
chomp $forum;
($forumid,$category,$notneeded,$notneeded) = split(/\|/,$forum);
if ($forumid eq "$inforum") {
($moveforumid, $categoryname, $categoryplace, $forumname, $forumdescription, $forummoderator ,$htmlstate ,$idmbcodestate ,$privateforum, $startnewthreads ,$lastposter ,$lastposttime, $threads, $posts, $forumgraphic) = split(/\|/,$forum);
}
}
print qq~
<form action="$thisprog" method="post">
<input type=hidden name="action" value="domoveforum">
<input type=hidden name="forum" value="$moveforumid">
<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
Forum Name - $forumname Current Category - $categoryname Current Category Place - $categoryplace Please enter the new category number</td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text size=3 name="new_categoryplace" value="$new_categoryplace"></td>
</tr>
<tr>
<td bgcolor=#FFFFFF valign=middle align=center colspan=2>
<input type=submit value=submit ></form></td></tr></table></td></tr></table>
~;

} # end route

sub domoveforum {#begin routine
$filetoopen = "$ikondir" . "data/allforums.cgi";
open(FILE, "$filetoopen");
@forums = <FILE>;
close(FILE);

foreach $forum (@forums) {
chomp $forum;
($checkforumid,$category,$notneeded,$notneeded) = split(/\|/,$forum);
if ($checkforumid eq "$inforum") {
($forumid, $categoryname, $categoryplace, $forumname, $forumdescription, $forummoderator ,$htmlstate ,$idmbcodestate ,$privateforum, $startnewthreads ,$lastposter ,$lastposttime, $threads, $posts, $forumgraphic) = split(/\|/,$forum);
}
}

# Find the category name from the number
foreach (@forums) {
($trash, $tempcategoryname, $tempcategoryplace, $trash) = split(/\|/, $_);
if ($new_categoryplace eq $tempcategoryplace) {
$category = $tempcategoryname;
}
}

# Time to process the forms

$editedline = "$forumid|$category|$new_categoryplace|$forumname|$forumdescription|$forummoderator|$htmlstate|$idmbcodestate|$privateforum|$startnewthreads|$lastposter|$lastposttime|$threads|$posts|$forumgraphic|$pollstate|";
chomp $editedline;

# Lets re-open the file

foreach $forum (@forums) {
chomp $forum;
($tempforumid,$notneeded) = split(/\|/,$forum);
if ($tempforumid eq "$forumid") {
$processed_data .= "$editedline\n";
}
else {
$processed_data .= "$forum\n";
}
}
if (($processed_data eq "") || ($processed_data !~ m!\|!)) { &error("Missing Data&Data as corrupted on the server. Please go back and try again"); }
$filetoopen = "$ikondir" . "data/allforums.cgi";
open(FILE,">$filetoopen") or &systemerror("Cannot locate $filetoopen");
flock(FILE,2);
print FILE $processed_data;
close (FILE);
undef $processed_data;

print qq~
<tr><td bgcolor=#333333" colspan=2>
Welcome your ikon board Administration Center / Move forum Result:
</td></tr>
<tr>
<td bgcolor=#EEEEEE valign=middle align=center colspan=2>
All information saved
</td></tr></table></td></tr></table>
~;

} # end routine

И всё . Перевод на русский сделайте сами

Модерирует : Antuan
Версия для печати • Подписаться • Добавить в закладки