#!/usr/bin/perl
#!perl

$| = 1;

# declare the variables

$boarddir = '../dat';

$boardurl = '/cgi-bin';
$cgi = '/cgi-bin/robboard.cgi';
$indexcgi = '/cgi-bin/index.cgi';

$queryswitch = '?';


$html = 1; # 0 = remove all html, 1 = show html as text, 2 = show html as html
$datetype = 4;
$useban = 0;
$encrypt = 0;
$style = 01;
$threaded = 1;

$fontface = 'arial';
$fontsize = 2;
#$tablecolor1 = 'black';
#$tablecolor2 = 'white';
#$tablecolor3 = 'white';
#$fontcolor1 = 'white';
#$fontcolor2 = 'black';
#$fontcolor3 = 'black';

$tablecolor1 = 'white';
$tablecolor2 = 'blue';
$tablecolor3 = 'white';
$fontcolor1 = 'black';
$fontcolor2 = 'yellow';
$fontcolor3 = 'white';


#########################################################################
# Don't change anything below here unless you know what you're doing :) #
#########################################################################

$datadir = "$boarddir/data";
$datafile = "$boarddir/data.txt";
$index_t = "$boarddir/index_t.html";
$page_t = "$boarddir/page_t.html";
$thread_t = "$boarddir/thread_t.html";
$numfile = "$boarddir/number.txt";
$banfile = "$boarddir/ban.txt";
#$pwdfile = "$boarddir/pwd.txt";
$pwdfile = "$boarddir/pass.cfg";
$use_cgi = 1;
$LOCK_EX = 2;
$LOCK_UN = 8;

print "Content-type: text/html\n\n";

&get_date;
&readform;

&post if ($action eq 'post');
&display if ($action eq 'display');
&viewthread if ($action eq 'viewthread');
&admin if ($action eq 'admin');
&remove if ($action eq 'remove');
&remove2 if ($action eq 'remove2');
&ban if ($action eq 'ban');
&ban2 if ($action eq 'ban2');
&unban if ($action eq 'unban');
&unban2 if ($action eq 'unban2');
&password if ($action eq 'password');
&password2 if ($action eq 'password2');

&fatal_error("Эта страница вызвана некорректно. Попробуйте <a
href=\"$indexcgi\">эту</a> взамен.");

