Просмотр файла dpforum/ban.php
- <?
- include 'dan.php';
- /*
- by Dionisij (c) 2006
- dionisij@nm.ru
- Скрипт не предназначен для продажи!
- При распространении необходимо обговорить условия распространения с автором скрипта.
- Нарушение авторских прав преследуется по закону и по понятиям!
- */
- include 'ver.php';
- $zag="Опции";
- if($ver=="wml"){include 'wapzag.php';} else{include 'webzag.php';}
- include'avt.php';
- if($login!="" & $status=="moder"){
- if ($step==""){
- $dir = @opendir ("$banlist");
- while ( $file = @readdir ($dir)){
- if ( $file != "."& $file != ".."){
- $argroup[]=$file;
- }}
- if($argroup){
- foreach( $argroup as $key => $value){
- print"<a href=\"ban.php?ver=$ver&pas=$pas&login=$login&step=2&ip=$value\">(del)</a> ";
- if(@file("$banlist/$value")){
- print"<a href=\"ban.php?ver=$ver&pas=$pas&login=$login&step=3&ip=$value\">$value</a><br/> ";}
- else{print"$value<br/>";}
- }
- } else {print"Банлист пуст";}
- }
- if($step==2){
- if($ip!=""){
- @unlink ("$banlist/$ip");
- print"Выполнено";
- } else {print"Ненайдено";}
- }
- if($step==3){
- print"Кликните для снятия бана:<br/>";
- $arbanlist=@file("$banlist/$ip");
- if($arbanlist){foreach($arbanlist as $key => $value){
- $value=trim($value);
- if($value!=""){
- print"<a href=\"ban.php?ver=$ver&pas=$pas&login=$login&step=4&ip=$ip&soft=$key\">$value</a><br/>";
- }
- }
- }
- }
- if($step==4){
- $arbanlist=@file("$banlist/$ip");
- $arbanlist[$soft]="";
- $fp=@fopen("$banlist/$ip","w");
- foreach($arbanlist as $key => $value){
- if ($value!=""){@fputs($fp,$value);}
- }
- @fclose($fp);
- @chmod("$banlist/$ip",0777);
- 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($ver=="wml"){print"<a href=\"ban.php?ver=html&pas=$pas&login=$login\">wap 2.0</a><br/>";}
- else{print"<a href=\"ban.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>";}
- ?>