#!/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 "allhtml.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=~/^d/ && $f_v ne '1'){$f_v = 0}
if($f_n eq 'move'){push(@td,$f_v)}else{$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";
$today = "$DayInMonth.$month[$Month].$Year";
&html_start;
print qq~
<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolorlight="#CCCCFF" bgcolor="#F0F0F0">
<tr><td width="100%" align="center"><b><font size="2">В в о д / в ы в о д&nbsp;&nbsp;
с р е д с т в</font></b><b><font size="2">&nbsp;</font></b></td></tr></table>
~;
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;$password{$login}=$pwd;$exist='da';$ST=$status;}}
$u = $in{'user'};
$error="<br><br><p align=center><font size=4>Пользователя $in{'user'} не существует.</font></p>";
if($exist eq 'da'){$error = '<br><p align=center><font size=4>Неправильный пароль.<br></font></p>'}
if($ST eq 'B'){$error = '<br><p align=center><font size=4>Вами нарушены правила работы в системе.<br>Ваш аккаунт заблокирован администратором.<br>
</font>Для разблокировки Вашего аккаунта свяжитесь с администратором.<p>&nbsp;</p><p>&nbsp;</p>'}
if($password{$u} eq $in{'pwd'} && $exist eq 'da' && $ST eq 'A'){
if($in{'action'} eq 'start'){
open(WMUSER,"./users/$userid/wm.user");
if ($flock eq "1")
{flock(WMUSER, 2);}
@wmuser = <WMUSER>;
close(WMUSER);chomp(@wmuser);
open(IDSCHET,"idschet.txt");
$idschet = <IDSCHET>;
close(IDSCHET);chomp($idschet);
$idschet++;
open(IDSCHET,">idschet.txt");
if ($flock eq "1")
{flock(IDSCHET, 2);}
print IDSCHET $idschet;
close(IDSCHET);
open(ROT,"./system/config.pl");
if ($flock eq "1")
{flock(ROT, 2);}
@rotation = <ROT>;
close(ROT);chomp(@rotation);
print qq~
<br><table border="1" borderColorLight="#ccccff" cellPadding="0" cellSpacing="0" width="95%">
<tbody><tr><td align="middle" bgColor="#d8d8d8" colSpan="2" height="15">
<p align="center"><font size="2">Операции со счетом WM.</font></p>
</td></tr><tr><td colSpan="2" height="19"><p align="center">&nbsp;У Вас на счету $wmuser[0] WM.</p>
</td></tr><tr><td height="70">&nbsp;Вывести из системы&nbsp;
<p>&nbsp;Пополнить счет на</p></td><td height="70"><br>
<form method="POST">
<input name="user" type="hidden" value="$in{'user'}">
<input name="pwd" type="hidden" value="$in{'pwd'}">
<input name="action" type="hidden" value="out">&nbsp;&nbsp;&nbsp;<input name="outsum" size="5">&nbsp;&nbsp;WM&nbsp;
<input type="submit" value="Готово">
</form>
<form id=pay name=pay method='POST' action='https://merchant.webmoney.ru/lmi/payment.asp'>
<input type='hidden' name='LMI_PAYMENT_DESC' value='Пополнение счета пользователя $in{'user'}'>
<input type='hidden' name='LMI_PAYMENT_NO' value='$idschet'>
<input type='hidden' name='LMI_PAYEE_PURSE' value='$wmzadmin'>
<input type='hidden' name='LMI_SIM_MODE' value='0'>
<input name="user" type="hidden" value="$in{'user'}">
<input name="pwd" type="hidden" value="$in{'pwd'}">
<INPUT TYPE=HIDDEN NAME="action" VALUE="stat">
&nbsp;&nbsp;&nbsp;<input name="LMI_PAYMENT_AMOUNT" size="5">&nbsp;
WM&nbsp;&nbsp;<input type="submit" value="Готово">
</form>
</td></tr><tr><td colspan="2" bgcolor="#E8E4E8"><div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="98%"><tr><td width="100%">
<font size="2">Минимальная сумма для вывода установлена $rotation[14] WM.
Выплата средств на Ваш кошелек производится с 25 по 1 число каждого
месяца. Средства снимаются с Вашего счета непосредственно при переводе.<br>
Для пополнения счета введите количество WM на которое Вы хотите пополнить счет, после
чего Вы попадете на страницу оплаты счета Merchant WebMoney Transfer. После оплаты
Вы вернетесь на свой аккаунт в нашей системе.</font></td>
</tr></table></center></div></td></tr></tbody></table>        
~;}
#### Заявка на выплату ####
if($in{'action'} eq 'out'){
open(ROT,"./system/config.pl");
if ($flock eq "1")
{flock(ROT, 2);}
@rotation = <ROT>;
close(ROT);chomp(@rotation);
open(WMUSER,"./users/$userid/wm.user");
if ($flock eq "1")
{flock(WMUSER, 2);}
@wmuser = <WMUSER>;
close(WMUSER);chomp(@wmuser);
if($in{'outsum'} eq ''){
print qq~
<p align=center><b><font color=#8E7CCD>Вы не указали сумму!</font></b></b><br>
<a href=javascript:history.back()><<< Назад</a><br>~;
&html_end;
exit;}
if($in{'outsum'} > $wmuser[0]){
print qq~
<p align=center><b><font color=#8E7CCD>У Вас нет столько денег на счету!</font></b></b><br>
<a href=javascript:history.back()><<< Назад</a><br>~;
&html_end;
exit;}
if($in{'outsum'} < $rotation[14]){
print qq~
<p align=center><b><font color=#8E7CCD>Минимальная сумма для вывода $rotation[14] WM!</font></b></b><br>
<a href=javascript:history.back()><<< Назад</a><br>~;
&html_end;
exit;}
# Записываем лог запросов
open(SALES,">./users/$userid/outsum.dat");
print SALES "$Date|$in{'outsum'}|Не оплачено|---------|$ENV{'REMOTE_ADDR'}\n";
close(SALES);
# Отправляем письмо с запросом к администратору
open(INFO,"./users/$userid/info.user");
@info = <INFO>;
close(INFO);chomp(@info);
open (MAIL, "|$mailprog -t") || die "Ошибка открытия sendmail\n";
print MAIL "From: $info[1]\n";
print MAIL "To: $adminmail\n";
print MAIL "Subject: Заявка на вывод средств от $in{'user'}\n";
print MAIL "Заявка на вывод средств:\n";
print MAIL "Логин:  $in{'user'}\n";
print MAIL "Сумма к выплате: $in{'outsum'}\n";
print MAIL "Z-кошелек: $info[3]\n";
print MAIL "WMID: $info[2]\n";
print MAIL "E-mail: $info[1]\n";
close (MAIL);
print qq~
<br><center>
<table border="1" cellpadding="0" cellspacing="0" width="95%" bordercolorlight="#CCCCFF">
<tr><td width="100%" align="center" bgcolor="#F0F0F0"><p align=center><font color="#000080">
<b><font size="1"><br></font></b>Ваша заявка успешно принята!</font></p>
<p align=center>&nbsp;Напоминаем Вам, что выплата заработанных денег производится
один раз в месяц с 25 по 1 число.<br><b>
<font color="#008080" size="1"><br></font></b></p></td></tr></table></center>
~;
}
#### Если ошибка ####
}else{
print qq~<center>$error<br></center></b>~;
if($exist ne 'da'){print "<center>$exist</center></b>"}
}
&html_end;