sub post {

&bancheck if ($useban == 1);

$follow = $INFO{'follow'};

$name = $FORM{'name'};
$email = $FORM{'email'};
$subject = $FORM{'subject'};
$message = $FORM{'message'};

&post_error("Необходимое поле `Имя` не заполнено.") unless($name);
&post_error("Необходимое поле `E-Mail` не заполнено.") unless($email);
&post_error("Необходимое поле `Тема` не заполнено.") unless($subject);
&post_error("Пустое сообщение.") unless($message);

$name =~ s/`/\'/g;
$email =~ s/`/\'/g;
$message =~ s/`/\'/g;
$subject =~ s/`/\'/g;
$name =~ s/\&/\&amp;/g;
$email =~ s/\&/\&amp;/g;
$subject =~ s/\&/\&amp;/g;
$message =~ s/\&/\&amp;/g;
$name =~ s/"/\&quot;/g;
$email =~ s/"/\&quot;/g;
$subject =~ s/"/\&quot;/g;
$message =~ s/"/\&quot;/g;
$name =~ s/ / \&nbsp;/g;
$email =~ s/ / \&nbsp;/g;
$subject =~ s/ / \&nbsp;/g;
$message =~ s/ / \&nbsp;/g;

if ($html == 0) {
$name =~ s/<([^>]|\n)*>//g;
$email =~ s/<([^>]|\n)*>//g;
$subject =~ s/<([^>]|\n)*>//g;
$message =~ s/<([^>]|\n)*>//g;
}

elsif ($html == 1) {

$name =~ s/</&lt;/g;
$name =~ s/>/&gt;/g;
$email =~ s/</&lt;/g;
$email =~ s/>/&gt;/g;
$subject =~ s/</&lt;/g;
$subject =~ s/>/&gt;/g;
$message =~ s/</&lt;/g;
$message =~ s/>/&gt;/g;

}

$message =~ s/\t/ \&nbsp; \&nbsp; \&nbsp;/g;
$message =~ s/\n\n/<p>\n\n/g;
$message =~ s/\n/<br>\n/g;
$message =~ s/\cM//g;

open (FILE, "$numfile") || &fatal_error("Не могу открыть $numfile");
&lock(FILE);
@info = <FILE>;
&unlock(FILE);
close(FILE);

($postnum,$chop) = split(/``/,$info[0]);
$postnum++;

open (FILE, ">$numfile") || &fatal_error("Не могу открыть $numfile");
&lock(FILE);
print FILE "$postnum";
print FILE "``xx";
&unlock(FILE);
close (FILE);

open (FILE, "$datafile") || &fatal_error("Не могу открыть $datafile");
&lock(FILE);
@messages = <FILE>;
&unlock(FILE);
close (FILE);

open (FILE, ">$datafile") || &fatal_error("Не могу открыть $datafile");
&lock(FILE);

if ($follow eq 'no') {

print FILE "$postnum``$subject``1``$name``$email``$date``$ENV{REMOTE_ADDR}``$ENV{HTTP_USER_AGENT}``xx\n";
print FILE @messages;

}

else {

$followto = $FORM{'followto'};
$level = $FORM{'level'} + 1;

for ($a = 0; $a < @messages; $a++) {

($checknum,@junk) = split(/``/,$messages[$a]);

print FILE "$messages[$a]";

if ($checknum == $followto) {

$level = $junk[1] + 1;
print FILE "$postnum``$subject``$level``$name``$email``$date``$ENV{REMOTE_ADDR}``$ENV{HTTP_USER_AGENT}``xx\n";

}

}

}

&unlock(FILE);
close(FILE);

open(FILE, ">$datadir/$postnum\.txt") || &fatal_error("Не могу открыть
$postnum\.txt");
&lock(FILE);

print FILE $message;

&unlock(FILE);
close (FILE);

print "<html>\n";
print "<head><title> Сообщение отправлено! </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial><center>\n";
print "<h3>Сообщение успешно сохранено</h3>\n";

print "<blockquote>\n";
print "Ваше сообщение, <b>$subject</b>, было сохранено.<p>\n";

if ($style == 0) {

print "<a href=\"$cgi$queryswitch";
print "action=display\&num=$postnum\">Просмотреть Ваше сообщение</a><br>\n";
print "<a href=\"$indexcgi\">На главную</a><p>\n";

} elsif ($threaded == 0) {

print "<a href=\"$indexcgi\">На главную</a><p>\n";

} else {

print "<a href=\"$cgi$queryswitch";
print "action=viewthread\&num=$postnum\">Просмотреть эту тему</a><br>\n";
print "<a href=\"$indexcgi\">На главную</a><p>\n";

}

print "</blockquote>\n";
print "</center>";
print "</font></body></html>\n";

exit;

}

sub display {

$viewnum = $INFO{'num'};
$viewnum = int ( $viewnum );

&fatal_error("Эта функция была вызвана некорректно. ( не пытались ли вы взломать сайт, не так ли? )") unless ($viewnum > 0);

open (FILE, "$datafile") || &fatal_error("Не могу открыть $datafile");
&lock(FILE);
@messages = <FILE>;
&unlock(FILE);
close(FILE);

for ($a = 0; $a < @messages; $a++) {

($mnum[$a],$msub[$a],$mfollow[$a],$mname[$a],$memail[$a],$mdate[$a],$mip[$a],$mbrowser[$a],$chop) = split(/``/,$messages[$a]);

if ($viewnum == $mnum[$a]) {
$idnum = $a;
}

}

open (FILE, "$datadir/$viewnum\.txt") || &fatal_error("Не могу открыть
$viewnum\.txt");
&lock(FILE);
@body = <FILE>;
&unlock(FILE);
close(FILE);

open (FILE, "$page_t") || &fatal_error("Не могу открыть $page_t");
&lock(FILE);
@template = <FILE>;
&unlock(FILE);
close(FILE);

for ($a = 0; $a < @template; $a++) {

$_ = $template[$a];

if (/<!--message-->/) {

print @body;

}

elsif (/<!--form-->/) {

print "<form action=\"$cgi$queryswitch";
print "action=post&follow=yes\" method=post>\n";

print "<table border=0>\n";

print "<tr><td align=right><font color=\"white\">Имя: </font></td>\n";
print "<td><input type=text name=name size=40></td></tr>\n\n";

print "<tr><td align=right><font color=\"white\">E-Mail: </font></td>\n";
print "<td><input type=text name=email size=40></td></tr>\n\n";

print "<tr><td align=right><font color=\"white\">Тема: </font></td>\n";
print "<td><input type=text name=subject size=40></td></tr>\n\n";

print "<tr><td align=right valign=top><font color=\"white\">Сообщение: </font></td>\n";
print "<td><textarea name=message rows=10 cols=35 wrap=virtual></textarea></td></tr>\n\n";

print "<tr><td align=center colspan=2>";
print "<input type=hidden name=followto value=$viewnum>\n";
print "<input type=hidden name=level value=$mfollow[$idnum]>\n";
print "<input type=submit value=\"Поместить сообщение\"> ";
print "<input type=reset value=\"Очистить форму\"></td></tr>\n";

print "</table></form>\n\n";

}

elsif (/<!--followups-->/) {

if ($mfollow[$idnum] >= $mfollow[$idnum+1]) {

print "<center>Никто не ответил на это сообщение.</center>";

}

else {

print "<ul>\n";

$last = $mfollow[$idnum+1];

for ($d = $idnum+1; $d < @messages; $d++) {

if ($mfollow[$d] <= $mfollow[$idnum]) {
$d = @messages;
$count = $last - $mfollow[$idnum];
}

else {

if ($mfollow[$d] > $last) {
print "<ul>\n";
}

elsif ($mfollow[$d] < $last) {
for ($e = 0; $e < $last - $mfollow[$d]; $e++) {
print "</ul>\n";
}
}


print "<li>\n";
print "<a href=\"$cgi$queryswitch";
print "action=display\&num=$mnum[$d]\">$msub[$d]</a> ";
print "- <b>$mname[$d]</b>, $mdate[$d]</li>\n";

}

$last = $mfollow[$d];

}

for ($b = 0; $b < $count; $b++) {

print "</ul>\n";

}

}

}

elsif (/<!--subject-->/) {

print "$msub[$idnum]\n";

}

elsif (/<!--mailto-->/) {

print "<a href=\"mailto:$memail[$idnum]\">$mname[$idnum]</a>\n";

}

elsif (/<!--name-->/) {

print "$mname[$idnum]\n";

}

elsif (/<!--email-->/) {

print "$memail[$idnum]\n";

}

elsif (/<!--date-->/) {

print "$mdate[$idnum]\n";

}

elsif (/<!--browser-->/) {

print "$mbrowser[$idnum]\n";

}

elsif (/<!--ip-->/) {

print "$mip[$idnum]\n";

}

else {

print "$_";

}

}

exit;

}

sub viewthread {

$viewnum = $INFO{'num'};
$viewnum = int ( $viewnum );

&fatal_error("Эта функция была вызвана некорректно. ( не пытались ли вы взломать сайт, не так ли? )") unless ($viewnum > 0);

open (FILE, "$datafile") || &fatal_error("Не могу открыть $datafile");
&lock(FILE);
@messages = <FILE>;
&unlock(FILE);
close(FILE);

for ($a = 0; $a < @messages; $a++) {

($mnum[$a],$msub[$a],$mfollow[$a],$mname[$a],$memail[$a],$mdate[$a],$mip[$a],$mbrowser[$a],$chop) = split(/``/,$messages[$a]);

if ($viewnum == $mnum[$a]) {
$idnum = $a;
}

}

while ($mfollow[$idnum] > 1) {
$idnum--;
}

$depth = 1;
$messcount = -1;

for ($a = $idnum+1; $a < @messages; $a++) {

if ($mfollow[$a] == 1) {

$messcount = $a - $idnum;
$a = @messages;

} elsif ($mfollow[$a] > $depth) {

$depth = $mfollow[$a];

}

}

$messcount = @messages - $idnum if ($messcount == -1);

open (FILE, "$thread_t") || &fatal_error("Не могу открыть $thread_t");
&lock(FILE);
@template = <FILE>;
&unlock(FILE);
close(FILE);

for ($a = 0; $a < @template; $a++) {

$_ = $template[$a];

if (/<!--message-->/) {



for ($b = $idnum; $b < $idnum + $messcount; $b++) {

print "<table border=0 cellpadding=2>\n";
open (FILE, "$datadir/$mnum[$b]\.txt") || &fatal_error("Не могу открыть
$mnum[$b]\.txt");
&lock(FILE);
@body = <FILE>;
&unlock(FILE);
close(FILE);

$colspan = $depth - $mfollow[$b] + 2;
$colspan2 = $colspan - 1;

print "<tr bgcolor=\"$tablecolor1\">";
for ($c = 1; $c < $mfollow[$b]; $c++) {
print "<td width=\"5\"></td>\n";
}
print "<td colspan=$colspan align=right><font face=\"$fontface\" size=0 color=\"$fontcolor1\">$mdate[$b]</font></td></tr>\n";

print "<tr>";
for ($c = 1; $c < $mfollow[$b]; $c++) {
print "<td width=5></td>\n";
}
print "<td align=right width=\"10%\"><font face=\"$fontface\" size=\"$fontsize\" color=\"$fontcolor2\"><b>Поместил:</b></font></td>\n";
print "<td colspan=$colspan2><font face=\"$fontface\" size=\"$fontsize\" color=\"$fontcolor3\"><a href=\"mailto:$memail[$b]\">$mname[$b]</a></font></td></tr>\n";

print "<tr>";
for ($c = 1; $c < $mfollow[$b]; $c++) {
print "<td width=5></td>\n";
}
print "<td align=right><font face=\"$fontface\" size=\"$fontsize\" color=\"$fontcolor2\"><b>Тема:</b></font></td>\n";
print "<td colspan=$colspan2><font face=\"$fontface\" size=\"$fontsize\" color=\"$fontcolor3\">$msub[$b]</font></td></tr>\n";

print "<tr>";
for ($c = 1; $c < $mfollow[$b]; $c++) {
print "<td width=5></td>\n";
}
print "<td align=right valign=top><font face=\"$fontface\" size=\"$fontsize\" color=\"$fontcolor2\"><b>Сообщение:</b></font></td>\n";
print "<td colspan=$colspan2><font face=\"$fontface\" size=\"$fontsize\" color=\"$fontcolor3\">@body</font></td></tr>\n";

print "<tr>";
for ($c = 1; $c < $mfollow[$b]; $c++) {
print "<td width=5></td>\n";
}
print "<td align=right valign=top><font face=\"$fontface\" size=\"$fontsize\" color=\"$fontcolor2\"><b>Инфо:</b></font></td>\n";
print "<td colspan=$colspan2><font face=\"$fontface\" size=\"$fontsize\" color=\"$fontcolor3\"><a href=\"$cgi$queryswitch";
print "action=display\&num=$mnum[$b]\">Ответить на это сообщение</a>.</font></td></tr>\n";
print "</table>\n";
}



}

elsif (/<!--form-->/) {

print "<form action=\"$cgi$queryswitch";
print "action=post&follow=yes\" method=post>\n";

print "<table border=0>\n";

print "<tr><td align=right><font color=white>Имя: </font></td>\n";
print "<td><input type=text name=name size=40></td></tr>\n\n";

print "<tr><td align=right><font color=white>E-Mail: </font></td>\n";
print "<td><input type=text name=email size=40></td></tr>\n\n";

print "<tr><td align=right><font color=white>Тема: </font></td>\n";
print "<td><input type=text name=subject size=40></td></tr>\n\n";

print "<tr><td align=right valign=top><font color=white>Сообщение: </font></td>\n";
print "<td><textarea name=message rows=10 cols=30 wrap=virtual></textarea></td></tr>\n\n";

print "<tr><td align=center colspan=2>";
print "<input type=hidden name=followto value=$viewnum>\n";
print "<input type=hidden name=level value=$mfollow[$idnum]>\n";
print "<input type=submit value=\"Поместить это сообщение\"> ";
print "<input type=reset value=\"Очистить форму\"></td></tr>\n";

print "</table></form>\n\n";

}

elsif (/<!--subject-->/) {

print "<font color=white>$msub[$idnum]</font>\n";

}

elsif (/<!--mailto-->/) {

print "<a href=\"mailto:$memail[$idnum]\">$mname[$idnum]</a>\n";

}

elsif (/<!--name-->/) {

print "$mname[$idnum]\n";

}

elsif (/<!--email-->/) {

print "$memail[$idnum]\n";

}

elsif (/<!--date-->/) {

print "$mdate[$idnum]\n";

}

elsif (/<!--browser-->/) {

print "$mbrowser[$idnum]\n";

}

elsif (/<!--ip-->/) {

print "$mip[$idnum]\n";

}

else {

print "$_";

}

}

exit;

}

sub bancheck {

open (FILE, "$banfile") || &fatal_error("Не могу открыть $banfile");
&lock(FILE);
@banlist = <FILE>;
&unlock(FILE);
close(FILE);

($this1,$this2,$this3,$this4) = split(/\./,$ENV{REMOTE_ADDR});

for ($x = 0; $x < @banlist; $x++) {

($ip1,$ip2,$ip3,$ip4,$chop) = split(/``/,$banlist[$x]);

if ( ("$this1" eq "$ip1" && "$this2" eq "$ip2" && "$this3" eq "$ip3" && "$this4" eq "$ip4") ||
   ("$this1" eq "$ip1" && "$this2" eq "$ip2" && "$this3" eq "$ip3" && "$ip4" eq 'X') ||
   ("$this1" eq "$ip1" && "$this2" eq "$ip2" && "$ip3" eq 'X') ||
   ("$this1" eq "$ip1" && "$ip2" eq 'X') ) {

&fatal_error("Вы не можете поместить это сообщение. Ваш IP запрещен.");

}

}

}

sub admin {

print "<html>\n";
print "<head><title> Администрирование </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial size=2><center>\n";
print "<h2>Администрирование</h2>\n";

print "<b>Давай поадминим!</b><p>\n";

print "<a href=\"$cgi$queryswitch";
print "action=remove\">Удалить сообщения</a><br>\n";

# print "<a href=\"$cgi$queryswitch";
# print "action=ban\">Запретить пользователя</a><br>\n";

# print "<a href=\"$cgi$queryswitch";
# print "action=unban\">Разрешить пользователя</a><br>\n";

print "<a href=\"$cgi$queryswitch";
print "action=password\">Сменить пароль</a><p>\n";

# print "<table border=0 cellpadding=4>\n";
#
# print "<tr><th colspan=3><font face=arial size=2>Настройки</font></th></tr>\n\n";
#
# print "<tr><th><font face=arial size=2>Переменная</font></th>\n";
# print "<th><font face=arial size=2>Значение</font></th>\n";
# print "<th><Font face=arial size=2>Примечание</font></th></tr>\n\n";
#
# print "<tr>\n";
# print "<td align=center><font face=arial size=2><i>\$useban</i></font></td>\n";
# print "<td align=center><font face=arial size=2><b>$useban</b></font></td>\n";
# print "<td><font face=arial size=2>";
#
# if ($useban == 1) {
# print "Пользователи с этими IP в запр. списке не смогут писать в форум.";
# } else {
# print "Список запрета не используется. В форум могут писать все.";
# }
#
# print "</font></td></tr>\n";
#
# print "<tr>\n";
# print "<td align=center><font face=arial size=2><i>\$html</i></font></td>\n";
# print "<td align=center><font face=arial size=2><b>$html</b></font></td>\n";
# print "<td><font face=arial size=2>";
#
# if ($html == 0) {
#
# print "Все теги HTML удаляются из сообщений.";
#
# } elsif ($html == 1) {
#
# print "Теги HTML выводятся простым текстом.";
#
# } else {
#
# print "Теги HTML включены (возможны неприятности).";
#
# }
#
# print "</font></td></tr>\n";
#
# print "<tr>\n";
# print "<td align=center><font face=arial size=2><i>\$datetype</i></font></td>\n";
# print "<td align=center><font face=arial size=2><b>$datetype</b></font></td>\n";
# print "<td><font face=arial size=2>Пример: $date</td>";
#
# print "</tr>\n";
#
# print "<tr>\n";
# print "<td align=center><font face=arial size=2><i>\$encrypt</i></font></td>\n";
# print "<td align=center><font face=arial size=2><b>$encrypt</b></font></td>\n";
# print "<td><font face=arial size=2>";
#
# if ($encrypt == 1) {
# print "Пароль <i>шифруется</i>.";
# } else {
# print "Пароль не зашифрован.";
# }
#
# print "</tr>\n";
#
# print "<tr><td align=center colspan=3><font face=arial size=2>";
# print "Эти переменные могут быть изменены в robboard.cgi</font></td>\n";
#
# print "</tr></table><p>\n";

print "<b>или...</b><p>\n";

print "<a href=\"$indexcgi\">Назад к доске сообщений</a><br>\n";

print "</center></font>\n";
print "</body></html>\n";

exit;

}

sub remove {

open (FILE, "$datafile") || &fatal_error("Не могу открыть $datafile");
&lock(FILE);
@messages = <FILE>;
&unlock(FILE);
close(FILE);

for ($a = 0; $a < @messages; $a++) {

($mnum[$a],$msub[$a],$mfollow[$a],$mname[$a],$memail[$a],$mdate[$a],$mip[$a],$mbrowser[$a],$chop) = split(/``/,$messages[$a]);

if ($viewnum == $mnum[$a]) {
$idnum = $a;
}

}

print "<html>\n";
print "<head><title> Удаление сообщений </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial size=2><center>\n";
print "<h2>Удаление сообщений</h2>\n";

print "<form action=\"$cgi$queryswitch";
print "action=remove2\" method=post>\n\n";

print "Пароль: <input type=\"password\" name=pass size=20><p>\n";

print "<table border=0 cellpadding=7>\n\n";

print "<tr><th>Удалить</th><th>Сохранить</th><th>Номер</th><th>Сообщение</th><th>Дата</th></tr>\n";

for ($a = 0; $a < @messages; $a++) {

print "<tr>\n";
print "<td><input type=radio name=line$a value=\"yes\"></td>\n";
print "<td><input type=radio checked name=line$a value=\"no\"></td>\n";
print "<td>$mnum[$a]</td>\n";
print "<td><a href=\"$cgi$queryswitch";
print "action=display\&num=$mnum[$a]\">$msub[$a]</a></td>\n";
print "<td align=center>$mdate[$a]</td></tr>\n";

}

print "</table>\n";

print "<input type=hidden name=total value=$a>\n";
print "<input type=submit value=\"Удалить выбранные сообщения\">\n";
print "<input type=reset>\n";

print "</form>\n";

print "</center></font>\n";
print "</body></html>\n";

exit;

}

sub remove2 {

&checkpass;

$something = 0;
$delcounter = 0;

for ($x = 0; $x < $FORM{'total'}; $x++) {
$okiedokie[$x] = $FORM{"line$x"};
$something = 1 if ($okiedokie[$x] eq "yes");
}

if ($something == 1) {

open (FILE, "$datafile") || &fatal_error("Не могу открыть $datafile");
&lock(FILE);
@messages = <FILE>;
&unlock(FILE);
close(FILE);

for ($a = 0; $a < @messages; $a++) {

($mnum[$a],$msub[$a],$mfollow[$a],$mname[$a],$memail[$a],$mdate[$a],$mip[$a],$mbrowser[$a],$chop) = split(/``/,$messages[$a]);

}

open (FILE, ">$datafile") || &fatal_error("Не могу открыть $datafile");
&lock(FILE);

for ($x = 0; $x < @messages; $x++) {

if ($okiedokie[$x] eq 'yes') {

$y = $x;

while ( $x==$y || ( $mnum[$x] > $mnum[$y] && $x < @messages ) ) {

unlink("$datadir/$mnum[$x]\.txt");
$delcounter++;
$x++;

}
$x--;
}

else {

print FILE $messages[$x];

}

}
&unlock (FILE);
close (FILE);

}

print "<html>\n";
print "<head><title> Удаление сообщений </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial size=2><center>\n";
print "<h2>Удаление сообщений</h2>\n";

print "$delcounter сообщений(е,я) удалено.<p>\n\n";

print "<a href=\"$cgi$queryswitch";
print "action=admin\">Админ</a><br>\n";
print "<a href=\"$indexcgi\">Назад к доске сообщений</a>\n\n";

print "</center></font>\n";
print "</body></html>\n";

exit;

}

sub ban {

print "<html>\n";
print "<head><title> Запрещение пользователей </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial size=2><center>\n";
print "<h2>RobBoard - Ban a User</h2>\n";

print "<form action=\"$cgi$queryswitch";
print "action=ban2\" method=post>\n\n";

print "Пароль: <input type=\"password\" name=pass size=20><p>\n";

print "<b>Заретить IP</b><p>\n";

print "<input type=text name=box1 size=4> .\n";
print "<input type=text name=box2 size=4> .\n";
print "<input type=text name=box3 size=4> .\n";
print "<input type=text name=box4 size=4><p>\n";

print "<input type=submit value=\"Запретить\">\n";
print "<input type=reset>\n";

print "</form>\n";

print "<table border=0 width=85%>\n";

print "<tr><td><font face=arial size=2>\n";

print "Введите IP, который вы хотите запретить в текстовые поля. Вы можете запретить диапазон\n";
print "IP адресов введя <b>один прописной X</b> в поле. Например, введите\n";
print "123 234 345 123 для блокирования IP 123.234.345.123, или ввдетите\n";
print "123 234 345 X, чтобы блокировать 123.234.345.* - все IP адреса, которые начинаются с 123 234 345\n";
print ". Аналогично, 123 234 X блокирует 123.234.*.* . Вы также можете блокировать людей редактируя файл <i>ban.txt</i>\n";
print "вручную, но будте осторожны. Если вы не уверены в том, как в ban.txt\n";
print "хранятся данные, воспользуйтесь лучше этой формой.\n";

print "</font></td></tr></table><p>\n";

print "</center></font>\n";
print "</body></html>\n";

exit;

}

sub ban2 {

&checkpass;

open (FILE, ">>$banfile") || &fatal_error("Не могу открыть $banfile");
&lock(FILE);
print FILE "$FORM{'box1'}``$FORM{'box2'}``$FORM{'box3'}``$FORM{'box4'}``xx\n";
&unlock(FILE);
close(FILE);

print "<html>\n";
print "<head><title> Запрещение пользователей </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial size=2><center>\n";
print "<h2>Запрещение пользователей</h2>\n";

print "<b>$FORM{'box1'}\.$FORM{'box2'}\.$FORM{'box3'}\.$FORM{'box4'}</b> has been added to the ban list.<p>\n\n";

print "<a href=\"$cgi$queryswitch";
print "action=admin\">Админ</a><br>\n";
print "<a href=\"$indexcgi\">Назад к доске сообщений</a>\n\n";

print "</center></font>\n";
print "</body></html>\n";

exit;

}

sub unban {

open (FILE, "$banfile") || &fatal_error("Не могу открыть $banfile");
&lock(FILE);
@banlist = <FILE>;
&unlock(FILE);
close(FILE);

print "<html>\n";
print "<head><title> Разблокирование пользователей </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial size=2><center>\n";
print "<h2>Разблокирование пользвателей</h2>\n";

print "<form action=\"$cgi$queryswitch";
print "action=unban2\" method=post>\n\n";

print "Пароль: <input type=\"password\" name=pass size=20><p>\n";

print "<table border=0 cellpadding=7>\n";

print "<tr><th>Удалить из списка</th><th>Сохранить в списке</th><th>IP</th></tr>\n";

for ($x = 0; $x < @banlist; $x++) {

($ip1,$ip2,$ip3,$ip4,$chop) = split(/``/,$banlist[$x]);

print "<tr><th><input type=radio name=line$x value=\"yes\"></th>\n";
print "<th><input type=radio checked name=line$x value=\"no\"></th>\n";
print "<td align=center>$ip1\.$ip2\.$ip3\.$ip4</td></tr>\n";

}

print "</table>\n\n";

print "<input type=hidden name=total value=$x>\n";
print "<input type=submit value=\"Изменить\">\n";
print "<input type=reset>\n";

print "</form>\n\n";

print "</center></font>\n";
print "</body></html>\n";

exit;

}

sub unban2 {

&checkpass;

$something = 0;
$delcounter = 0;

for ($x = 0; $x < $FORM{'total'}; $x++) {
$okiedokie[$x] = $FORM{"line$x"};
$something = 1 if ($okiedokie[$x] eq "yes");
}

if ($something == 1) {

open (FILE, "$banfile") || &fatal_error("Не могу открыть $banfile");
&lock(FILE);
@banlist = <FILE>;
&unlock(FILE);
close(FILE);

open (FILE, ">$banfile") || &fatal_error("Не могу открыть $banfile");
&lock(FILE);

for ($x = 0; $x < @banlist; $x++) {
if ($okiedokie[$x] eq 'yes') {
$delcounter++;
} else {
print FILE $banlist[$x];
}
}

&unlock(FILE);
close (FILE);

}

print "<html>\n";
print "<head><title> Разблокирование пользователей </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial size=2><center>\n";
print "<h2>Разблокирование пользователей</h2>\n";

print "$delcounter вхождение(й) было удалено из списка.<p>\n\n";

print "<a href=\"$cgi$queryswitch";
print "action=admin\">Админ</a><br>\n";
print "<a href=\"$indexcgi\">Назад в форум</a>\n\n";

print "</center></font>\n";
print "</body></html>\n";

exit;

}

sub password {

print "<html>\n";
print "<head><title> Изменение пароля </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial size=2><center>\n";
print "<h2>Изменение пароля</h2>\n";

print "<form action=\"$cgi$queryswitch";
print "action=password2\" method=post>\n\n";

print "<table border=0>\n\n";

print "<tr><td align=right>Текущий пароль: </td>\n";
print "<td><input type=\"password\" name=pass size=20></td></tr>\n";

print "<tr><td align=right>Новый пароль: </td>\n";
print "<td><input type=\"password\" name=new1 size=20></td></tr>\n";

print "<tr><td align=right>Подтверждение пароля: </td>\n";
print "<td><input type=\"password\" name=new2 size=20></td></tr>\n";

print "</table>\n\n";

print "<input type=submit value=\"Изменить\">\n";
print "<input type=reset>\n";
print "</form>\n";

print "</center></font>\n";
print "</body></html>\n";


exit;

}

sub password2 {

&checkpass;
&fatal_error("Пароли не совпадают") if ($FORM{'new1'} ne $FORM{'new2'});
&fatal_error("Новый пароль не введен") unless ($FORM{'new1'});

open(FILE, "$pwdfile") || &fatal_error("Can't find $pwdfile");
@lines = <FILE>;
close(FILE);

($p, $nochop) = split(/``/,$lines[0]);
($p2, $nochop) = split(/``/,$lines[1]);

if ($encrypt == 1) {
$new = crypt($FORM{'new1'}, substr($p, 0, 2));
} else {
$new = $FORM{'new1'};
}

open (FILE, ">$pwdfile") || &fatal_error("Не могу найти $pwdfile");

if ($encrypt == 1) {
print FILE "$new``xx\n";
print FILE "$p2``xx";
} else {
print FILE "$p``xx\n";
print FILE "$new``xx";
}

close (FILE);

print "<html>\n";
print "<head><title> Изменение пароля </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial size=2><center>\n";
print "<h2>Изменение пароля</h2>\n";

print "Пароль успешно изменен.<p>\n";

print "<a href=\"/admin.htm\">Админ</a><br>\n";
#print "<a href=\"$indexcgi\">Назад в форум</a>\n\n";

print "</center></font>\n";
print "</body></html>\n";

exit;

}

sub checkpass {

open(FILE, "$pwdfile") || &fatal_error("Не могу найти $pwdfile");

@lines = <FILE>;
close(FILE);

($p, $nochop) = split(/``/,$lines[0]);
($p2, $nochop) = split(/``/,$lines[1]);

&fatal_error("Неверный пароль") if ($p ne crypt($FORM{'pass'}, substr($p, 0, 2)) && $encrypt == 1);
&fatal_error("Неверный пароль") if ($p2 ne $FORM{'pass'} && $encrypt != 1);

}

sub post_error {

local($e) = @_;

print "<html>\n";
print "<head><title> Ошибка размещения </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial><center>\n";
print "<h2>Ошибка размещения</h2>\n";

print "<blockquote>\n";
print "Ошибка размещения вашего сообщения:<p>\n";

print "<b>$e</b><p>\n\n";

print "Вы можете нажать кнопку 'Назад' вашго обозревателя, чтобы исправить ошибку.<p>\n";

print "<a href=\"$indexcgi\">На главную</a><p>\n";
print "</blockquote>\n";
print "</center>";
print "</font></body></html>\n";
exit;

}

sub fatal_error {

local($e) = @_;

print "<html>\n";
print "<head><title> Фатальная ошибка </title><meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\"></head>\n";
print "<body bgcolor=white text=black link=blue vlink=blue>\n";
print "<font face=arial><center>\n";
print "<h2>Фатальная ошибка</h2>\n";

print "<blockquote>\n";
print "Произошла неисправимая ошибка:<p>\n";

print "<b>$e</b><p>\n\n";

print "Если эта ошибка повториться, свяжитесь с администратором.<p>\n";

print "<a href=\"$indexcgi\">На главную</a><p>\n";
print "</blockquote>\n";
print "</center>";
print "</font></body></html>\n";
exit;

}

sub readform {

read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $input);
foreach $pair (@pairs) {

($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}

@vars = split(/&/, $ENV{QUERY_STRING});
foreach $var (@vars) {
($v,$i) = split(/=/, $var);
$v =~ tr/+/ /;
$v =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$i =~ tr/+/ /;
$i =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$i =~ s/<!--(.|\n)*-->//g;
$INFO{$v} = $i;
}

$action = $INFO{'action'};

}

sub get_date {

@days = ('Воскресенье','Понедельник','Вторник','Среда','Четверг','Пятница','Суббота');
@months = ('Январь','Февраль','Март','Апрель','Май','Июнь','Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь');

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$mon_num = $mon+1;
$savehour = $hour;
$hour = "0$hour" if ($hour < 10);
$min = "0$min" if ($min < 10);
$sec = "0$sec" if ($sec < 10);
$saveyear = ($year % 100);
$year = 1900 + $year;

if ($datetype == 1) {
$date = "$days[$wday], $months[$mon] $mday, $year в $hour\:$min\:$sec";
} elsif ($datetype == 2) {
$date = "$months[$mon] $mday, $year в $hour\:$min\:$sec";
} elsif ($datetype == 3) {
$xxx3 = substr($months[$mon],1,3);
$date = "$xxx3\. $mday, $year - $hour\:$min\:$sec";
} elsif ($datetype == 4) {
$mon_num = "0$mon_num" if ($mon_num < 10);
$mday = "0$mday" if ($mday < 10);
$saveyear = "0$saveyear" if ($saveyear < 10);
$date = "$mday-$mon_num-$saveyear - $hour\:$min\:$sec";
}

}

sub lock {
local($file)=@_;
flock($file, $LOCK_EX);
}

sub unlock {
local($file)=@_;
flock($file, $LOCK_UN);
}