"; 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]);}

print "

"; 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]; $icq=$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($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 (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.'

   
';



}}

} // 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, "style-"); if (strlen($stroka)>"6") { 
$tskin=str_replace("style-", "Скин ", $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 ($antispam2012==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("
НИОДНОГО участника не зарегистрировано!
");

print"Действия над участниками: ★ Пересчитать статистику
★ Автоматическая рассылка ";
echo'★ Удалить НЕ АКТИВИРОВАННЫХ ★
';

$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 ед. Автоматически увеличивается при добавлении сообщения/темы;


ШТРАФЫ (система штрафов ещё настраивается. Будет доступна в следующей версии):

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

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

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

+3 РАБОТАЕТ - юзеру запрещаем создавать темы на 1 месяц;

+4 РАБОТАЕТ - блокируем доступ к ответу в темах на 1 месяц - только просмотр;

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']=="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 "


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

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


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

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

Номер в ICQ:
Введите номер ICQ, если он у Вас есть.

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

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

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

Подпись:
Введите Вашу подпись, не используйте 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 Lite © 2.2 UTF-8