#!/usr/bin/perl
#############################################################
##            ExchangeVisits    Version  3.00              ##
##            February 2003  Ust-Nera  Russia              ##
##            All rights  ScriptZaWM&RuScript              ##
##            Web  http://www.script.zawm.biz              ##
##            Support scripts script@zawm.biz              ##
#############################################################
require "config.pl";
require "adminhtml.pl";
print "Content-Type: text/html\n\n";
if($ENV{'REQUEST_METHOD'} eq 'GET'){$query=$ENV{'QUERY_STRING'}}
elsif($ENV{'REQUEST_METHOD'} eq 'POST'){sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'})}
@formfields=split(/&/,$query);
sub urldecode{
local($val)=@_;
$val=~s/\+/ /g;
$val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;
return $val;}
foreach (@formfields){chomp($_);
($f_n,$f_v)=split(/=/,$_);
$f_n=&urldecode($f_n);
$f_v=&urldecode($f_v);
if($f_n eq 'move'){push(@td,$f_v)}else{$in{$f_n}=$f_v}
$in{$f_n}=$f_v;}
@month = ("01","02","03","04","05","06","07","08","09","10","11","12");
($Seconds, $Minutes, $Hours, $DayInMonth, $Month, $ShortYear, $DayOfWeek,
$DayOfYear, $IsDST) = localtime(time);
$Year = $ShortYear + 1900;$Year=~s/^..//;
$Date = "$DayInMonth.$month[$Month].$Year<time>$Hours:$Minutes:$Seconds";
$today = "$DayInMonth.$month[$Month].$Year";
&html_start;
if($query eq ''){
print qq~
&nbsp; <h3 align="center"><font color="#8E7CCD" size="3">Вход в центр администрирования</font></h3>
<form method="POST"><input type="hidden" name="step" value="stat">
<div align="center"><center><table border=0>
<tr><td>Логин:</td><td><input name="admin"></td></tr>
<tr><td>Пароль:</td><td><input type="password" name="pwd"></td></tr>
<tr><td colspan=2><p align="center">
<input type="submit" value="В о й т и"></p>
</td></tr></table></center></div></form><br><br><p align="center"><font color="#800000"><b><br>
</b></font><b><br><br><br>
~;
}else{
$l = $in{'admin'};
$ADMIN{$l} = $in{'pwd'};
if($ADMIN{'admin'} eq $adminpwd){
#### Данные пользователей ####
if($in{'step'} eq 'users'){
open(PWD,"userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
@users = <PWD>;
close(PWD);chomp(@users);
$allusers = $#users;$allusers++;
print qq~
<h2 align="center"><font color="#800000" size="3">Поиск
пользователя<br></h2><form method="POST">
<div align="center"><center><table border=0>
<tr><td><b>Пользователь:</b></td><td><input type="user" name="user"></td></tr>
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="step" value="usersinfo">
<tr><td colspan=2><center>
<input type="submit" value="Н а й т и"></td></tr>
</table></center></div></form></font>
<p align="center">* * *</p>
<p align="center">Всего пользователей в системе: <font color="#800000">$allusers</font>
<form name="allusers" method="POST">
<p align="center">
<input type="hidden" name="step" value="allusers">
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}"><a href="javascript:document.forms.allusers.submit();">Посмотреть
данные всех пользователей</p>
</a>
</form>
~;
}
#########################################
#### Вывод информации о пользователе ####
#########################################
if($in{'step'} eq 'usersinfo'){
open(PWD,"userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
@users = <PWD>;
close(PWD);chomp(@users);
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc) = split(/\|/,$_);
if($in{'user'} eq $login){$userid=$id;$pass=$pwd;$st=$status;$drs=$dr;}
if($st eq 'A'){$action='Активен'}elsif($st eq 'B'){$action='Блокирован'}}
($dmy,$hms) = split(/<time>/,$drs);
open(STAT,"./users/$userid/stat.user");
if ($flock eq "1")
{flock(STAT, 2);}
@stat = <STAT>;
close(STAT);chomp(@stat);
open(INFO,"./users/$userid/info.user");
if ($flock eq "1")
{flock(INFO, 2);}
@info = <INFO>;
close(INFO);chomp(@info);
#### Оплачиваем заявки на выкуп ####
if($in{'detect'} eq 'yes'){
open(PWD,"userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
@users = <PWD>;
close(PWD);chomp(@users);
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc) = split(/\|/,$_);
if($in{'user'} eq $login){$userid=$id}}
open H,"./users/$userid/outsum.dat";
while(defined($line=<H>))
{
chomp($line);
($date,$kolvo,$summ,$sost,$opl) = split(/\|/,$line);
}
open H,">./users/$userid/outsum.dat";
close(H);
# История переводов
open H,">>./users/$userid/outsum.stat";
print H "$date|$kolvo|Оплачено|$today\n";
close(H);
# Снимаем
open(WMUSER,"./users/$userid/wm.user");
if ($flock eq "1")
{flock(WMUSER, 2);}
@wmuser = <WMUSER>;
close(WMUSER);chomp(@wmuser);
$wmuser[0]=$wmuser[0]-$kolvo;
open(WMUSER,">./users/$userid/wm.user");
if ($flock eq "1")
{flock(WMUSER, 2);}
foreach (@wmuser){
print WMUSER "$_\n"}
close(WMUSER);
}elsif($in{'detect'} eq 'no'){
open(PWD,"userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
@users = <PWD>;
close(PWD);chomp(@users);
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc) = split(/\|/,$_);
if($in{'user'} eq $login){$userid=$id}}
open H,"./users/$userid/outsum.dat";
while(defined($line=<H>))
{
chomp($line);
($date,$kolvo,$summ,$sost,$opl) = split(/\|/,$line);
}
open H,">./users/$userid/outsum.dat";
close(H);
# История переводов
open H,">>./users/$userid/outsum.stat";
print H "$date|$kolvo|Отказано|$today\n";
close(H);}
# Блокировка/разблокировка
if($in{'detect'} eq 'Активен'){
open(PWD,">userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc)=split(/\|/,$_);
if($in{'user'} eq $login){
print PWD "$login|$pwd|$id|B|$dr|$dc\n";
}else{print PWD "$_\n"}
}
close(PWD);
}elsif($in{'detect'} eq 'Блокирован'){
open(PWD,">userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc)=split(/\|/,$_);
if($in{'user'} eq $login){
print PWD "$login|$pwd|$id|A|$dr|$dc\n";
}else{print PWD "$_\n"}
}
close(PWD);}
open(PWD,"userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
@users = <PWD>;
close(PWD);chomp(@users);
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc) = split(/\|/,$_);
if($in{'user'} eq $login){$userid=$id;$pass=$pwd;$st=$status}
if($st eq 'A'){$action='Активен'}elsif($st eq 'B'){$action='Блокирован'}}
open(TSTAT,"./system/today.stat");
if ($flock eq "1")
{flock(TSTAT, 2);}
@tstat = <TSTAT>;
close(TSTAT);chomp(@tstat);
foreach (@tstat){($logins,$ids,$dcc)=split(/\|/,$_);
if($userid eq $ids){$dcc1=$dcc;}}
($dmyc,$hmsc) = split(/<time>/,$dcc1);
open(WMUSER,"./users/$userid/wm.user");
if ($flock eq "1")
{flock(WMUSER, 2);}
@wmuser = <WMUSER>;
close(WMUSER);chomp(@wmuser);
if ($wmuser[0] eq ""){$wmuser[0]="0";}
$refsumm=$stat[13]+$stat[15]+$stat[17];
$refearn=$stat[14]+$stat[16]+$stat[18];
#### Конец ####
print qq~
<form method="POST">
<input type="hidden" name="action" value="info">
<div align="center"><center><table border=0>
<tr><td><b>Пользователь:</b></td><td><input type="user" name="user"></td></tr>
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="step" value="usersinfo">
<tr><td colspan=2><center>
<input type="submit" value="Н а й т и"></center></td></tr>
</table></div></form>
<font color="#800000"><b>Данные пользователя</b></font> <b><font color="#0000FF">$in{'user'}<br><br>
</font></b>
</center><div align="center"><center><table border="1" cellpadding="0" cellspacing="0" width="90%">
<tr><td width="13%"><p align="center">Дата<br>рег-ции</td><td width="13%">
<p align="center">Послед<br>
актив.</td><td width="17%">
<p align="center">E-mail</td><td width="20%">
<p align="center">WMZ</td><td width="12%"><p align="center">&nbsp;Аккаунт&nbsp;</td>
<td width="12%"><p align="center">Статус</td>
<td width="12%" align="center">&nbsp;Действие&nbsp;</td></tr><tr>
<td width="11%"><p align="center"><b>&nbsp;$dmy&nbsp;</b></td><td width="11%">
<p align="center"><b>&nbsp;$dmyc&nbsp;</b></td><td width="17%">
<p align="center"><b><a href="mailto:$info[1]">&nbsp;$info[1]&nbsp;</a></b></td><td width="17%">
<p align="center"><b>&nbsp;$info[3]&nbsp;</b></td><td width="12%" valign="bottom" align="center">
<a href="javascript:document.forms.user.submit();">Вход</a>&nbsp;
</td><td width="20%" valign="bottom" align="center">
<a href="javascript:document.forms.status.submit();">&nbsp;$action&nbsp;</a>
</td><td width="20%" valign="bottom" align="center">
<a href="javascript:document.forms.remove.submit();">Удалить</a></td></tr></table></div></center>

