Размер файла: 6.63Kb
<?
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!="" & $login==$admin){
if($step==6){
$argruz=@file("$group/$mru");
$fp=@fopen("$group/$dgr","a");
foreach($argruz as $key => $value){
@fputs($fp,$value);
}
@fclose($fp);
@unlink ("$group/$mru");
$step="";
}
if($step==7){
@unlink ("$group/$mru");
$step="";
}
if($step==1){
$nname=trim(htmlspecialchars(stripslashes(str_replace($ztex1, $ztex2, $nname))));
if($nname!="vs" & $nname!=""){
$fp=@fopen("$group/$nname","w");
@fclose($fp);
@chmod("$group/$nname",0777); }
$step="";
}
if($step==""){
$dir = @opendir ("$group");
while ( $file = @readdir ($dir)){
if ( $file != "."& $file != ".."){
$argroup[]=$file;
}}
if($ver!="wml"){print"<form method=\"post\" action=\"group.php?ver=$ver&pas=$pas&login=$login&step=1\" name=\"login\">";}
print"
Новая: <input name=\"nname\" maxlength=\"50\" /> ";
if($ver=="wml"){print"<anchor title=\"ok\">Добавить
<go href=\"group.php?ver=$ver&pas=$pas&login=$login&step=1\" method=\"post\">
<postfield name=\"nname\" value=\"$(nname)\"/>
</go>
</anchor><br/>";}
else{print"<input class=\"button\" type=\"submit\" value=\"Добавить\"/></form>";}
if($argroup){
foreach( $argroup as $key => $value){
print"<a href=\"group.php?ver=$ver&pas=$pas&login=$login&step=2&mru=$value\">$value</a><br/>";
}
} else {print"Групп нет.";}
}
if($step==3){
$nname=trim(htmlspecialchars(stripslashes(str_replace($ztex1, $ztex2, $nname))));
if( file_exists ("$uzer/$nname")){
$fp=@fopen("$group/$mru","a");
@fputs($fp,"$nname\r\n");
@fclose($fp);
print"Пользователь добавлен <br/>";
} else {print"Пользователя с таким именем не существует!<br/>";}
$step=2;}
if($step==4){
if( file_exists ("$group/$mru")){
$argruz=@file("$group/$mru");
$fp=@fopen("$group/$mru","w");
foreach ($argruz as $key => $value){
$prov=trim($value);
if($prov!=$uz){@fputs($fp,$value);}
}
@fclose($fp);
@chmod("$group/$mru",0777);
}
$step=2;}
if($step==2){
if( file_exists ("$group/$mru")){
if($ver!="wml"){print"<form method=\"post\" action=\"group.php?ver=$ver&pas=$pas&login=$login&step=3&mru=$mru\" name=\"login\">";}
print"
Новый пользователь: <input name=\"nname\" maxlength=\"50\" /> ";
if($ver=="wml"){print"<anchor title=\"ok\">Добавить
<go href=\"group.php?ver=$ver&pas=$pas&login=$login&step=3&mru=$mru\" method=\"post\">
<postfield name=\"nname\" value=\"$(nname)\"/>
</go>
</anchor><br/>";}
else{print"<input class=\"button\" type=\"submit\" value=\"Добавить\"/></form><br/>";}
print"<a href=\"group.php?ver=$ver&pas=$pas&login=$login&step=5&mru=$mru\">[Модерировать группу]</a><br/><br/>";
$argruz=@file("$group/$mru");
$tp=1;
$nr=0;
if($pr=="" || $pr<=0){$pr=1;}
foreach ($argruz as $key => $value){
$nr++;
if($nr>8){$tp++; $nr=1;}
if($tp==$pr){$value=trim($value);
print"
<small><a href=\"group.php?ver=$ver&pas=$pas&login=$login&step=4&mru=$mru&uz=$value\">(del)</a> </small>
<a href=\"infa.php?ver=$ver&pas=$pas&login=$login&uz=$value\">$value</a><br/>";
}}
$prev=$pr-1;
$pprev=$pr-2;
$next=$pr+1;
$nnext=$pr+2;
print"<br/>Страница $pr из $tp<br/>";
if($pr>1){print"<a href=\"group.php?ver=$ver&pas=$pas&login=$login&step=2&mru=$mru&pr=1\">1</a>|";}
if($pprev>1){print"<a href=\"group.php?ver=$ver&pas=$pas&login=$login&step=2&mru=$mru&pr=$pprev\">$pprev</a>|";}
if($prev>1){print"<a href=\"group.php?ver=$ver&pas=$pas&login=$login&step=2&mru=$mru&pr=$prev\">$prev</a>|";}
print"$pr|";
if($next<=($tp-1)){print"<a href=\"group.php?ver=$ver&pas=$pas&login=$login&step=2&mru=$mru&pr=$next\">$next</a>|";}
if($next<=($tp-2)){print"<a href=\"group.php?ver=$ver&pas=$pas&login=$login&step=2&mru=$mru&pr=$nnext\">$nnext</a>|";}
if($pr<$tp){print"<a href=\"group.php?ver=$ver&pas=$pas&login=$login&step=2&mru=$mru&pr=$tp\">$tp</a>|";}
} else {print"Такой группы не существует";}
}
if($step==5){
print"Объединить группу с: ";
$dir = @opendir ("$group");
while ( $file = @readdir ($dir)){
if ( $file != "."& $file != ".."){
$argroup[]=$file;
}}
if($argroup){
if($ver!="wml"){print"<form method=\"post\" action=\"group.php?ver=$ver&pas=$pas&login=$login&step=6&mru=$mru\" name=\"login\">";}
print"<select name=\"dgr\" title=\"group\">";
foreach( $argroup as $key => $value){
if($value!=$mru){print"<option value=\"$value\">$value</option>";}
}
print"</select>";
if($ver=="wml"){print"<anchor title=\"ok\">выполнить
<go href=\"group.php?ver=$ver&pas=$pas&login=$login&step=6&mru=$mru\" method=\"post\">
<postfield name=\"dgr\" value=\"$(dgr)\"/>
</go>
</anchor><br/>";}
else{print"<input class=\"button\" type=\"submit\" value=\"выполнить\"/></form>";}
print"-------<br/>";}
print"<a href=\"group.php?ver=$ver&pas=$pas&login=$login&step=7&mru=$mru\">[Удалить группу]</a><br/><br/>";
}
} 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=\"group.php?ver=html&pas=$pas&login=$login\">wap 2.0</a><br/>";}
else{print"<a href=\"group.php?ver=wml&pas=$pas&login=$login\">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>";}
?>