#!/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/^..//;
$today = "$DayInMonth.$month[$Month].$Year";
# Проверка на наличие IP в базе блокированных пользователей
open (IPusers, "ipusers.txt");
@banlist = <IPusers>;
close(IPusers);
($this1,$this2,$this3,$this4) = split(/\./,$ENV{REMOTE_ADDR});
foreach $banlist (@banlist) {
($ip1,$ip2,$ip3,$ip4,$chop) = split(/\./,$banlist);
if ($this1 == $ip1) {
if ($this2 == $ip2) {
if ($this3 == $ip3) {
if ($this4 == $ip4) {
print "<META HTTP-EQUIV=\"refresh\" CONTENT=\"0;URL=$htmlurl/ban.htm\">\n\n";}}}}}
# Конец проверки
&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>
<font color="#008080">Статистика Ваших торгов на $today г.</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{'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'){
#### Выводим статистику продаж ####
open H,"./users/$userid/birjsale.stat";
if ($flock eq "1")
{flock(H, 2);}
while(defined($line=<H>)){
close(H);chomp($line);
($numlot,$date,$kolvo,$cena,$summ,$sost) = split(/\|/,$line);}
if ($numlot ne ""){
print qq~
<center>
<table border="1" cellpadding="0" cellspacing="0" width="95%" bordercolorlight="#CCCCFF">
<tr><td width="100%" align="center" bgcolor="#C0C0C0" colspan="6"><p align=center>
<font size="2">Проданные лоты</font></p></td></tr><tr><td width="16%" align="center">
№ лота</td><td width="16%" align="center">
&nbsp;Выставлен&nbsp;</td><td width="17%" align="center">Кол-во</td><td width="17%" align="center">
Цена</td><td width="17%" align="center">На сумму</td><td width="17%" align="center">
&nbsp;Куплен&nbsp;</td></tr><tr>
~;
open H,"./users/$userid/birjsale.stat";
if ($flock eq "1")
{flock(H, 2);}
while(defined($line=<H>)){
chomp($line);
($numlot,$date,$kolvo,$cena,$summ,$sost) = split(/\|/,$line);
print qq~
<td width="16%" align="center">&nbsp; $numlot</td><td width="16%" align="center">
$date</td><td width="17%" align="center">$kolvo</td><td width="17%" align="center">
$cena</td><td width="17%" align="center">$summ</td>
<td width="17%" align="center">$sost</a></td></tr></font></center>
~;
}close(H);
print qq~</table>~;
}# Конец вывода статистики продаж
#### Выводим статистику покупок ####
open H,"./users/$userid/birjpur.stat";
if ($flock eq "1")
{flock(H, 2);}
while(defined($line=<H>)){
close(H);chomp($line);
($numl,$date,$kolvo,$cena,$summ,$sost) = split(/\|/,$line);}
if ($numl ne ""){
print qq~
<center>
<table border="1" cellpadding="0" cellspacing="0" width="95%" bordercolorlight="#CCCCFF">
<tr><td width="100%" align="center" bgcolor="#C0C0C0" colspan="6"><p align=center>
<font size="2">Купленные лоты</font></p></td></tr><tr><td width="16%" align="center">
№ лота</td><td width="16%" align="center">
&nbsp;Выставлен&nbsp;</td><td width="17%" align="center">Кол-во</td><td width="17%" align="center">
Цена</td><td width="17%" align="center">На сумму</td><td width="17%" align="center">
&nbsp;Куплен&nbsp;</td></tr><tr>
~;
open H,"./users/$userid/birjpur.stat";
if ($flock eq "1")
{flock(H, 2);}
while(defined($line=<H>)){
chomp($line);
($numlot,$date,$kolvo,$cena,$summ,$sost) = split(/\|/,$line);
print qq~
<td width="16%" align="center">&nbsp; $numlot</td><td width="16%" align="center">
$date</td><td width="17%" align="center">$kolvo</td><td width="17%" align="center">
$cena</td><td width="17%" align="center">$summ</td>
<td width="17%" align="center">$sost</a></td></tr></font></center>
~;
}close(H);
print qq~</table>~;
}# Конец вывода статистики покупок









#### Если ошибка ####
}else{
print qq~<center>$error<br></center></b>~;
if($exist ne 'da'){print "<center>$exist</center></b>"}
}
&html_end;