<form name="user" action="member.cgi" method="POST" target="_blank">
<input type="hidden" name="user" value="$in{'user'}">
<input type="hidden" name="pwd" value="$pass">
<input type="hidden" name="action" value="stat">
</form>
<form name="status" method="POST">
<input type="hidden" name="step" value="usersinfo">
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="detect" value="$action">
<input type="hidden" name="user" value="$in{'user'}">
</form>
<form name="remove" method="POST">
<input type="hidden" name="step" value="allusers">
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="detect" value="remove">
<input type="hidden" name="user" value="$in{'user'}">
</form>
<p align="center"><font color="#800000"><b>Статистика пользователя</b></font></p>
<div align="center"><center><table border="1" width="500" cellpadding="0" cellspacing="0">
<tr><td width="100%" colspan="2" align="center" bgcolor="#D8D8D8"><b><font face="Arial" size="2">Cтатистика
пользователя </font><font color="#0000FF">$in{'user'}</font></b></td></tr><tr>
<td width="80%">&nbsp;Баланс WM</td><td width="20%"><font color="#000080">
&nbsp; $wmuser[0]</font></td></tr><tr><td width="80%">&nbsp;Кредитов на основном счету</td>
<td width="20%"><font color="#000080">&nbsp; $stat[1]</font></td></tr><tr><td width="80%">
<font color="#000080">&nbsp;</font>Кредитов на банковском счету</td><td width="20%">
<font color="#000080">&nbsp; $stat[25]</font></td></tr><tr><td width="80%">
&nbsp;Кредитов продаваемых на бирже</td><td width="20%"><font color="#000080">
&nbsp; $stat[22]</font></td></tr><tr><td width="80%">&nbsp;Заработано кредитов</td>
<td width="20%"><font color="#000080">&nbsp; $stat[2]</font></td></tr><tr>
<td width="80%">&nbsp;Куплено кредитов</td><td width="20%"><font color="#000080">
&nbsp; $stat[23]</font></td></tr><tr><td width="80%">
&nbsp;Потрачено кредитов</td><td width="20%"><font color="#000080">&nbsp; $stat[5]</font>
</td></tr><tr><td width="80%">&nbsp;Продано кредитов</td><td width="20%">
<font color="#000080">&nbsp; $stat[20]</font></td></tr><tr><td width="80%">
&nbsp;Получено за чтение писем&nbsp;</td><td width="20%"><font color="#000080">
&nbsp; $stat[21]</font></td></tr><tr><td width="80%">&nbsp;Вcего в системе рефералов
&nbsp;</td><td width="20%"><font color="#000080">&nbsp; $refsumm</font></td>
</tr><tr><td width="80%">&nbsp;- рефералов 1 уровня</td><td width="20%">
<font color="#000080">&nbsp; $stat[13]</font></td></tr><tr><td width="80%">
&nbsp;- рефералов 2 уровня</td><td width="20%"><font color="#000080">&nbsp;
$stat[15]</font></td></tr><tr><td width="80%">&nbsp;- рефералов 3 уровня</td>
<td width="20%"><font color="#000080">&nbsp; $stat[17]</font></td></tr><tr>
<td width="80%">&nbsp;Рефералами заработано кредитов</td><td width="20%">
<font color="#000080">&nbsp; $refearn</font></td></tr><tr>
<td width="80%">&nbsp;Получено кредитов</td><td width="20%">
<font color="#000080">&nbsp; $stat[12]</font></td></tr><tr><td width="80%">
&nbsp;Переведено кредитов</td><td width="20%"><font color="#000080">&nbsp;
$stat[11]</font></td></tr><tr><td width="80%">
&nbsp;Конвертировано кредитов в WM</td><td width="20%"><font color="#000080">&nbsp;
$stat[24]</font></td></tr></table><br><font color="#000080"><b>Запрос на выплату</b><br><br>
<table border="1" cellpadding="0" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#008080">
<tr><td align="center">&nbsp;Дата запроса&nbsp; </td>
<td align="center">&nbsp;Сумма&nbsp;&nbsp; </td>
<td align="center">&nbsp;Состояние&nbsp; </td><td align="center">&nbsp;Оплатили?&nbsp; </td>
</tr>
~;
# Выводим лог запросов
open(PWD,"userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
@users = <PWD>;
close(PWD);chomp(@users);
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc) = split(/\|/,$_);
if($in{'user'} eq $login){$userid=$id}}
open H,"./users/$userid/outsum.dat";
while(defined($line=<H>))
{
chomp($line);
($date,$kolvo,$summ,$sost,$opl) = split(/\|/,$line);
($dmy,$hms) = split(/<time>/,$date);
print qq~
<td><p align="center">$dmy</p></td><td><p align="center">&nbsp;$kolvo WM&nbsp;</p>
</td><td><p align="center">&nbsp;$summ&nbsp;</p></td><td>
<p align="center"><a href="javascript:document.forms.yes.submit();"><b>Да</b></a>&nbsp;
/&nbsp; <a href="javascript:document.forms.no.submit();"><b>Нет</b></a></td></table>
<form name="yes" method="POST">
<input type="hidden" name="step" value="usersinfo">
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="detect" value="yes">
<input type="hidden" name="kolvo" value="$kolvo">
<input type="hidden" name="user" value="$in{'user'}">
</form>
<form name="no" method="POST">
<input type="hidden" name="step" value="usersinfo">
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="detect" value="no">
<input type="hidden" name="kolvo" value="$kolvo">
<input type="hidden" name="user" value="$in{'user'}">
</form>
~;
}
close(H);
print qq~
</table><font color="#000080"><b><br>Статистика выплат</b><br>
~;


}
if($in{'step'} eq 'allusers'){
print qq~
<h2 align="center"><font color="#800000" size="3">Поиск
пользователя<br></h2><form method="POST">
<input type="hidden" name="action" value="info">
<div align="center"><center><table border=0>
<tr><td><b>Пользователь:</b></td><td><input type="user" name="user"></td></tr>
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="step" value="usersinfo">
<tr><td colspan=2><center>
<input type="submit" value="Н а й т и"></td></tr>
</table></center></div></form></font><center><hr size=1 color=black></center>
~;
open(PWD,"userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
@users = <PWD>;
close(PWD);chomp(@users);
if($in{'detect'} eq 'Активен'){
open(PWD,">userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc)=split(/\|/,$_);
if($in{'user'} eq $login){
print PWD "$login|$pwd|$id|B|$dr|$dc\n";
}else{print PWD "$_\n"}
}
close(PWD);
}elsif($in{'detect'} eq 'Блокирован'){
open(PWD,">userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc)=split(/\|/,$_);
if($in{'user'} eq $login){
print PWD "$login|$pwd|$id|A|$dr|$dc\n";
}else{print PWD "$_\n"}
}
close(PWD);
}elsif($in{'detect'} eq 'remove'){
open(PWD,">userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc)=split(/\|/,$_);
if($in{'user'} ne $login){
print PWD "$_\n"}else{
$deldir = "./data/$id";
opendir(DIR,"$deldir");
@otstoy = readdir(DIR);
closedir(DIR);chomp(@otstoy);
foreach (@otstoy){$file="$deldir/$_";unlink($file)}
rmdir($deldir);
open(URLS,"./users/urls.pl");
if ($flock eq "1")
{flock(URLS, 2);}
@sites = <URLS>;
close(URLS);chomp(@sites);
open(URLS,">./users/urls.pl");
if ($flock eq "1")
{flock(URLS, 2);}
foreach (@sites){
($id_url,$status,$title,$http,$serf,$auto,$maxday,$ipday,$cat,$targ,$showed,$inserf,$inauto,$log) = split(/\|/,$_);
($Uid,$URLid) = split(/_/,$id_url);
if($id ne $Uid){
print URLS "$_\n"}
}
close(URLS);chomp(@sites);
}}}
open(PWD,"userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
@users = <PWD>;
close(PWD);chomp(@users);
$allusers = $#users;$allusers++;
if($in{'page'} eq ''){$in{'page'} = 1}
$max = $in{'page'}*20;
$min = $max - 20;
print "Всего пользователей в системе:  $allusers <br>";
$pg = 1;
print "<table><tr>";
for($d=0;$d<=$#users;$d+=20){
if($pg eq $in{'page'}){print "<td><b><font color=#FF0000>$pg</font></b>"}else{
if ($pg eq "40"){$pg="$pg</table><table>";}
if ($pg eq "77"){$pg="$pg</table><table>";}
if ($pg eq "110"){$pg="$pg</table><table>";}
if ($pg eq "137"){$pg="$pg</table><table>";}
if ($pg eq "164"){$pg="$pg</table><table>";}
if ($pg eq "190"){$pg="$pg</table><table>";}
print qq~
<td><form name="hyp$pg" method="POST">
<font size="1" face="Arial">
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="step" value="allusers">
<input type="hidden" name="page" value="$pg">
<a href="javascript:document.forms.hyp$pg.submit();">$pg</a>
</form>
</td>
~;
}
$pg++;
}
print qq~</tr></table>~;
print qq~
<div align="center"><center>
<table border="1" bordercolordark="#808080" cellpadding="0" cellspacing="0">
<tr><td align=center>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Логин&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td align=center>Дата<br>&nbsp; рег-ции&nbsp;&nbsp;</td>
<td align=center>Послед.<br>&nbsp; активность&nbsp;&nbsp;</td>
<td align=center>&nbsp; Аккаунт&nbsp;&nbsp;</td>
<td align=center>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Статус&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td align=center>&nbsp; Действие&nbsp;&nbsp;&nbsp;</td>
</tr>
~;
for($min;$min<$max;$min++){
if($users[$min] ne ''){
($login,$pwd,$id,$status,$dr,$mail)=split(/\|/,$users[$min]);
if($status eq 'A'){$action='Активен'}elsif($status eq 'B'){$action='Блокирован'}
($dmy,$hms) = split(/<time>/,$dr);



print qq~
<tr><td align="center"><p>&nbsp; $login</p></td>
<td align="center"><p> $dmy</p></td>
~;

open(TSTAT,"./system/today.stat");
if ($flock eq "1")
{flock(TSTAT, 2);}
@tstat = <TSTAT>;
close(TSTAT);chomp(@tstat);
foreach (@tstat){($logins,$ids,$dcc)=split(/\|/,$_);
if($id eq $ids){$dcc1=$dcc;}}
($dmyc,$hmsc) = split(/<time>/,$dcc1);

print qq~
<td align="center"><p> $dmyc</p></td><td align="center">
<a href="javascript:document.forms.tocome$id.submit();">Вход</a>
</td><td align="center">
<a href="javascript:document.forms.AB$id.submit();"> $action </a>
</td><td align="center"><a href="javascript:document.forms.remove$id.submit();">Удалить</a></td></tr>
<form name="tocome$id" action="member.cgi" method="POST" target="_blank">
<input type="hidden" name="user" value="$login">
<input type="hidden" name="pwd" value="$pwd">
<input type="hidden" name="action" value="stat">
</form>
<form name="remove$id" method="POST">
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="step" value="allusers">
<input type="hidden" name="detect" value="remove">
<input type="hidden" name="user" value="$login">
<input type="hidden" name="page" value="$in{'page'}">
</form>
<form name="AB$id" method="POST">
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="step" value="allusers">
<input type="hidden" name="detect" value="$action">
<input type="hidden" name="user" value="$login">
<input type="hidden" name="page" value="$in{'page'}">
</form>
~;
}}
print "</table>";
}elsif($in{'step'} eq 'credit'){
print "<center><b><font size=3 color=#800000>Перевод поинтов</font>";
open(PWD,"userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
@users = <PWD>;
close(PWD);chomp(@users);
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc)=split(/\|/,$_);
if($in{'to'} eq $login){$to = '1';$toid = $id}
}
open(STAT,"./system/sysstat.pl");
if ($flock eq "1")
{flock(STAT, 2);}
@sys=<STAT>;
close(STAT);chomp(@sys);
if($in{'crd'} eq 'start'){
print qq~
<form method="POST">
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="step" value="credit">
<input type="hidden" name="crd" value="next">
<div align="center"><center>
<table cellpadding="5" cellspacing="1">
<tr><td width="151">Всего в системе&nbsp;</td>
<td width="299"> $sys[0] [поинтов]</td></tr><tr><td width="151">Кому
перевести</td><td width="299"><input name="to" size="24">  [логин]</td>
</tr><tr><td width="151">Число поинтов</td>
<td width="299"><input name="much" size="24">  [количество]</td>
</tr><tr><td colspan="2" width="464">
<p align="center"><input type="submit" value="Перевести"></p>
</td></tr><tr><td colspan="2" width="464">Для перевода поинтов со
счета пользователя на счет системы войдите в аккаунт пользователя и
переведите поинты пользователю <b>admin</b>.
</td></tr></table></center></div></form>
~;
}elsif($in{'crd'} eq 'next'){
$error = '0';
$errortxt = '';
if($to ne '1'){$error = '1';$errortxt = "<center>Пользователя $in{'to'} не существует"}
if($in{'much'} eq ''){$error = '1';$errortxt = "$errortxt <center>Не указано количество поинтов<br>"}
if($in{'much'}=~/\D/g){$error = '1';$errortxt = "$errortxt <br>Неправильно указано количество поинтов<br>"}
if($error ne '0'){
print qq~
<form method="POST">
<input type="hidden" name="admin" value="$in{'admin'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="step" value="credit">
<input type="hidden" name="crd" value="next">
<div align="center"><center><table cellpadding="5" cellspacing="1">
<tr><td colspan=2><p align="center"><font size=-1 color=red> $errortxt </font></p>
</td></tr><tr><td>Всего в системе&nbsp;</td>
<td> $sys[0] <font size=-1>[поинтов]</font></td></tr><tr><td>Кому
перевести</td><td><input name="to" size="24"> <font size=-1>[логин]</font></td>
</tr><tr><td>Число поинтов</td><td><input name="much" size="24"> <font size=-1>[количество]</font></td>
</tr><tr><td colspan="2"><p align="center"><input type="submit" value="Перевести"></p>
</td></tr></table></center></div></form>
~;
}else{
$sys[0] = $sys[0] + $in{'much'};
$sys[5] = $sys[5] + $in{'much'};
($de,$e) = split(/\|/,$sys[10]);
if($de eq $today){$e = $e + $in{'much'};$sys[10] = "$de|$e"}else{$sys[10] = "$today|$in{'much'}"}
open (LOCK, "./system/sysstat.lock");
if ($flock eq "1")
{flock(LOCK, 2);}
@lock = <LOCK>;
close (LOCK);
chomp(@lock);
if ($lock[0]=='1') {
open (LOCK, ">./system/sysstat.lock");
if ($flock eq "1")
{flock(LOCK, 2);}
print LOCK "0";
close (LOCK);
open(STAT,">./system/sysstat.pl");
if ($flock eq "1")
{flock(STAT, 2);}
foreach (@sys){
print STAT "$_\n"}}
close(STAT);
open (LOCK, ">./system/sysstat.lock");
if ($flock eq "1")
{flock(LOCK, 2);}
print LOCK "1";
close (LOCK);
open(TO,"./users/$toid/stat.user");
if ($flock eq "1")
{flock(TO, 2);}
@t = <TO>;
close(TO);chomp(@t);
$t[1] = $t[1] + $in{'much'};
$t[12] = $t[12] + $in{'much'};
open(TO,">./users/$toid/stat.user");
if ($flock eq "1")
{flock(TO, 2);}
foreach (@t){
print TO "$_\n"}
close(TO);
open(INTR,">>./users/$toid/intr.dat");
if ($flock eq "1")
{flock(INTR, 2);}
print INTR "$Date|admin|$in{'much'}|$ENV{'REMOTE_ADDR'}\n";
close(INTR);
print "<h2 align=center><font size=3 color=#0000FF>Пользователю $in{'to'}
успешно переведено $in{'much'} показов.</font></h2><br><br><br><br><br><br><br><br>
";
}}
#### Настройка системы ####
}elsif($in{'step'} eq 'sys'){
if($in{'refresh'} eq 'detect'){
open(ROT,"./system/config.pl");
if ($flock eq "1")
{flock(ROT, 2);}
@rotation = <ROT>;
close(ROT);chomp(@rotation);
$rotation[0] = $in{'bonus'};
$rotation[1] = $in{'serf'};
$rotation[2] = $in{'autosef'};
$rotation[3] = $in{'ref1'};
$rotation[4] = $in{'ref2'};
$rotation[5] = $in{'ref3'};
$rotation[6] = $in{'credit'};
$rotation[7] = $in{'prbirja'};
$rotation[8] = $in{'prconv'};
$rotation[9] = $in{'trmin'};
$rotation[10] = $in{'kursconv'};
$rotation[11] = $in{'minbank'};
$rotation[12] = $in{'nextdata'};
$rotation[13] = $in{'prbank'};
$rotation[14] = $in{'minsum'};
open(ROT,">./system/config.pl");
if ($flock eq "1")
{flock(ROT, 2);}
foreach (@rotation){
print ROT "$_\n"}
close(ROT);
}
open(ROT,"./system/config.pl");
if ($flock eq "1")
{flock(ROT, 2);}
@rotation = <ROT>;
close(ROT);chomp(@rotation);
$creditserf = -(1 - $rotation[1] - $rotation[1]/100*$rotation[3] - $rotation[1]/100*$rotation[4] - $rotation[1]/100*$rotation[5]);
$creditautoserf = 1 - $rotation[2] - $rotation[2]/100*$rotation[3] - $rotation[2]/100*$rotation[4] - $rotation[2]/100*$rotation[5];
print qq~
<form method="POST"><input type="hidden" name="refresh" value="detect">
<input type="hidden" name="step" value="sys"><input type="hidden" name="pwd" value="$in{'pwd'}">
<p align="center"><input type="hidden" name="admin" value="$in{'admin'}">
<div align="center"><center><table border=1 cellpadding="0" cellspacing="0" width="550" bordercolorlight="#C8C0E8">
<tr><td width="550" colspan="2" align="center" bgcolor="#D8D8D8"><font size="2">
Настройка системы</font></td></tr><tr><td width="300">&nbsp;Бонус при регистрации
</td><td width="250">&nbsp;<input name="bonus" value="$rotation[0]" size="5">
[кредитов]</td></tr><tr><td>&nbsp;Начислять за&nbsp; 1 просмотр в серфинге </td><td>
&nbsp;<input name="serf" value="$rotation[1]" size="5"> [кредитов]</td></tr>
<tr><td>&nbsp;Начислять за 1 просмотр в автосерфинге </td><td>
&nbsp;<input name="autosef" value="$rotation[2]" size="5">[кредитов]</td></tr><tr><td>
&nbsp;Начислять за рефералов I уровня </td>
<td>&nbsp;<input name="ref1" value="$rotation[3]" size="5">  [процент]</td></tr>
<tr><td>&nbsp;Начислять за рефералов II уровня </td><td>
&nbsp;<input name="ref2" value="$rotation[4]" size="5">[процент]</td></tr><tr><td>
&nbsp;Начислять за рефералов III уровня </td><td>
&nbsp;<input name="ref3" value="$rotation[5]" size="5">  [процент]</td></tr><tr><td>
&nbsp;Комиссия системы при переводе </td><td>&nbsp;<input name="credit" value="$rotation[6]" size="5">
[процент]</td></tr><tr><td>&nbsp;Комиссия системы с продажи на бирже </td><td>
&nbsp;<input name="prbirja" value="$rotation[7]" size="5">[процент]</td></tr>
<tr><td>&nbsp;Комиссия системы при конвертации </td><td>&nbsp;<input name="prconv" value="$rotation[8]" size="5">
[процент]</td></tr><tr><td>&nbsp;Сумма на счету для операций </td><td>
&nbsp;<input name="trmin" value="$rotation[9]" size="5">[кредитов]</td></tr>
<tr><td>&nbsp;Курс конвертации кредитов в WM </td><td>&nbsp;<input name="kursconv" value="$rotation[10]" size="5">
[за 1000 кр]</td></tr><tr><td>&nbsp;Минимальная сумма вклада в банк </td><td>
&nbsp;<input name="minbank" value="$rotation[11]" size="5">[кредитов]</td></tr><tr><td>
&nbsp;Срок хранения в банке </td><td>&nbsp;<input name="nextdata" value="$rotation[12]" size="5">
[суток]</td></tr>
<tr>
  <td>&nbsp;Сумма процента на вклад </td><td>
&nbsp;<input name="prbank" value="$rotation[13]" size="5">[процент]</td>
</tr>
<tr><td>&nbsp;Минимальная сумма для вывода </td><td>
&nbsp;<input name="minsum" value="$rotation[14]" size="5">[WM]</td></tr><tr><td colspan=2>
<p align="center"><input type="submit" value="И з м е н и т ь"> </p></td></tr>
</table></center></div></form>

~;
########## Статистика системы ##########
}elsif($in{'step'} eq 'stat'){
open(STAT,"./system/sysstat.pl");
if ($flock eq "1")
{flock(STAT, 2);}
@stat=<STAT>;
close(STAT);chomp(@stat);
($d6,$kol6) = split(/\|/,$stat[6]);
if($d6 eq $today){$stat[6] = $kol6}else{$stat[6] = '0'}
($d7,$kol7) = split(/\|/,$stat[7]);
if($d7 eq $today){$stat[7] = $kol7}else{$stat[7] = '0'}
($d8,$kol8) = split(/\|/,$stat[8]);
if($d8 eq $today){$stat[8] = $kol8}else{$stat[8] = '0'}
($d9,$kol9) = split(/\|/,$stat[9]);
if($d9 eq $today){$stat[9] = $kol9}else{$stat[9] = '0'}
($d10,$kol10) = split(/\|/,$stat[10]);
if($d10 eq $today){$stat[10] = $kol10}else{$stat[10] = '0'}
($d12,$kol12) = split(/\|/,$stat[12]);
if($d12 eq $today){$stat[12] = $kol12}else{$stat[12] = '0'}
$allusers=0;$newtoday=0;$active=0;$blocked=0;$jobtoday=0;$online=0;
if ($stat[0] eq ''){$stat[0] = "0";}
if ($stat[4] eq ''){$stat[4] = "0";}
if ($stat[5] eq ''){$stat[5] = "0";}
if ($stat[11] eq ''){$stat[11] = "0";}
if ($stat[12] eq ''){$stat[12] = "0";}
open(PWD,"userdat.pl");
if ($flock eq "1")
{flock(PWD, 2);}
@users = <PWD>;
close(PWD);chomp(@users);
foreach (@users){
($login,$pwd,$id,$status,$dr,$dc)=split(/\|/,$_);
if($status eq 'B'){$blocked++}
($dmy,$hms) = split(/<time>/,$dr);
if($today eq $dmy){$newtoday++}}
$allusers = $#users;$allusers++;
open(TSTAT,"./system/today.stat");
if ($flock eq "1")
{flock(TSTAT, 2);}
@tstat = <TSTAT>;
close(TSTAT);chomp(@tstat);
foreach (@tstat){
($login,$ids,$dc)=split(/\|/,$_);
($dmyc,$hmsc) = split(/<time>/,$dc);
if($dmyc eq $today){$jobtoday++}
($ddd,$mmm,$yyy) = split(/\./,$dmyc);
if ($month[$Month] eq $mmm){$active++}
($hc,$hm,$hs) = split(/:/,$hmsc);
$lastcome = $hc*60*60 + $hm*60 + $hs;
$now = $Hours*60*60 + $Minutes*60 + $Seconds;
if(($now - $lastcome) <= 900 && $dmyc eq $today){$online++}}

print qq~
<align="center"><br><font color="#8E7CCD" size="3">Статистика системы</font><br><center>
<table border=1 cellpadding="0" cellspacing="0" width="450" bordercolorlight="#C8C0E8">
<tr><td width="400" colspan="2" align="center" bgcolor="#D8D8D8"><font size="2">
Статистика системы на $today</font></td></tr>
<tr><td width="300">&nbsp;Всего кредитов в системе</td><td width="100"> <font color="#000080">&nbsp;$stat[0]</font> </td></tr>
<tr><td>&nbsp;Выведено кредитов из системы</td><td> <font color="#000080">&nbsp;$stat[4]</font> </td></tr>
<tr><td>&nbsp;Начислено пользователям</td><td> <font color="#000080">&nbsp;$stat[5]</font> </td></tr>
<tr><td>&nbsp;Находится в банке</td><td> <font color="#000080">&nbsp;$stat[13]</font> </td></tr>
<tr><td>&nbsp;Всего показано сайтов</td><td> <font color="#000080">&nbsp;$stat[11]</font> </td></tr>
<tr><td>&nbsp;Сегодня показано сайтов</td><td> <font color="#000080">&nbsp;$stat[12]</font> </td></tr>
<tr><td>&nbsp;Всего зарегистрировано пользователей </td><td> <font color="#000080">&nbsp;$allusers</font> </td></tr>
<tr><td>&nbsp;Сегодня зарегистрировано пользователей </td><td> <font color="#000080">&nbsp;$newtoday</font> </td></tr>
<tr><td>&nbsp;Активных (работало в этом месяце) </td><td> <font color="#000080">&nbsp;$active</font> </td></tr>
<tr><td>&nbsp;Блокированных пользователей </td><td> <font color="#000080">&nbsp;$blocked</font> </td></tr>
<tr><td>&nbsp;Сегодня работало пользователей </td><td> <font color="#000080">&nbsp;$jobtoday</font> </td></tr>
<tr><td>&nbsp;Сейчас работают в системе </td><td> <font color="#000080">&nbsp;$online</font> </td></tr>
</table></center><br><br>
~;
}}else{
print qq~
<p align="center"><font color="#FF0000"><b>Логин или пароль
неправильны.</b></font> <h3 align="center"><font color="#8E7CCD" size="3">Вход в центр администрирования</font></h3>
<form method="POST"><input type="hidden" name="step" value="stat">
<div align="center"><center><table border=0>
<tr><td>Логин:</td><td><input name="admin"></td></tr>
<tr><td>Пароль:</td><td><input type="password" name="pwd"></td></tr>
<tr><td colspan=2><p align="center">
<input type="submit" value="В о й т и"></p>
</td></tr></table></center></div></form><br><br><br><br><br>
~;
}}
&html_end;
