Вы вошли как Панель администрирования Работа с данными Сделать резервную копию (главная стр.) Восстановить из копии (главн. стр.) Пересчитать кол-во тем и сообщений Просмотр БД Участники Пересчитать статистику (запуск при поврежении БД) Автоматическая рассылка писем Удалить НЕ АКТИВИРОВАННЫХ Безопасность IP-Блокировка Статистика работы админпанели ">Настройки Проверка версии форума Сгенировать карту сайта XML Помощь История версий, планы обновлений Инструкция по настройке форума Форум: Вопросы и ответы о форуме 390+ Форум: проблемы и вопросы разработчику Восстановление доступа к админпанели 10 новых сообщений форума на главной Скачать 63 темы оформления-скина [4 Мб.] Разработчикам: Перекодировать в UTF-8 Разработчикам: структура БД форума Разработчикам: как сделать скин ВЫХОД НО файл копии ПУСТ! Срочно пересоздайте! (смотрите права доступа, если эо сообщение повторяется)"; else $a2=""; $a1=round((time()-filemtime("$datadir/wrf-copy.dat"))/86400); if ($a1<1) $a1="сегодня, это есть гуд!"; else $a1.=" дней назад."; $add=" Копия была создана ".$a1." $a2"; if ($a1>90) $add.="Да уж, больше 3-х месяцев ниодной копии не делали. Испытываете судьбу? Делайте БЕГОМ!"; if ($a1>10) $add.="Вы что! СРОЧНО делайте копию! А вдруг сбой? Как будете данные восстанавливать?!!"; if ($a1>5) $add.="Пора делать копию. Берегите свои нервы. Чтобы быть спокойным при сбое ;-)"; $add.="";} else $add=""; // читаем файл с именами пользователей в память чтобы показать последнего $userlines=file("$datadir/user.php"); $ui=count($userlines)-1; $tdt=explode("|",$userlines[$ui]); print" $add Сегодня: $date г. - $time "; // выводим ГЛАВНУЮ СТРАНИЦУ ФОРУМА if (!isset($_GET['event'])) { if (!isset($_GET['id'])) { echo' '; // Выводим msg_onpage сообщений на текущей странице $addform=" Форумы Тем/Макс. Ответов Обновление Добавление Раздела / Форума Тип добавляемого пункта Раздел    Форум Заголовок Описание "; if (!is_file("$datadir/wrforum.dat")) exit(" Восстановите БД из копии. Файл wrforum.dat несуществует или добавьте форум/раздел. $addform"); $lines=file("$datadir/wrforum.dat"); $datasize=sizeof($lines); if ($datasize==0) exit(" Файл wrforum.dat пуст - добавьте форум или раздел. $addform"); $i=count($lines); $n="0"; $a1="-1"; $u=$i-1; $fid="0"; $itogotem="0"; $itogomsg="0"; do {$a1++; $dt=explode("|",$lines[$a1]); $fid=$dt[2]; echo'
'; if ($ktotut==1) { // только админ может управлять разделами print" ▲ ▼ .P. .X. "; } echo'	$dt[4]
$dt[4] $maxzvezd $dt[5]	$dt[6] / $dt[8]	$dt[7]	$newtema

Статистика
	Сообщений: $itogomsg Тем: $itogotem Всего зарегистрировано участников: $ui Последним зарегистрировался: $tdt[2] Гостям $c1 создавать темы и $c2 отвечать в темах

Последние сообщения .X.		.X.
	"; $mmax=count($mainlines); $a1=$i-1;$u="-1"; // выводим данные по возрастанию или убыванию do {$dt=explode("|", $lines[$a1]); $a1--; if (isset($dt[1])) { // Если строчка потерялась в скрипте (пустая строка) - то просто её НЕ выводим $msg=htmlspecialchars($dt[14],ENT_COMPAT,"windows-1251"); $msg=str_replace('[b]'," ",$msg); $msg=str_replace('[/b]'," ",$msg); $msg=str_replace('[RB]'," ",$msg); $msg=str_replace('[/RB]'," ",$msg); $msg=str_replace('[Code]'," ",$msg); $msg=str_replace('[/Code]'," ",$msg); $msg=str_replace('[Quote]'," ",$msg); $msg=str_replace('[/Quote]'," ",$msg); $msg=str_replace('[img]'," картинка: ",$msg); $msg=str_replace('[/img]'," ",$msg); $msg=str_replace(" ","\r\n", $msg); $msg=str_replace("'","`",$msg); $msg=str_replace('&lt;br&gt;'," \r\r\n", $msg); $msg=str_replace('<br>'," \r\r\n", $msg); $k=$mmax; $mainr=""; // Ищем название рубрики, как находим - присваимваем значение и выходим из цикла! do {$k--; $mdt=explode("|",$mainlines[$k]); if ($mdt[2]==$dt[2]) {$mainr="$mdt[4]"; $k=0;} } while($k>0); if (date("d.m.Y",$dt[4])==$date) $dt[4]="сегодня в ".date("H:i",$dt[4]); else $dt[4]=date("d.m.y - H:i",$dt[4]); if ($dt[17]>$msg_onpage) $page=ceil($dt[17]/$msg_onpage); else $page=1; // Считаем страницу if ($page!=1) $pageadd="&page=$page"; else $pageadd=""; if ($dt[6]==TRUE) {$codename=urlencode($dt[8]); $name="$dt[8]";} else $name="гость $dt[8]"; print" .X. $dt[4]: $mainr » $dt[5] - $name. "; } // если строчка потерялась $a11=$u; $u11=$a1; } while($a11 < $u11); echo'

