модерирование тем в форуме :: Форум поддержки русской версии IkonBoard

Замени процедуру sub process_join на вот такую:

sub process_join { <br>&getmember("$inmembername"); <br>&moderator; <br>$cleartoedit = "no"; <br>&mischeader("Соединение тем"); <br>if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; } <br>if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; } <br>unless ($cleartoedit eq "yes") { $cleartoedit = "no"; } <br>if ($cleartoedit eq "no" && $checked eq "yes") { &error("объединении тем&Вы не имеете прав Модератора или Администратора или ваш пароль введен неверно."); } <br>else { <br>open (TOPIC,"<$ikondir"."forum$forum/$topic.thd"); <br>flock(TOPIC,1); <br>@messages=<TOPIC>; <br>close(TOPIC); <br>$msgcount=@messages; <br>my $file = "$ikondir" . "forum$inforum/$topic.pl"; <br>$file=&stripMETA($file); <br>open (ENT, "<$file"); <br>flock ENT, 1; <br>$in = <ENT>; <br>close (ENT); <br>($topicid, $topictitle, $topicdescription, $threadstate, $threadposts ,$oldthreadviews, $startedby, $startedpostdate, $old_lastposter, $old_lastpostdate,$old_sticky) = split(/\|/,$in); <br>my $file = "$ikondir" . "forum$inforum/$jointopic.pl"; <br>$file=&stripMETA($file); <br>open (ENT, "<$file"); <br>flock ENT, 1; <br>$in = <ENT>; <br>close (ENT); <br>($topicid, $topictitle, $topicdescription, $threadstate, $threadposts ,$threadviews, $startedby, $startedpostdate, $lastpostername, $lastpostdate,$sticky) = split(/\|/,$in); <br>($oldlastpostername, $trash, $trash, $trash, $trash ,$oldlastpostdate, $trash) = split(/\|/, @messages[$msgcount-1]); <br>$threadviews = $threadviews + $oldthreadviews; <br>$threadposts = $threadposts + $msgcount; <br>open (ENT, ">$file"); <br>flock (ENT,2); <br>print ENT ("$topicid|$topictitle|$topicdescription|$threadstate|$threadposts|$threadviews|$startedby|$startedpostdate|$lastpostername|$lastpostdate|$sticky"); <br>close (ENT); <br>open (ENT,"<forum$inforum/$jointopic.thd"); <br>flock (ENT,1); <br>my @old_thd = <ENT>; <br>close (ENT); <br>open (ENT,">forum$inforum/$jointopic.thd"); <br>flock (ENT,2); <br>foreach $string (@old_thd) { <br>chomp $string; <br>print ENT $string."\n"; <br>      } <br>foreach $string (@messages) { <br>chomp $string; <br>      my @split_line = split (/\|/, $string); <br>      $split_line[2] = $topictitle; <br>print ENT join ("|", @split_line)."\n"; <br>      } <br>close (ENT); <br>if ($saveoldtopic ne "yes") { <br>unlink("$ikondir" . "forum$inforum/$topic.pl"); <br>unlink("$ikondir" . "forum$inforum/$topic.thd"); <br>unlink("$ikondir" . "forum$inforum/$topic.mal"); <br>require "$ikondir" . "data/boardstats.cgi"; <br>$filetomake = "$ikondir" . "data/boardstats.cgi"; <br>$filetomake = &stripMETA($filetomake); <br>$totalthreads--; <br>open(FILE, ">$filetomake"); <br>flock(FILE, 2); <br>print FILE "\$lastregisteredmember = \"$lastregisteredmember\"\;\n"; <br>print FILE "\$totalmembers = \"$totalmembers\"\;\n"; <br>print FILE "\$totalthreads = \"$totalthreads\"\;\n"; <br>print FILE "\$totalposts = \"$totalposts\"\;\n"; <br>print FILE "\n1\;"; <br>close (FILE); <br>            open (ALLF, "<data/allforums.cgi"); <br>            flock(ALLF, 1); <br>            my @allf = <ALLF>; <br>            close (ALLF); <br>            foreach (@allf) { <br>                        chomp; <br>                        if ((split(/\|/))[0] eq $inforum) { <br>my @f_splitted = split(/\|/); <br>                        $f_splitted[12]--; <br>$processed_data .= join("|", @f_splitted)."\n"; <br>} else { $processed_data .= $_."\n"; } <br>} <br>if (($processed_data eq "") || ($processed_data !~ m!\|!)) { &error("Missing Data&Data as corrupted on the server. Please go back and try again"); } <br>open(FILE, ">data/allforums.cgi"); <br>flock(FILE, 2); <br>print FILE $processed_data; <br>close(FILE); <br>undef $processed_data; <br>} <br>rebuildLIST(-Forum=>"$inforum"); <br>$output .= qq~ <br><table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center> <br><tr> <br><td> <br><table cellpadding=6 cellspacing=1 border=0 width=100%> <br><tr> <br><td bgcolor=$miscbacktwo valign=middle align=center ><b>Темы успешно объединены</b></td></tr> <br><tr> <br><td bgcolor=$miscbackone valign=middle><br><ul> <br><li><a href="$threadprog?forum=$inforum&topic=$jointopic">Перейти к объединенной теме</a> <br><li><a href="$forumsprog?forum=$inforum">Перейти на форум</a> <br><li><a href="$forumsummaryprog">Перейти к списку форумов</a> <br></ul> <br></tr> <br></td> <br></table></td></tr></table>~; <br>} <br>}

У меня работает!

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

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

Объединенный Открытый Проект » Русский IkonBoard » Форум поддержки русской версии IkonBoard » модерирование тем в форуме

модерирование тем в форуме

Объединенный Открытый Проект » Русский IkonBoard » Форум поддержки русской версии IkonBoard » модерирование тем в форуме