<?
include 'dan.php';
/*
by Dionisij (c) 2006
[email protected]
Скрипт не предназначен для продажи!
При распространении необходимо обговорить условия распространения с автором скрипта.
Нарушение авторских прав преследуется по закону и по понятиям!
*/
include 'ver.php';
$zag="Модер-панель";
if($ver=="wml"){include 'wapzag.php';} else{include 'webzag.php';}
include'avt.php';
if($login!="" & $status=="moder" & $t!="name"){
if(@file("$perfix$r/$t")){
if($step==""){
$ardteam=@file("$perfix$r/$t");
$arzagt=explode("<br/>", $ardteam[0]);
$arzagt[2]=trim($arzagt[2]);
if($ver!="wml"){print"<form method=\"post\" action=\"modtem.php?ver=$ver&pas=$pas&login=$login&step=1&r=$r&t=$t\" name=\"login\">";}
print"
Название: <input name=\"nname\" maxlength=\"100\" value=\"$arzagt[0]\"/> ";
if($ver=="wml"){print"<anchor title=\"ok\">Сохранить
<go href=\"modtem.php?ver=$ver&pas=$pas&login=$login&step=1&r=$r&t=$t\" method=\"post\">
<postfield name=\"nname\" value=\"$(nname)\"/>
</go>
</anchor><br/>";}
else{print"<input class=\"button\" type=\"submit\" value=\"Сохранить\"/></form>";}
print"-------<br/>";
$prov=explode(".", $t);
if($prov[1]!="p"){print"<a href=\"modtem.php?ver=$ver&pas=$pas&login=$login&r=$r&t=$t&step=2\">Прикрепить</a><br/>";}
else{print "<a href=\"modtem.php?ver=$ver&pas=$pas&login=$login&r=$r&t=$t&step=3\">Отпустить</a><br/>";}
print"-------<br/>
Перенести тему в:<br/>";
if($ver!="wml"){print"<form method=\"post\" action=\"modtem.php?ver=$ver&pas=$pas&login=$login&step=9&r=$r&t=$t\" name=\"login\">";}
print"<select name=\"newr\" title=\"razdel\">";
$krazdel=@file("razdel");
$krazdel=trim($krazdel[0]);
$n=0;
while($n<=$krazdel){
$rname=@file("$perfix$n/name");
$rname=trim($rname[0]);
if($rname!=""){
$koltem=0;
print"<option value=\"$n\">$rname</option>";}
$n++;}
print"</select>";
if($ver=="wml"){print"<anchor title=\"ok\">выполнить
<go href=\"modtem.php?ver=$ver&pas=$pas&login=$login&step=9&r=$r&t=$t\" method=\"post\">
<postfield name=\"dgr\" value=\"$(dgr)\"/>
</go>
</anchor><br/>";}
else{print"<input class=\"button\" type=\"submit\" value=\"выполнить\"/></form>";}
print"-------<br/>";
if($arzagt[2]=="open"){
print"<a href=\"modtem.php?ver=$ver&pas=$pas&login=$login&r=$r&t=$t&step=4\">Закрыть тему</a><br/>";
} else {print"<a href=\"modtem.php?ver=$ver&pas=$pas&login=$login&r=$r&t=$t&step=5\">Открыть тему</a><br/>";}
print"-------<br/>";
if($arzagt[1]=="vs"){
print"
<a href=\"modtem.php?ver=$ver&pas=$pas&login=$login&r=$r&t=$t&step=8\">Удалить тему</a><br/>
-------<br/>
Сделать доступным только для группы:<br/>";
$dir = @opendir ("$group");
while ( $file = @readdir ($dir)){
if ( $file != "."& $file != ".."){
$argroup[]=$file;
}}
if($argroup){
if($ver!="wml"){print"<form method=\"post\" action=\"modtem.php?ver=$ver&pas=$pas&login=$login&step=6&r=$r&t=$t\" name=\"login\">";}
print"<select name=\"dgr\" title=\"group\">";
foreach( $argroup as $key => $value){
print"<option value=\"$value\">$value</option>";
}
print"</select>";
if($ver=="wml"){print"<anchor title=\"ok\">выполнить
<go href=\"modtem.php?ver=$ver&pas=$pas&login=$login&step=6&r=$r&t=$t\" method=\"post\">
<postfield name=\"dgr\" value=\"$(dgr)\"/>
</go>
</anchor><br/>";}
else{print"<input class=\"button\" type=\"submit\" value=\"выполнить\"/></form>";}
print"<br/>";
}
else{print"Необходимо создать группу. Обратитесь к администратору.";}
} else {print"<a href=\"modtem.php?ver=$ver&pas=$pas&login=$login&r=$r&t=$t&step=7\">Открыть для всех</a><br/>";}
}
if($step==1){
$nname=trim(htmlspecialchars(stripslashes(str_replace($ztex1, $ztex2, $nname))));
if($nname!=""){
$ardteam=@file("$perfix$r/$t");
$arzagt=explode("<br/>", $ardteam[0]);
$arzagt[0]=$nname;
$ardteam[0]=implode("<br/>", $arzagt);
$fp=@fopen("$perfix$r/$t","w");
foreach ($ardteam as $key => $value){
@fputs($fp,$value);
}
@fclose($fp);
@chmod("$perfix$r/$t",0777);
print"Сохранено";
} else {print "Название темы не может быть пустым!";}
}
if($step==2){
@rename ("$perfix$r/$t", "$perfix$r/$t.p");
$ar_n=@file("ntem");
foreach ($ar_n as $key => $value){
$ar_nv=explode("<br/>", $value);
if($ar_nv[0]==$t){ $ar_nv[0]="$t.p"; $ar_n[$key]=implode("<br/>", $ar_nv);}
}
$t="$t.p";
$fp=@fopen("ntem","w");
foreach ($ar_n as $key => $value){
@fputs($fp,$value);
}
@fclose($fp);
@chmod("ntem",0777);
print"Выполнео";
}
if($step==3){
$newt=explode(".", $t);
@rename ("$perfix$r/$t", "$perfix$r/$newt[0]");
$ar_n=@file("ntem");
foreach ($ar_n as $key => $value){
$ar_nv=explode("<br/>", $value);
if($ar_nv[0]==$t){$ar_nv[0]=$newt[0]; $ar_n[$key]=implode("<br/>", $ar_nv);}
}
$t="$newt[0]";
$fp=@fopen("ntem","w");
foreach ($ar_n as $key => $value){
@fputs($fp,$value);
}
@fclose($fp);
@chmod("ntem",0777);
print"Выполнео";
}
if($step==4){
$ardteam=@file("$perfix$r/$t");
$arzagt=explode("<br/>", $ardteam[0]);
$arzagt[2]="closed\r\n";
$ardteam[0]=implode("<br/>", $arzagt);
$fp=@fopen("$perfix$r/$t","w");
foreach ($ardteam as $key => $value){
@fputs($fp,$value);
}
@fclose($fp);
@chmod("$perfix$r/$t",0777);
print"Выполнео";
}
if($step==5){
$ardteam=@file("$perfix$r/$t");
$arzagt=explode("<br/>", $ardteam[0]);
$arzagt[2]="open\r\n";
$ardteam[0]=implode("<br/>", $arzagt);
$fp=@fopen("$perfix$r/$t","w");
foreach ($ardteam as $key => $value){
@fputs($fp,$value);
}
@fclose($fp);
@chmod("$perfix$r/$t",0777);
print"Выполнео";
}
if($step==7){
$ardteam=@file("$perfix$r/$t");
$arzagt=explode("<br/>", $ardteam[0]);
$arzagt[1]="vs";
$ardteam[0]=implode("<br/>", $arzagt);
$fp=@fopen("$perfix$r/$t","w");
foreach ($ardteam as $key => $value){
@fputs($fp,$value);
}
@fclose($fp);
@chmod("$perfix$r/$t",0777);
print"Выполнео";
}
if($step==6){
$ardteam=@file("$perfix$r/$t");
$arzagt=explode("<br/>", $ardteam[0]);
$arzagt[1]="$dgr";
$ardteam[0]=implode("<br/>", $arzagt);
$fp=@fopen("$perfix$r/$t","w");
foreach ($ardteam as $key => $value){
@fputs($fp,$value);
}
@fclose($fp);
@chmod("$perfix$r/$t",0777);
print"Выполнео";
}
if($step==8){
@unlink ("$perfix$r/$t");
print"Удалено";
}
if($step==9){
if($newr!=""){
if(@copy ("$perfix$r/$t", "$perfix$newr/$t")){
@unlink ("$perfix$r/$t");
$ar_n=@file("ntem");
foreach ($ar_n as $key => $value){
$ar_nv=explode("<br/>", $value);
if($ar_nv[0]==$t){ $ar_nv[1]=$newr; $ar_n[$key]=implode("<br/>", $ar_nv);}
}
$t="$t.p";
$fp=@fopen("ntem","w");
foreach ($ar_n as $key => $value){
@fputs($fp,$value);
}
@fclose($fp);
@chmod("ntem",0777);
print"Выполнено";
} else {print"Ошибка при переносе!";}
} else {print"Ошибка при переносе!";}
}
} else {print "Темы не существует!";}
} else {print"Для редактирования темы требуются права модератора";}
print"</p><p align=\"center\">";
if($ver=="html"){print"<table style=\"text-align: center; width: 98%;\"
border=\"1\" cellpadding=\"2\" cellspacing=\"2\">
<tbody>
<tr>
<td
style=\"background-color: rgb($color2);\" align=\"center\"
valign=\"top\">";}
print"<a href=\"index.php?ver=$ver&pas=$pas&login=$login\">Вернутся на форум</a><br/>";
if($login=="") { print"<a href=\"vxod.php?ver=$ver\">Вход</a><br/>";}
else {print"<a href=\"opc.php?ver=$ver&pas=$pas&login=$login\">[$login]</a><br/>";}
if($ver=="wml"){print"<a href=\"modtem.php?ver=html&pas=$pas&login=$login&r=$r&t=$t\">wap 2.0</a><br/>";}
else{print"<a href=\"modtem.php?ver=wml&pas=$pas&login=$login&r=$r&t=$t\">wap 1.2</a><br/>";}
print"<a href=\"$gen_link\">На главную</a>";
if($ver=="html"){print"</td>
</tr>
</tbody>
</table>
</body>
</html>
";}
else{print"</p></card></wml>";}
?>