Количество допустимых тем в рубрике исчерпано."; // Выводим msg_onpage сообщений на текущей странице $lines=file("$datadir/$fid.dat"); $i=count($lines); $maxi=$i; $n="0"; ////////////////// Механизм сортировки некорректный //////////////// ///////////////// Переделать его так: считываем последнюю строку каждого ФАЙЛА С ТЕМОЙ! // Берём там дату создания сообщения, их сортируем и тогда скрипт будет работать корректно // Замарочка с массивами - их 3 штуки. Тоже передалать! // ПЕРЕДАЛАТЬ ЭТОТ БЛОК!!!!!!!!!!!!!!!!! // БЛОК СОРТИРОВКИ: последние ответы ВВЕРХУ (по времени создания файла с темой)! if ($i>1) { // Если в рубрике хотябы ДВЕ темы do {$i--; $dt=explode("|",$lines[$i]); $filename="$dt[2]$dt[3].dat"; if (is_file("$datadir/$filename")) $ftime=filemtime("$datadir/$filename"); else $ftime=""; $newlines[$i]="$dt[10]|$ftime|$dt[2]$dt[3]|$i|"; } while($i > 0); sort($newlines); //print" "; print_r($newlines); exit; // $newlines - массив с данными: ДАТА | ИМЯ_ФАЙЛА_С_ТЕМОЙ | № п/п | // $lines - массив со всеми темами выбранной рубрики $i=$maxi; do {$i--; $dtn=explode("|", $newlines[$i]); $numtp="$dtn[3]"; $goodlines[$i]="$lines[$numtp]"; } while($i > 0); $lines=null; $lines=$goodlines; // Записываем отсортированные по дате создания темы в переменную, которую будем использовать дальше } // if ($i>1) // КОНЕЦ блока сортировки // ПЕРЕДАЛАТЬ ЭТОТ БЛОК!!!!!!!!!!!!!!!!! // Исключаем ошибку вызова несуществующей страницы if (!isset($_GET['page'])) $page=1; else { $page=$_GET['page']; if (!ctype_digit($page)) $page=1; if ($page<1) $page=1; } // Показываем msg_onpage ТЕМ $fm=$maxi-$tem_onpage*($page-1); if ($fm<"0") $fm=$tem_onpage; $lm=$fm-$tem_onpage; if ($lm<"0") $lm="0"; $timetek=time(); do {$fm--; $dt=explode("|", $lines[$fm]); $num=$fm+2; $numid=$fm+1; $filename="$dt[2]$dt[3]"; if (is_file("$datadir/$filename.dat")) { // если файл с темой существует - то показать тему $msgsize=sizeof(file("$datadir/$filename.dat")); // --------- Выделяем новые сообщения $linetmp=file("$datadir/$filename.dat"); if (sizeof($linetmp)!=0) { $pos=$msgsize-1; $dtt=explode("|", $linetmp[$pos]); $foldicon="folder.gif"; // Если последнее сообщение в форуме произошло раньше посещения - значит раздел форума - новый if (isset($wrfname)) {if (isset($dtt[4])) {if ($dtt[4]>$wrftime2) $foldicon="foldernew.gif";}} if ($dt[11]==FALSE) { if ($msgsize<"20") $foldicon="close.gif"; else $foldicon="closed.gif"; } } else $foldicon="foldernew.gif"; // --------- Конец print "
.P. .X.		"; if ($dt[10]==TRUE) echo'VIP '; print"$dt[5]"; if ($msgsize>$msg_onpage) { // ВЫВОДИМ СПИСОК ДОСТУПНЫХ СТРАНИЦ ТЕМЫ $maxpaget=ceil($msgsize/$msg_onpage); $addpage=""; echo'      Страницы: '; if ($maxpaget<=5) $f1=$maxpaget; else $f1=5; for($i=1; $i<=$f1; $i++) {if ($i!=1) $addpage="&page=$i"; print"$i  ";} if ($maxpaget>5) print "... $maxpaget"; } print"	$msgsize	"; $codename=urlencode($dt[8]); if ($dt[6]==TRUE) print "$dt[8] $user_name"; else print"$dt[8] $guest_name"; // защита if (strlen...) только если файл есть и имеет верный формат - выводим if ($msgsize>=2) {$linesdat=file("$datadir/$filename.dat"); $dtdat=explode("|", $linesdat[$msgsize-1]); if (strlen($linesdat[$msgsize-1])>10) {$dt[0]=$dtdat[0]; $dt[1]=$dtdat[1]; $dt[2]=$dtdat[2]; $dt[5]=$dtdat[5]; $dt[6]=$dtdat[6];}} if (date("d.m.Y",$dtt[4])==$date) $dtt[4]="сегодня в ".date("H:i:s",$dtt[4]); else $dtt[4]=date("d.m.y - H:i",$dtt[4]); print "	Автор: $dtt[8] дата/время: $dtt[4]

"; print_r($records); exit;
// 2. Сортируем массив по имени темы

echo '
Навигация

Быстрый переход по темам   
Выберите тему';
$ii=$maxi; $cn=0; $i=0; $a='#DEDEDE'; $b='#FFFFFF';
do {$dt=explode("|", $records[$i]);
$dt[2]=date("d.m.y г.",$dt[2]);
$c=$b; $b=$a; $a=$c;
print" - $dt[0] [$dt[3]], дата $dt[2] \r\n"; $i++;} while($i<$ii);
echo'

'; } // if($maxi>0)
}}



// ------------ Выбрано редактирование ТЕМЫ
if (isset($_GET['rd'])) { if ($_GET['rd'] !="") { $rd=replacer($_GET['rd']); $i="-1";

// Бежим по массиву тем и ищем ту тему, которую вызвали на редактирование
do {$i++; $dt=explode("|",$lines[$i]);
if ("$dt[2]$dt[3]"===$rd) $i=$maxi; // ЕСЛИ нашли тему, значит завершаем цикл и дальше работаем со строкой
} while($i < $maxi);

if ($dt[10]==FALSE) {$vt1="checked"; $vt2="";} else {$vt2="checked"; $vt1="";}
if ($dt[11]==FALSE) {$ct2="checked"; $ct1="";} else {$ct1="checked"; $ct2="";}

print "
Редактирование Темы
Название темы

 открыта    закрыта






Добавить к этой теме другую?
";

if ($maxi>0) { // Выводим темы отосртированные по имени. Массив $records (см. выше)
echo 'Хотите объединить? Выберите тему!';
$ii=$maxi; $cn=0; $i=0; $a='#DEDEDE'; $b='#FFFFFF';
do {$dtt=explode("|", $records[$i]);
$dtt[2]=date("d.m.y г.",$dtt[2]);
$c=$b; $b=$a; $a=$c;
if ($rd!=$dtt[1]) print" - $dtt[0] [$dtt[3]], дата $dtt[2] \r\n"; $i++;} while($i<$ii);
echo'
 в конец темы    В начало темы
'; } // if($maxi>0)

print"
Переместить в другой раздел и перейти куда?


Нет. Оставить в текущем

";

$mainlines=file("$datadir/wrforum.dat");
$mainsize=sizeof($mainlines); if($mainsize<1) exit("$back файл данных повреждён или у вас всего одна рубрика!");
$ii=count($mainlines); $cn=0; $i=0;
do {$mdt=explode("|",$mainlines[$i]);
if ($mdt[3]==TRUE) {if ($cn!=0) {echo''; $cn=0;} $cn++; print"";} else {print" |-$mdt[4]";}
$i++; } while($i <$ii);
$s2=""; $s1="checked"; // поменяйте и будет по умолчанию переход в новую рубрику
print"

 в текущую рубрику     туда куда переносим тему

Статус темы: обычная / VIP ?

 обычная тема    VIP-тема (всегда отображается первой на первой странице)

";
}

} else {

echo '
 
Добавление темы
';

if (!isset($wrfname)) echo'Имя и E-mail
';

print "Заголовок темы
Сообщение

";
if (isset($wrfname)) {print "";}
else {echo ' 
';}
print "









";
}
// --------------

}









if (strlen($id)==7) { // выводим СООБЩЕНИЕ в текущей теме

// определяем есть ли информация в файле с данными
if (!is_file("$datadir/$id.dat")) exit("

$back. Извините, но такой темы на форуме не существует.
 Скорее всего её удалил администратор.");
$lines=file("$datadir/$id.dat"); $mitogo=count($lines); $i=$mitogo; $maxi=$i-1;

if ($mitogo>0) { $tblstyle="row1"; $printvote=null;

// Считываем СТАТИСТИКУ ВСЕХ УЧАСТНИКОВ
if (is_file("$datadir/userstat.dat")) {$ufile="$datadir/userstat.dat"; $ulines=file("$ufile"); $ui=count($ulines)-1;}

// Ищем тему в XХХ.dat - проверяем не закрыта ли тема? и сразу же ищем есть ли в топике
// Заодно формируем № строки предыдущей и следующей темы
$ok=FALSE; $closed=FALSE; $lasttema=FALSE; $nexttema=FALSE;
if (is_file("$datadir/$fid.dat")) {
$msglines=file("$datadir/$fid.dat"); $mg=count($msglines); $mgmax=$mg-1;
do {$mg--; $mt=explode("|",$msglines[$mg]);
if ("$mt[2]$mt[3]"==$id) { $ok=1;
if ($mt[11]==FALSE) $closed=TRUE;
if ($mg>=1) $lasttema=$mg; // № строки предыдущей темы
if ($mg<$mgmax) $nexttema=$mg+1; // № строки следующей темы
$mg=0; }
} while($mg >"0");}


$maxzd=null; // Уточняем статус по кол-ву ЗВЁЗД в теме
$imax=count($mainlines);
do {$imax--; $ddt=explode("|", $mainlines[$imax]); if ($ddt[2]==$fid) $maxzd=$ddt[9]; } while($imax>"0");
if (!ctype_digit($maxzd)) $maxzd=0;

// Исключаем ошибку вызова несуществующей страницы
if (!isset($_GET['page'])) $page=1; else {$page=$_GET['page']; if (!ctype_digit($page)) $page=1; if ($page<1) $page=1;}

// формируем переменную $pageinfo - со СПИСКОМ СТРАНИЦ
$pageinfo=""; $addpage=""; $maxpage=ceil(($maxi+1)/$msg_onpage); if ($page>$maxpage) $page=$maxpage;
$pageinfo.="
Страницы:  ";
if ($page>3 and $maxpage>5) $pageinfo.="1 ... ";
$f1=$page+2; $f2=abs($page-2); if ($f2=="0") $f2=1; if ($page>=$maxpage-1) $f1=$maxpage;
if ($maxpage<=5) {$f1=$maxpage; $f2=1;}
for($i=$f2; $i<=$f1; $i++) { if ($page==$i) $pageinfo.="$i  "; 
else {if ($i!=1) $addpage="&page=$i"; $pageinfo.="$i  ";} }
if ($page<=$maxpage-3 and $maxpage>5) $pageinfo.="... $maxpage";
$pageinfo.='
';

print"$pageinfo";

$fm=$msg_onpage*($page-1); if ($fm>$maxi) $fm=$maxi-$msg_onpage;
$lm=$fm+$msg_onpage; if ($lm>$maxi) $lm=$maxi+1;

do {$dt=explode("|", $lines[$fm]);

$fm++; $num=$maxi-$fm+2; $status=""; unset($youwr);

if (strlen($lines[$fm-1])>5) { // Если строчка потерялась в скрипте (пустая строка) - то просто её НЕ выводим

if (isset($_GET['quotemsg'])) {
$quottime=date("d.m.y в H:i",$dt[4]);
$quotemsg=replacer($_GET['quotemsg']); if(ctype_digit($quotemsg) and $quotemsg==$fm) $qm="[Quote][b]$dt[8] $quottime пишет:[/b]\r\n".$dt[14]."[/Quote]";} else $qm="";

$msg=str_replace("[b]","", $dt[14]);
$msg=str_replace("[/b]","",$msg);
$msg=str_replace("[RB]","",$msg);
$msg=str_replace("[/RB]","",$msg);
$msg=str_replace("<br>","
",$msg); // ЗАКОМЕНТИРОВАТЬ при ЧИСТОЙ установке скрипта или в 2017 году!
$msg=str_replace("[br]","
",$msg); // c 08.2015 г.
$msg=str_replace("[Quote]","
Цитата:
",$msg); $msg=str_replace("[/Quote]","
",$msg);
$msg=str_replace("[Code]","
Код:
",$msg); $msg=str_replace("[/Code]","
",$msg);
$msg=str_replace("<br>","
",$msg);

if ($showsmiles==TRUE) {$i=count($smiles)-1; // заменяем текстовые смайлики на графические если разрешено
for($k=0; $k<$i; $k=$k+2) {$j=$k+1; $msg=str_replace("$smiles[$j]","",$msg);}}


// Если разрешена публикация УРЛов
if ($liteurl==TRUE) {$msg=' '.$msg; $msg=preg_replace ("/([^\[img\]])((https|http|ftp)+(s)?:(\/\/)([\w]+(.[\w]+))([\w\-\.,@?^=%&:;\/~\+#]*[\w\-\@?^=%&:;\/~\+#])?)/i", "\\1\\2", $msg); $msg=ltrim($msg);}

// После замены АДРЕСА URL преобразуем код [img]
$msg=preg_replace('#\[img\](.+?)(jpg|gif|jpeg|png|bmp)\[/img\]#','',$msg);

// Вставляем видео с ЮТУБ
$msg=preg_replace("/(\[Youtube\])(.+?)(\[\/Youtube\])/is","",$msg);

// считываем в память данные по пользователю
if (is_file("$datadir/user.php")) $userlines=file("$datadir/user.php"); $usercount=count($userlines);
if ($dt[6]==TRUE) { $iu=$usercount; $predup="0";
do {$iu--; $du=explode("|", $userlines[$iu]); if ($du[0]==$dt[7]) { 
$reiting=$du[4]; $youavatar=$du[15]; $email=$du[5]; $sset=$du[10]; $site=$du[11]; $userpn=$iu;

if (isset($_COOKIE['wrfcookies']) or $podpis_pokaz==TRUE) { $youwr=' '.$du[14];
if (strlen($youwr)>10) {
$youwr=preg_replace('#\[img\](.+?)(jpg|gif|jpeg|png|bmp)\[/img\]#','',$youwr);
$image=stristr($youwr, '');
$image=substr($image,0,$pos);

if (@GetImageSize($image)==TRUE) { $size=GetImageSize($image); // $width=$size[0]; $height=$size[1];
if ($size[0]>350 or $size[1]>20) {
do {$size[0]=round($size[0]/2); $size[1]=round($size[1]/2);}
while ($size[0]>350 or $size[1]>20); }
$youwr=str_replace('border="0"',"border=\"0\" width=\"$size[0]\" height=\"$size[1]\"",$youwr);}
if (stristr($youwr,"$4 ",$youwr);
$youwr=ltrim($youwr);} else $youwr=$du[14];
} //if (strlen($youwr)>10)
} // if (isset($_COOK
} while($iu > "0");
}

if ($tblstyle=="row1") $tblstyle="row2"; else $tblstyle="row1";

if (!isset($m1)) {
$frname=str_replace(' »','',$frname); $frtname=str_replace(' »','',$frtname); //вырезаем лишние символы
print "
$forum_name » $frname » $dt[5]  
.P.
.X.
";
echo''; $m1="1"; }

print"";

} // если строчка потерялась

} while($fm < $lm);

// Предыдущая и следующая тема - 2012 г.
if ($lasttema!=FALSE) {$lasttema--; $ldt=explode("|",$msglines[$lasttema]); $lasttema="";} else $lasttema="";
if ($nexttema!=FALSE) {$ndt=explode("|",$msglines[$nexttema]); $nexttema="

Автор
Сообщение

";

// Проверяем: это гость?
if (!isset($youwr)) {if (strlen($dt[9])>5) print "$dt[8] "; else print"$dt[8] ";
$kuda=$fm-1; print" •




$guest_name";}


else {
$codename=urlencode($dt[8]);
print "$dt[8] •

";
if (strlen($status)>2 & $dt[6]==TRUE & isset($youwr)) print "$status"; else print"$user_name";
if (isset($reiting)) {if ($reiting>0) {echo'
'; if (is_file("$forum_skin/star.gif")) {for ($ri=0;$ri<$reiting;$ri++) {print"";} } }}

if (isset($youavatar)) {if (is_file("avatars/$youavatar")) $avpr="$youavatar"; else $avpr="noavatar.gif"; print "

";}
} // isset($youwr)

if (isset($youwr) and is_file("$datadir/userstat.dat")) {
if (isset($ulines[$userpn])) {
if (strlen($ulines[$userpn])>5) {
$ddu=explode("|",$ulines[$userpn]);

print"


Статистика:
Тем создано: $ddu[5]
Сообщений: $ddu[6]
Репутация: $ddu[7] ±
Предупреждения: $ddu[8]

"; }}}


print "


IP: $dt[12] В БАН

$msg";


// БЛОК ГОЛОСОВАНИЯ - если есть то выводим !!!
if ($fm==1 and is_file("$datadir/$id-vote.dat")) { // БЛОК ПЕЧАТАЕМ ОДИН РАЗ
$vlines=file("$datadir/$id-vote.dat");
if (sizeof($vlines)>0) {$vitogo=count($vlines); $vi=1; $vdt=explode("|",$vlines[0]);

print"


Голосование:  $vdt[0] 
";

do {$vdt=explode("|",$vlines[$vi]);
print"        $vdt[0]

";
$vi++; } while($vi<$vitogo);

print "



Результаты
.X.

"; }} // КОНЕЦ БЛОКА ГОЛОСОВАНИЯ


echo'
';

// Если ПРИКРЕПЛЁН ФАЙЛ к сообщению - то показываем значёк и ссылку на него или картинку
if (strlen($dt[13])>2) { if (is_file("$filedir/$dt[13]")) {
$fsize=filesize("$filedir/$dt[13]"); $fsize=round($fsize/1024);
print"
Прикреплён файл:
удалить файл

";
if (preg_match("/.(jpg|jpeg|bmp|gif|png)+$/is",$dt[13]))
{ // Проверяем "габариты" фото и если одна из сторон больше допустимых - то меняем атрибуты
$size=getimagesize("$filedir/$dt[13]");
do {$size[0]=$size[0]/2; $size[1]=$size[1]/2;
} while ($size[0]>1600 or $size[1]>1200);
print"
Посмотреть полноразмерное изображение"; 
} else print" $dt[13] ($fsize Кб.)
"; }}


// печатаем подпись участника
if (isset($youwr)) {if (strlen($youwr)>3) {print "
--------------------------------------------------
$youwr";}}

if (date("d.m.Y",$dt[4])==$date)  $dt[4]="сегодня в ".date("H:i",$dt[4]); else $dt[4]=date("d.m.y - H:i:s",$dt[4]);

print"


.P.
.X.
Сообщение # $fm.

Отправлено: $dt[4]

◄ $ldt[5] :Предыдущая тема
Следующая тема: $ndt[5] ►";} else $nexttema="
";

print"
 $lasttema$nexttema $pageinfo
";

print"";


// Выбрана метка .P. - редактирование сообщения
if (isset($_GET['topicrd'])) { // выводим сообщение в форму
$topicrd=$_GET['topicrd']-1;
$lines=file("$datadir/$id.dat");
$dt=explode("|", $lines[$topicrd]);
$dt[4]=str_replace("
", "\r\n", $dt[14]);
$oldmsg=str_replace("'", ":kovichka:",$dt[14]); // шифруем символ '
print "


Сообщение
Имя

 

 
E-mail   
Участник? ";
if ($dt[6]==TRUE) echo'ДА'; else echo'НЕТ';

} else {

print "






Сообщение
Имя ";

if (!isset($wrfname)) echo'и E-mail
';

echo'
 ';

if (!isset($wrfname)) echo' ';
else print "$wrfname";
}


echo'

Сообщение

Для вставки имени, кликните на точку рядом с ним.

Смайлики:

';

if ($showsmiles==TRUE) {$i=count($smiles)-1;
for($k=0; $k<$i; $k=$k+2) {$j=$k+1; print" ";} }
print"RB
Ещё смайлы

";

if (isset($_GET['topicrd']))
{
$dt[14]=str_replace("<br>","[br]",$dt[14]); // ЗАКОМЕНТИРОВАТЬ при ЧИСТОЙ установке скрипта или в 2017 году!
$dt[14]=str_replace("[br]","\r\n",$dt[14]); // c 08.2015 г.
print "

 
 
 
 
 
$dt[14]








   
";

} else {

echo'
'.$qm.'

   
';


$newvote="

Добавить / редактировать голосование
";
$i=0; $j=1; do {

// Считываем имеющееся голосование
if (isset($vlines[$i])) $vdt=explode("|",$vlines[$i]); else {$vdt[0]=""; $vdt[1]="0";}

if ($i==0) {$newvote.="";
} else {$newvote.="";}
$i++; $j++; if ($j>2) $j=1;
} while($i<11);
$newvote.="

Создание/редактирование голосования
Название голосования:

$i ответ:



* оставьте поля пустыми, если хотите создать голосование с меньшим кол-вом ответов 
";

if ($page=="1") echo $newvote;
}}

} // else if event !=""
}
} // if (isset($_GET['id'])) - если есть $id





if (isset($_GET['event'])) {


// КОНФИГУРИРОВАНИЕ форума - выбор настроек
if ($_GET['event']=="configure") {

if (!isset($specblok1)) $specblok1="0";// временно так как ввёл новые переменные в data/config.php
if (!isset($specblok2)) $specblok2="0";// --//--
if (!isset($nosssilki)) $nosssilki="0";// --//--

if ($ktotut!=1) {exit("$back! Модераторам запрещено изменять настройки форума! Если нужно сменить пароль - обращайтесь к админу!");}

$skin=null; $path='.'; // Считываем имена папок со скинами в переменную
if ($handle=opendir($path)) {
while (($file=readdir($handle)) !== false)
if (is_dir($file)) { 
$stroka=stristr($file, "images"); if (strlen($stroka)>"6") 
{$skin.="$stroka - str $file 
";
$tskin=str_replace("images-", "Скин - ", $file);
if ($forum_skin==$file) $marker="selected"; else $marker="";
$skin.="$tskin";}
}
closedir($handle); } else echo'Ошибка!';


$ok='checked="checked"'; // Новая система [изменён в 2016г.]
$sp1=""; if ($forum_lock==TRUE) $sp1=$ok;
$rn1=""; if ($random_name==TRUE) $rn1=$ok;
$sa1=""; if ($admin_send==TRUE) $sa1=$ok;
$s1=""; if ($sendmail==TRUE) $s1=$ok;
$am1=""; if ($antimat==TRUE) $am1=$ok;
$as1=""; if ($antispam==TRUE) $as1=$ok;
$asn1="";if ($antispam2020==TRUE) $asn1=$ok;
$ct1=""; if ($g_add_tema==TRUE) $ct1=$ok;
$cm1=""; if ($g_add_msg==TRUE) $cm1=$ok;
$u1=""; if ($activation==TRUE) $u1=$ok;
$lu1=""; if ($liteurl==TRUE) $lu1=$ok;
$ns1=""; if ($nosssilki==TRUE) $ns1=$ok;
$st1=""; if ($statistika==TRUE) $st1=$ok;
$cs1=""; if ($can_up_file==TRUE) $cs1=$ok;
$af1=""; if ($antiflud==TRUE) $af1=$ok;
$ip1=""; if ($ipblok==TRUE) $ip1=$ok;
$rk1=""; if ($reklama==TRUE) $rk1=$ok;
$sm1=""; if ($showsmiles==TRUE) $sm1=$ok;
$sb1=""; if ($specblok1==TRUE) $sb1=$ok;
$bs1=""; if ($specblok2==TRUE) $bs1=$ok;
$ob1=""; if ($onlineb==TRUE) $ob1=$ok;
$qt1=""; if ($quikchat==TRUE) $qt1=$ok;

print "Конфигурирование

";
for($k=0; $k<8; $k++) print"";

print"
 
Параметр
Значение

Общие настройки

Блокировка форума: отключить работу форума на добавление тем/сообщений (да / нет)?
Название форума

Описание.
Использовать HTML-теги не рекомендуется!
$forum_info
Е-майл администратора

Логин и пароль администратора (данные входа в админ.панель со 100% набором прав)*
Логин:  Пароль: 
Логин и пароль модератора (частичный набор прав)*
Логин:  Пароль: 
Сколько давать очков репутации при добавлении:
сообщения:  темы:  файла: 
Включить отправку сообщений?
При загрузке файла генерировать ему имя случайным образом?
Мылить админу сообщения о вновь зарегистрированных пользователях?
Макс. длина имени / заголовка темы / сообщения
    .:.        .:.    
Тем / Cообщений / Участников на страницу
   .:.      .:.   

Защиты от взлома и накрутки
Задействовать цифровой АНТИСПАМ?
Длина кода:  (от 1 до 9) цифр
Задействовать дополнительно АНТИСПАМ типа вопрос/ответ?
вопрос:
 , ответ: 
Задействовать АНТИМАТ?
Требовать активации через емайл при регистрации?
Разрешить гостям создавать темы
Разрешить гостям публиковать сообщения
Запретить гостям добавлять сообщения со ссылками?
Делать ссылки в тексте сообщений активными?

Информационные и рекламные блоки

Показывать БЛОК 'Дни рождения, кол-во тем/сообщений, 10 новых сообщений'
Показывать БЛОК 'Мини-чат на главной'
Показывать БЛОК 'Кто сейчас находится на форуме'
Показывать БЛОК '15-и самых больших по количеству сообщений тем'
Показывать БЛОК '10 самых активных пользователей'
Показывать БЛОК 'Реклама и/или объявление'
Заголовок БЛОКА 'Реклама и/или объявление'

Текст БЛОКА 'Реклама и/или объявление' показывается в верхней части всех страниц с темами.

 можно использовать теги, но двойные кавычки нельзя (будут заменены на одинарные). Не более 1000 символов.
$reklamatext

Настройки мини-чата
Максимум символов в сообщении

Частота обновления чата, секунд 

Количество видимых сообщений

Длина строки ввода сообщения, пунктов

Длина фрейма чата, пикселей


Настройки голосования
Запретить голосовать повторно с одного IP
Задействовать антифлуд
защитное время:  секунд

Настройки статусов (званий)
Как называть участников НЕ зареганых / зареганых
  /  
Репутация от  
статус 
Прочие настройки
Скин форума
$skin
Папка с данными форума
    По умолчанию - ./data
Максимальный размер аватара в байтах


Разрешить загрузку файлов только зарегистрированным или никому?

Папка для загрузки файлов
    По умолчанию - ./load
Максимальный размер файла в байтах


Смещение GMT относительно времени хостинга
 (GMT + XX часов)

Смайлы
Включить / отключить графические смайлы?
";

if (isset($smiles)) {$i=count($smiles);
for($k=0; $k<$i; $k=$k+2) { $j=$k+1; if ($k!=($i-1) and is_file("smile/$smiles[$k].gif"))
print"  "; } }


echo'




* Если хотите изменить пароль - сотрите слово "скрыт" и введите новый пароль.
 Рекомендую использовать только английские буквы и/или цифры. У некоторых хостеров есть проблемы
 с регинальнальными настройками и пароль, набранный на другом языке может сохранится некорректно.
';
}






// ПРОСМОТР ВСЕХ УЧАСТНИКОВ форума
if ($_GET['event']=="userwho") {
$t1="row1"; $t2="row2"; $error=0;
$userlines=file("$datadir/user.php");
$ui=count($userlines)-1; $maxi=$ui; $first=0; $last=$ui+1;

$statlines=file("$datadir/userstat.dat"); $si=count($statlines)-1;
if ($si=="0") exit("
НИОДНОГО участника не зарегистрировано!
");

$bada="В файле статистики имеются ошибки! ПЕРЕСЧИТАЙТЕ статистику участников!!!
";

if ($si!=$ui) print"$bada";

if (isset($_GET['page'])) $page=$_GET['page']; else $page="1";
if (!ctype_digit($page)) $page=1; // защита
if ($page=="0") $page="1"; else $page=abs($page); 
$maxpage=ceil(($ui+1)/$uq); if ($page>$maxpage) $page=$maxpage;

// формируем переменную $pageinfo - со СПИСКОМ СТРАНИЦ
$pageinfo=""; $addpage=""; $maxpage=ceil(($maxi+1)/$uq); if ($page>$maxpage) $page=$maxpage;
$pageinfo.="
Страницы:  ";
if ($page>3 and $maxpage>5) $pageinfo.="1 ... ";
$f1=$page+2; $f2=abs($page-2); if ($f2=="0") $f2=1; if ($page>=$maxpage-1) $f1=$maxpage;
if ($maxpage<=5) {$f1=$maxpage; $f2=1;}
for($i=$f2; $i<=$f1; $i++) { if ($page==$i) $pageinfo.="$i  "; 
else {if ($i!=1) $addpage="&page=$i"; $pageinfo.="$i  ";} }
if ($page<=$maxpage-3 and $maxpage>5) $pageinfo.="... $maxpage";
$pageinfo.='
';

$i=1+$uq*($page-1); if ($i>$ui) $i=$ui-$uq;
$lm=$i+$uq; if ($lm>$ui) $lm=$ui+1;

print"$pageinfo";
echo'


';

$delblok="
 
№
Имя
Пол
Дата рег-ии
Емайл / Сменить пароль
Тем
Сообщ.
Репутация
Штрафы
Статус / Изменить
Звёзд


";

do {$tdt=explode("|",$userlines[$i]); $i++; $npp=$i-1;

if (isset($statlines[$i-1])) {$sdt=explode("|",$statlines[$i-1]);} else {$sdt[0]=""; $sdt[1]="-"; $sdt[2]="-"; $sdt[3]="-"; $sdt[4]="-";}
// Проверяем, если файл статистики повреждён - пишем сообщение о необходимости восстановить его
if ($sdt[0]!=$tdt[0]) {$error++; $sdt[1]="-"; $sdt[2]="-"; $sdt[3]="-"; $sdt[4]="-";}
if ($tdt[6]==TRUE) $tdt[6]="М"; else $tdt[6]="Ж";
if ($tdt[16]==FALSE) $tdt[16]=$user_name;
$tdt[1]=date("d.m.y - H:i",$tdt[1]);

$delblok.="";
if ($tdt[16]==FALSE) {
print"";}

$t3=$t2; $t2=$t1; $t1=$t3;
} while ($i<$lm);

print"
.X.

$npp
$tdt[2]
[Активировать]. Учётная запись не активирована с $tdt[1]. 
(емайл: $tdt[5] ключ: $tdt[16])"; 
} else {

print"
$tdt[6]
$tdt[1]

$tdt[5] 
$sdt[5]
$sdt[6]

  $sdt[8]  






$delblok



  

  
";

print "$pageinfo
Всего зарегистрировано участников - $ui



Пересортировать участников по: 


Дате регистрации (новые - внизу)
Имени
Кол-ву сообщений (сколько участник оставил сообщений)
Кол-ву звёзд
Репутации
Активности (кол-во сообщений в сутки / кол-во дней с даты регистрации)
   (сортировать лучше когда с форумом никто из участников не работает)


";


if ($error>0) print"$bada";

echo'* Репутация - "Авторитетность" пользователя. 0 - 9999 ед. Автоматически увеличивается при добавлении сообщения/темы;


ШТРАФЫ:

 3 - участнику запрещаем создавать темы на 1 месяц;

 4 - блокируем доступ к ответу в темах на 1 месяц - только просмотр;


(система штрафов ещё настраивается. Эти функции будут доступны в следующей версии)

0 - юзер может всё;

1 - юзеру антифлуд увеличиваем до 60 секунд;

2 - юзер не имеет права менять репу другим;

5 - БАН на 1 месяц!
';
}
}




if (isset($_GET['event'])) { if ($_GET['event']=="blockip") { // - БЛОКИРОВКА по IP

$itogo=0;
if (is_file("$datadir/ipblock.dat")) { $lines=file("$datadir/ipblock.dat"); $i=count($lines)-1; $itogo=$i;
if ($i>0) { echo'
Блокировка по IP-адресу

';

//FROM_TIME|TO_TIME|IP|LOCK|MSG|REZERVED|
do {$dt=explode("|", $lines[$i]);
$dt[0]=date("d.m.Y - H:i",$dt[0]); $dt[1]=date("d.m.Y - H:i",$dt[1]);
if ($dt[3]==FALSE) $dt[3]="Запись"; else $dt[3]="Чтение и запись";
print"";
$i--; } while($i>0);
} else echo'

Заблокированные IP-адреса отсутствуют

';
} else echo'

Заблокированные IP-адреса отсутствуют

';

print"
 
.X.
Дата блокировки
Дата разблокировки
IP
Тип блокировки
Формулировка
.X.
$dt[0]
$dt[1]
$dt[2]
$dt[3]
$dt[4]


Добавь IP НЕдруга!    Формулировка: 
 
на  месяц.


*вводите IP аккуратно, не ставьте лишних ноликов и всяких пробелов.


Всего заБАНено пользователей - $itogo

Очистить файл блокировки

* Модуль в процессе написания. Сейчас работает только блокировка на запись до указанной даты!"; exit;}}







if (isset($_GET['event'])) { if ($_GET['event']=="lastenter") { // - СТАТИСТИКА РАБОТЫ АДМИНПАНЕЛИ

if (is_file("$datadir/adminlog.dat")) { $lines=file("$datadir/adminlog.dat"); $i=count($lines)-1; $itogo=$i; $class="row1";
if ($i>=0) { echo'
Статистика работы панели администрирования *

';

//time|password|name|scribe|rezerved|
do { $lines[$i]=replacer($lines[$i]);
$dt=explode("|",$lines[$i]);
$dt[0]=date("d.m.Y г. - H:i:s",$dt[0]);

if ($dt[1]==TRUE) {$pass=TRUE; $dt[1]="верный";} else {$pass=FALSE; $dt[1]="ошибочный";}
if ($dt[3]==0) {$auto=TRUE; $dt[3]="Авторизациия";}  else $auto=FALSE;
if ($dt[3]==1) {$dt[3]="Авторассылка"; $dt[4]="Рассылка участнику: ".$dt[4];}
if ($dt[3]==2) $dt[3]="Настройка форума";
if ($dt[3]==4) $dt[3]="IP-блокировка";
if ($dt[3]==5) {$dt[3]="Восстановление пароля"; $dt[1]="-";}

$neverno=" (ошибочный)";
if ($dt[2]==$adminname) {$dt[2].=" (администратор)"; $neverno="";}
if ($dt[2]==$modername) {$dt[2].=" (модератор)"; $neverno="";}
if ($auto==TRUE) {if ($neverno=="" and $pass==TRUE) $dt[4]="Успешная авторизация"; else $dt[4]="Ошибка авторизации";}
if ($class=="row1") $class="row2"; else $class="row1";
print"";

$i--; } while($i>0);
} else echo'

Статистика входа в админпанель отсутствует

';
} else echo'

Статистика входа в админпанель отсутствует

';

exit("
 
Дата и время
Логин
 
Верный?
Пароль верный?
Какой блок сработал
Подробности
$dt[0]
$dt[2] $neverno
$dt[1]
$dt[1]
$dt[3]
 $dt[4]


Очистить статистику



* Модуль показывает информацию о действия администратора / модератора в панели администрирования. Блок показывает информацию:


о факте авторизациии в админпанели;
о дейсвиях в блоке рассылки участникам на электронную почту;
о добавлении новых IP-адресов в блоке IP-блокировки;
о факте изменения настройек форума.

");}}




if (isset($_GET['event'])) {
if ($_GET['event']=="checkversion") { // ПОИСК ОБНОВЛЕНИЯ ФОРУМА
echo'
ПОИСК ОБНОВЛЕНИЯ ФОРУМА

';} exit;
}}






if (isset($_GET['event'])) {
if ($_GET['event']=="profile") { // РЕДАКТИРОВАНИЕ ПРОФИЛЯ юзера

// функция используется для отображения аватаров
function get_dir($path='./', $mask='*.php', $mode=GLOB_NOSORT) {
 if ( version_compare( phpversion(), '4.3.0', '>=' ) ) {if ( chdir($path) ) {$temp=glob($mask,$mode); return $temp;}}
return false;}

if (!isset($_GET['pname'])) exit("Попытка взлома.");
$pname=urldecode($_GET['pname']); // РАСКОДИРУЕМ имя пользователя, пришедшее из GET-запроса.
$lines=file("$datadir/user.php");
$i=count($lines); $use="0"; $userpn="0";
do {$i--; $rdt=explode("|",$lines[$i]);

if (isset($rdt[1])) { // Если нет потерянных строк в скрипте (пустая строка)
if ($rdt[16]==FALSE) $rdt[16]="ожидание активации";
if ($pname===$rdt[2]) { $userpn=$i;

$jfile="$datadir/userstat.dat"; $jlines=file("$jfile"); $uj=count($jlines)-1; $msjitogo=0;
for ($j=0;$j<=$uj;$j++) {$udt=explode("|",$jlines[$j]); $msjitogo=$msjitogo+$udt[6]; if ($udt[2]==$rdt[2]) {$msguser=$udt[6]; $temaded=$udt[5]; $repa=$udt[7];}}
$msgaktiv=round(10000*$msguser/$msjitogo)/100;

if($rdt[6]==TRUE) $rdt[6]="Мужчина"; else $rdt[6]="Женщина";

$aktiv=$rdt[1]; $tekdt=time(); $aktiv=round(($tekdt-$aktiv)/86400);
if ($aktiv<=0) $aktiv=1; $aktiv=round(100*$msguser/$aktiv)/100;
$rdt[1]=date("d.m.y - H:i",$rdt[1]);

if (strlen($rdt[13])<2) $rdt[13]=$user_name;

print "

 
Проверка



';

echo 'Скрипт работает корректно на php от 4 до 7.2 версии!
';
echo 'Текущая версия PHP: ' . phpversion();
echo'

Ваш сервер работает на: ';
echo php_uname();
echo'

ОС: ';
echo PHP_OS;
echo'

';

define('VERSION', '2.2'); // здесь указывается номер ткущей версии
$fp=fopen("https://www.wr-script.ru/forum-version.txt","r");
while ($line = fgets($fp)) {$line;
if (VERSION != $line) {
print"Внимание! Ваша текущая версия скрипта - ".VERSION." устарела.

Доступная новая версия скрипта - $line. 

Скачать скрипт форума версии $line [https://www.wr-script.ru/load/wr-forum-v-$line.zip]";}
else echo'Ваша версия форума - '.VERSION.'. Это последняя версия скрипта! 


Регистрационные данные ПОЛЬЗОВАТЕЛЯ $pname
Поля отмеченные * обязательны к заполнению, если не указано обратное
Имя участника:
$rdt[2]
Репутация: 
$repa [Оценить ±]
Дата регистрации:
$rdt[1]
Пол:
$rdt[6]
Отправить личное сообщение на e-mail: 

Написать персональное сообщение (сюда на форум):

Активность:
Тем создано: $temaded, всего сообщений: $msguser [$msgaktiv% от общего числа / $aktiv сообщений в сутки]
Статус:
$rdt[13] (НУЖНО ИСПРАВИТЬ!)


Сменить пароль: *
(если хотите сменить, то введите новый пароль, иначе оставьте как есть!)
Адрес e-mail: *
Введите существующий электронный адрес! Форум защищён от роботов-спамеров.

День рождения:
Введите день рождения в формате: ДД.ММ.ГГГГГ, если не секрет.

Профиль в соцсети:
Введите адрес странички Вашей любой соцсети

Домашняя страничка:

Откуда:
Введите место жительства (Страна, Область, Город).

Интересы:
Вы можете написать о ваших интересах

Подпись:
Введите Вашу подпись, не используйте HTML

Аватар:
";
if (!is_file("avatars/$rdt[15]")) print""; else print"";
print "


"; $use="1"; $i=1;
}
} // if
} while($i > "1");

if ($use!="1") { // в БД такого ЮЗЕРА НЕТ
echo'
Пользователь НЕ ЗАРЕГИСТРИРОВАН
Уважаемый администратор!

Извините, но участник с таким - логином на форуме не зарегистрирован.


Скорее всего, он был уже удалён или Вы перешли по ошибочной ссылке..


Посмотреть других участников можно здесь.

'; }
}
} // if (isset($_GET['event'])) {













if (isset($_GET['event'])) { if ($_GET['event']=="seebasa") {

print"

Просмотреть содержимое файла: 
";


if ($handle=opendir($datadir)) {
while (($file=readdir($handle)) !== false)
if (!is_dir($file)) { 
$stroka=stristr($file, ".dat"); if (strlen($stroka)>"1") 
{ $marker=""; if (isset($_POST['openfile'])) { if ($_POST['openfile']===$file) $marker="selected"; }
print"$file"; }
} closedir($handle); } else echo'Ошибка!';

echo'
';

if (isset($_POST['openfile'])) {

$openfile=$_POST['openfile'];
if (!stristr($openfile, ".dat")) exit("Разрешён просмотр только содержимого базы скрипта (всех файлов с раширением dat!");

$data=File("$datadir/$openfile");

echo "
Содержимое файла \"$datadir/$openfile\"
* В первой строке указаны номера по порядку. Если Вам нужно считать в скрипте представленные данные, то здесь Вы можете быстро узнать их порядковый номер!
";

$dat_arr=explode("|",$data[0]);

for ($p=0;$p$p";
echo "";

for ($i=0;$i";
    for ($f=0;$f$data_array[$f]  ";
    echo "";
}

echo "

";

} // if isset $_GET['openfile']
}}










// МАССОВАЯ рассылка информации УЧАСТНИКам форума
if (isset($_GET['event'])) { if ($_GET['event']=="massmail") {
if (isset($_GET['user'])) $useremail=$_GET['user']; else $useremail="";
if (isset($_GET['autoscribe'])) $autoscribe=$_GET['autoscribe']; else $autoscribe="";
if (($autoscribe=="1") and ($useremail=="")) exit("

Вернитесь назад! Вам необходимо отредактировать текст, выбрать 1-го пользователи и нажать кнопку 'Сохранить и отправить рассылку'!");

print"



Введите параметры текста, отправляемого пользователю

  Имя отправителя:* 
и E-mail:* 

Получатель:   НИК:* и E-mail:*";

echo'Выберите участника\r\n';

// Блок считывает всех пользователей из файла
if (is_file("$datadir/user.php")) $lines=file("$datadir/user.php");
if (!isset($lines)) $datasize=0; else $datasize=sizeof($lines)-1;
if ($datasize<=0) exit("$back. Проблемы с Базой пользователей, файл данных пуст.");
$imax=count($lines); $i="1";
do {$dt=explode("|", $lines[$i]);
print "$i / $datasize - $dt[2] <$dt[5]>\r\n";
if ($useremail==$dt[5]) $selectnext="selected"; else $selectnext="";
$i++; } while($i < $imax);

if (is_file("$datadir/mailtext.dat")) $mailtext=file_get_contents("$datadir/mailtext.dat");
echo'
  Сообщение:*

'.$mailtext.'

     ';

if ($autoscribe=="1") { print"

       

"; } else print"



Активировать АВТОМАТИЧЕСКУЮ РАССЫЛКУ
";

echo'



* Используйте макроподстановку:

%name - имя участника форума;
%forum_name - название форума;
%forum_url - URL-адрес форума;
%forum_urllogin - URL-адрес страницы входа;
'; }} // МАССОВАЯ рассылка



?>

Powered by WR-Forum Professional © 2.2