#!/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'){
open(STAT,"./users/$userid/stat.user");
if ($flock eq "1")
{flock(STAT, 2);}
@stat = <STAT>;
close(STAT);chomp(@stat);
open(ROT,"./system/config.pl");
if ($flock eq "1")
{flock(ROT, 2);}
@rotation = <ROT>;
close(ROT);chomp(@rotation);
########## Стартовая страница ##########
if($in{'action'} eq 'start'){
print qq~
<font color="#008080">
Комиссия системы с продаж - $rotation[7] %</font><br><font size="2" color="#000080">
* Снимается при выставлении лота. При отмене лота возвращается.</font><center>
<table border="1" cellpadding="0" cellspacing="0" width="95%" bordercolorlight="#CCCCFF">
<tr><td width="104%" align="center" bgcolor="#C0C0C0"><p align=center><font size="2">
Биржа кредитов</font></p></td></tr></center><tr><td width="99%" align="center" bgcolor="#E8E8E8">
Выставить лот на продажу</td></tr><tr><td width="99%" align="center">
<FORM action=birja.cgi method=post><input type="hidden" name="action" value="sale">
<input type="hidden" name="user" value="$in{'user'}">
<input type="hidden" name="pwd" value="$in{'pwd'}"><p><font size="2">&nbsp; <br>
&nbsp; Количество&nbsp;&nbsp; <input type="text" name="kolvo" size="5">&nbsp;
по цене <input type="text" name="cena" size="3" value="1.00"> WM за 1000
<input type="submit" value="Выставить"><br></font>&nbsp;
<a href="javascript:document.forms.birjsale.submit();"><b><font color="#8E7CCD">
Выставленные лоты всех пользователей</font></b></a></form></td><center>
</tr><tr><td width="99%" align="center" bgcolor="#E8E8E8">Выставить
лот на покупку</td></tr><tr><td width="99%" align="center">
<FORM action=birja.cgi method=post><input type="hidden" name="action" value="pur">
<input type="hidden" name="user" value="$in{'user'}">
<input type="hidden" name="pwd" value="$in{'pwd'}"><p><font size="2">&nbsp; <br>
&nbsp; Количество&nbsp;&nbsp; <input type="text" name="kolvo" size="5">&nbsp;
по цене <input type="text" name="cena" size="3" value="1.00"> WM за 1000
<input type="submit" value="Выставить"><br></font>&nbsp;
<a href="javascript:document.forms.birjpur.submit();"><b><font color="#8E7CCD">
Выставленные лоты всех пользователей</font></b></a></form></td></tr>
</table><a href="javascript:document.forms.birjstat.submit();"><font color="#8E7CCD" size="2">
[ с т а т и с т и к а &nbsp;&nbsp;&nbsp;в а ш и х&nbsp;&nbsp;&nbsp; т о р г о в]
</font></a></center><form method="POST" ACTION="birjsale.cgi" name="birjsale">
<INPUT TYPE=HIDDEN NAME="action" VALUE="start">
<INPUT TYPE=HIDDEN NAME="pwd" VALUE="$in{pwd}">
<INPUT TYPE=HIDDEN NAME="user" VALUE="$in{user}">
</form>
<form method="POST" ACTION="birjpur.cgi" name="birjpur">
<INPUT TYPE=HIDDEN NAME="action" VALUE="start">
<INPUT TYPE=HIDDEN NAME="pwd" VALUE="$in{pwd}">
<INPUT TYPE=HIDDEN NAME="user" VALUE="$in{user}">
</form>
<form method="POST" ACTION="birjstat.cgi" name="birjstat">
<INPUT TYPE=HIDDEN NAME="pwd" VALUE="$in{pwd}">
<INPUT TYPE=HIDDEN NAME="user" VALUE="$in{user}">
</form>
~;
#### Выводим статистику продаж ####
open H,"./users/$userid/birja.sale";
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">
Действие</td></tr><tr>
~;
open H,"./users/$userid/birja.sale";
if ($flock eq "1")
{flock(H, 2);}
while(defined($line=<H>)){
chomp($line);
($numlot,$date,$kolvo,$cena,$summ,$sost) = split(/\|/,$line);
if ($sost eq ""){$sost="Отмена";$otm="<a href=javascript:document.forms.rem$numlot.submit();>
<font color=red>"}
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">$otm $sost</a></td></tr></font></center>
<form name="rem$numlot" method="POST">
<input type="hidden" name="user" value="$in{'user'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="action" value="del">
<input type="hidden" name="numlot" value="$numlot">
</form>
~;
}close(H);
print qq~</table>~;
}# Конец вывода статистики продаж
#### Выводим статистику лотов покупки ####
open H,"./users/$userid/birja.pur";
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">
Действие</td></tr><tr>
~;
open H,"./users/$userid/birja.pur";
if ($flock eq "1")
{flock(H, 2);}
while(defined($line=<H>)){
chomp($line);
($numlot,$date,$kolvo,$cena,$summ,$sost) = split(/\|/,$line);
if ($sost eq ""){$sost="Отмена";$otm="<a href=javascript:document.forms.remp$numlot.submit();>
<font color=red>"}
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">$otm $sost</a></td></tr></font></center>
<form name="remp$numlot" method="POST">
<input type="hidden" name="user" value="$in{'user'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="hidden" name="action" value="delpur">
<input type="hidden" name="numlot" value="$numlot">
</form>
~;
}close(H);
print qq~</table>~;
}# Конец вывода статистики лотов покупки

}# Конец функции стартовая страница
########## Удаляем лот (Продажа) ##########
if ($in{'action'} eq 'del'){
### Удаляем лот из лога биржи ###
open(BSALEL,"birjsale.lot");
if ($flock eq "1")
{flock(BSALEL, 2);}
@bsalel = <BSALEL>;
close(BSALEL);chomp(@bsalel);
foreach (@bsalel){($lotidu,$userid,$date,$kolvo,$cena,$summ) = split(/\|/,$_);
if($in{'numlot'} eq $lotidu){$cen=$cena;}}
open(BSALEL,">birjsale.lot");
if ($flock eq "1")
{flock(BSALEL, 2);}
foreach (@bsalel){($lotid,$userid,$date,$kolvo,$cena,$summ) = split(/\|/,$_);
if($in{'numlot'} ne $lotid){
print BSALEL "$_\n"}}
close(BSALEL);
### Удаляем лот из лога пользователя ###
open(BSALE,"./users/$userid/birja.sale");
if ($flock eq "1")
{flock(BSALE, 2);}
@bsale = <BSALE>;
close(BSALE);chomp(@bsale);
foreach (@bsale){($lotidu,$date,$kolvo,$cena,$summ) = split(/\|/,$_);
if($in{'numlot'} eq $lotidu){$kolv=$kolvo;}}
open(BSALE,">./users/$userid/birja.sale");
if ($flock eq "1")
{flock(BSALE, 2);}
foreach (@bsale){($lotid,$date,$kolvo,$cena,$summ) = split(/\|/,$_);
if($in{'numlot'} ne $lotid){
print BSALE "$_\n"}}
#flock (BSALE, 8);
close(BSALE);
### Возвращаем кредиты на счет пользователя ###
$komkr=($kolv/100)*$rotation[7];
$krsumm=$komkr+$kolv;
open(STAT,"./users/$userid/stat.user");
if ($flock eq "1")
{flock(STAT, 2);}
@stat = <STAT>;
close(STAT);chomp(@stat);
$stat[1]=$stat[1]+$krsumm;
$stat[22]=$stat[22]-$kolv;
open(STAT,">./users/$userid/stat.user");
if ($flock eq "1")
{flock(STAT, 2);}
foreach (@stat){
print STAT "$_\n"}
close(STAT);
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>Ваш лот № $in{'numlot'} снят с продажи!</font></p>
<p align=center>&nbsp;На Ваш основной счет возвращено <font color=#000080>$krsumm
</font>кредитов, из них <br><font color=#000080>$komkr</font> кредитов комиссии.<br><b>
<font color="#008080" size="1"><br></font></b></p></td></tr></table></center>
~;
}# Конец функции удаление лота
########## Записываем лот на продажу ##########
if ($in{'action'} eq 'sale'){
open(STAT,"./users/$userid/stat.user");
if ($flock eq "1")
{flock(STAT, 2);}
@stat = <STAT>;
close(STAT);chomp(@stat);
$summlot=(($in{'kolvo'}/100)*$rotation[7])+$in{'kolvo'};
### Если ошибка ###
if ($rotation[9] > $stat[1]){$error="1";$errortxt="Для выставления лота на продажу Вам необходимо
<br> иметь на счету не менее $rotation[9] кредитов!";}
if ($in{'kolvo'} < "10"){$error="1";$errortxt="Лот не может быть менее 10 кредитов!";}
if ($in{'kolvo'} eq ''){$error="1";$errortxt="Введите количество кредитов!";}
if ($summlot > $stat[1]){$error="1";$errortxt="С учетом комиссии у Вас на счету должно быть $summlot кредитов!";}
if($in{'kolvo'}=~/\D/g){$error = '1';$errortxt="Количество кредитов должно содержать только целое число!"}
if ($error eq "1"){
print qq~
<div align="center"><font color="#FF0000">$errortxt</font><center>
<table border="1" cellpadding="0" cellspacing="0" width="95%" bordercolorlight="#CCCCFF">
<tr><td width="104%" align="center" bgcolor="#C0C0C0"><p align=center><font size="2">
Биржа кредитов</font></p></td></tr></center><tr><td width="99%" align="center" bgcolor="#E8E8E8">
Выставить лот на продажу</td></tr><tr><td width="99%" align="center">
<FORM action=birja.cgi method=post><input type="hidden" name="action" value="sale">
<input type="hidden" name="user" value="$in{'user'}">
<input type="hidden" name="pwd" value="$in{'pwd'}"><p><font size="2">&nbsp; <br>
&nbsp; Количество&nbsp;&nbsp; <input type="text" name="kolvo" size="5">&nbsp;
по цене <input type="text" name="cena" size="3" value="1.00"> WM за 1000
<input type="submit" value="Выставить"><br></font>&nbsp;
<a href="javascript:document.forms.birjsale.submit();"><b><font color="#8E7CCD">
Выставленные лоты всех пользователей</font></b></a></form></td><center>
</tr><tr><td width="99%" align="center" bgcolor="#E8E8E8">Выставить
лот на покупку</td></tr><tr><td width="99%" align="center">
<FORM action=birja.cgi method=post><input type="hidden" name="action" value="pur">
<input type="hidden" name="user" value="$in{'user'}">
<input type="hidden" name="pwd" value="$in{'pwd'}"><p><font size="2">&nbsp; <br>
&nbsp; Количество&nbsp;&nbsp; <input type="text" name="kolvo" size="5">&nbsp;
по цене <input type="text" name="cena" size="3" value="1.00"> WM за 1000
<input type="submit" value="Выставить"><br></font>&nbsp;
<a href="javascript:document.forms.birjpur.submit();"><b><font color="#8E7CCD">
Выставленные лоты всех пользователей</font></b></a></form></td></tr>
</table></center></div>
<form method="POST" ACTION="birjsale.cgi" name="birjsale">
<INPUT TYPE=HIDDEN NAME="action" VALUE="start">
<INPUT TYPE=HIDDEN NAME="pwd" VALUE="$in{pwd}">
<INPUT TYPE=HIDDEN NAME="user" VALUE="$in{user}">
</form>
<form method="POST" ACTION="birjpur.cgi" name="birjpur">
<INPUT TYPE=HIDDEN NAME="action" VALUE="start">
<INPUT TYPE=HIDDEN NAME="pwd" VALUE="$in{pwd}">
<INPUT TYPE=HIDDEN NAME="user" VALUE="$in{user}">
</form>
~;
&html_end;
exit;}
### Если все Ок - записываем лот ###
$summ=($in{'kolvo'}/1000)*$in{'cena'};
open(LOTID,"lotid.txt");
if ($flock eq "1")
{flock(LOTID, 2);}
$lotid = <LOTID>;
close(LOTID);chomp($lotid);
$lotid++;
open(LOTID,">lotid.txt");
if ($flock eq "1")
{flock(LOTID, 2);}
print LOTID $lotid;
close(LOTID);
### Запись в лог пользователя ###
open(BSALE,">>./users/$userid/birja.sale");
if ($flock eq "1")
{flock(BSALE, 2);}
print BSALE "$lotid|$Date|$in{'kolvo'}|$in{'cena'}|$summ|\n";
close(BSALE);
### Запись в общий лог биржи ###
open(BSALEL,">>birjsale.lot");
if ($flock eq "1")
{flock(BSALEL, 2);}
print BSALEL "$lotid|$userid|$Date|$in{'kolvo'}|$in{'cena'}|$summ|\n";
close(BSALEL);
### Снимаем кредиты со счета пользователя ###
$komis=($in{'kolvo'}/100)*$rotation[7];
$summlot=$komis+$in{'kolvo'};
open(STAT,"./users/$userid/stat.user");
if ($flock eq "1")
{flock(STAT, 2);}
@stat = <STAT>;
close(STAT);chomp(@stat);
$stat[1]=$stat[1]-$summlot;
$stat[22]=$stat[22]+$in{'kolvo'};
open(STAT,">./users/$userid/stat.user");
if ($flock eq "1")
{flock(STAT, 2);}
foreach (@stat){
print STAT "$_\n"}
close(STAT);
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>Ваш лот на продажу $in{'kolvo'} кредитов принят!</font></p>
<p align=center>Лот на продажу <font color=#000080>$in{'kolvo'}
</font>кредитов по цене <font color=#000080>$in{'cena'} WM</font> на сумму <br>
<font color="#000080">$summ WM</font> успешно выставлен! Комиссия составила $komis кредитов.
<b><font color="#008080" size="1">
<br></font></b></p></td></tr></table></center>
~;
} # Конец записи лота продаж
########## Записываем лот на покупку ##########
if ($in{'action'} eq 'pur'){
open(WMUSER,"./users/$userid/wm.user");
if ($flock eq "1")
{flock(WMUSER, 2);}
@wmuser = <WMUSER>;
close(WMUSER);chomp(@wmuser);
$summ=($in{'kolvo'}/1000)*$in{'cena'};
### Если ошибка ###
if ($summ > $wmuser[0]){$error="1";$errortxt="Не достаточно денег для покупки!";}
if ($in{'kolvo'} < "10"){$error="1";$errortxt="Лот не может быть менее 10 кредитов!";}
if ($in{'kolvo'} eq ''){$error="1";$errortxt="Введите количество кредитов!";}
if($in{'kolvo'}=~/\D/g){$error = '1';$errortxt="Количество кредитов должно содержать только целое число!"}
if ($error eq "1"){
print qq~
<div align="center"><font color="#FF0000">$errortxt</font><center>
<table border="1" cellpadding="0" cellspacing="0" width="95%" bordercolorlight="#CCCCFF">
<tr><td width="104%" align="center" bgcolor="#C0C0C0"><p align=center><font size="2">
Биржа кредитов</font></p></td></tr></center><tr><td width="99%" align="center" bgcolor="#E8E8E8">
Выставить лот на продажу</td></tr><tr><td width="99%" align="center">
<FORM action=birja.cgi method=post><input type="hidden" name="action" value="sale">
<input type="hidden" name="user" value="$in{'user'}">
<input type="hidden" name="pwd" value="$in{'pwd'}"><p><font size="2">&nbsp; <br>
&nbsp; Количество&nbsp;&nbsp; <input type="text" name="kolvo" size="5">&nbsp;
по цене <input type="text" name="cena" size="3" value="1.00"> WM за 1000
<input type="submit" value="Выставить"><br></font>&nbsp;
<a href="javascript:document.forms.birjsale.submit();"><b><font color="#8E7CCD">
Выставленные лоты всех пользователей</font></b></a></form></td><center>
</tr><tr><td width="99%" align="center" bgcolor="#E8E8E8">Выставить
лот на покупку</td></tr><tr><td width="99%" align="center">
<FORM action=birja.cgi method=post><input type="hidden" name="action" value="pur">
<input type="hidden" name="user" value="$in{'user'}">
<input type="hidden" name="pwd" value="$in{'pwd'}"><p><font size="2">&nbsp; <br>
&nbsp; Количество&nbsp;&nbsp; <input type="text" name="kolvo" size="5">&nbsp;
по цене <input type="text" name="cena" size="3" value="1.00"> WM за 1000
<input type="submit" value="Выставить"><br></font>&nbsp;
<a href="javascript:document.forms.birjpur.submit();"><b><font color="#8E7CCD">
Выставленные лоты всех пользователей</font></b></a></form></td></tr>
</table></center></div>
<form method="POST" ACTION="birjsale.cgi" name="birjsale">
<INPUT TYPE=HIDDEN NAME="action" VALUE="start">
<INPUT TYPE=HIDDEN NAME="pwd" VALUE="$in{pwd}">
<INPUT TYPE=HIDDEN NAME="user" VALUE="$in{user}">
</form>
<form method="POST" ACTION="birjpur.cgi" name="birjpur">
<INPUT TYPE=HIDDEN NAME="action" VALUE="start">
<INPUT TYPE=HIDDEN NAME="pwd" VALUE="$in{pwd}">
<INPUT TYPE=HIDDEN NAME="user" VALUE="$in{user}">
</form>
~;
&html_end;
exit;}
### Если все Ок - записываем лот ###
$summ=($in{'kolvo'}/1000)*$in{'cena'};
open(LOTID,"lotid.txt");
if ($flock eq "1")
{flock(LOTID, 2);}
$lotid = <LOTID>;
close(LOTID);chomp($lotid);
$lotid++;
open(LOTID,">lotid.txt");
if ($flock eq "1")
{flock(LOTID, 2);}
print LOTID $lotid;
close(LOTID);
### Запись в лог пользователя ###
open(BSALE,">>./users/$userid/birja.pur");
if ($flock eq "1")
{flock(BSALE, 2);}
print BSALE "$lotid|$Date|$in{'kolvo'}|$in{'cena'}|$summ|\n";
close(BSALE);
### Запись в общий лог биржи ###
open(BSALEL,">>birjpur.lot");
if ($flock eq "1")
{flock(BSALEL, 2);}
print BSALEL "$lotid|$userid|$Date|$in{'kolvo'}|$in{'cena'}|$summ|\n";
close(BSALEL);
### Снимаем WM со счета пользователя ###
$wmuser[0]=$wmuser[0]-$summ;
open(WMUSER,">./users/$userid/wm.user");
if ($flock eq "1")
{flock(WMUSER, 2);}
foreach (@wmuser){
print WMUSER "$_\n"}
close(WMUSER);
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>Ваш лот на покупку $in{'kolvo'} кредитов принят!</font></p>
<p align=center>Лот на покупку <font color=#000080>$in{'kolvo'}
</font>кредитов по цене <font color=#000080>$in{'cena'} WM</font> на общую<br>сумму
<font color="#000080">$summ WM</font> успешно выставлен!
<b><font color="#008080" size="1">
<br></font></b></p></td></tr></table></center>
~;
} # Конец записи лота продаж
########## Удаляем лот (Покупка) ##########
if ($in{'action'} eq 'delpur'){
### Удаляем лот из лога биржи ###
open(BSALEL,"birjpur.lot");
if ($flock eq "1")
{flock(BSALEL, 2);}
@bsalel = <BSALEL>;
close(BSALEL);chomp(@bsalel);
foreach (@bsalel){($lotidu,$userid,$date,$kolvo,$cena,$summ) = split(/\|/,$_);
if($in{'numlot'} eq $lotidu){$cen=$cena;}}
open(BSALEL,">birjpur.lot");
if ($flock eq "1")
{flock(BSALEL, 2);}
foreach (@bsalel){($lotid,$userid,$date,$kolvo,$cena,$summ) = split(/\|/,$_);
if($in{'numlot'} ne $lotid){
print BSALEL "$_\n"}}
close(BSALEL);
### Удаляем лот из лога пользователя ###
open(BSALE,"./users/$userid/birja.pur");
if ($flock eq "1")
{flock(BSALE, 2);}
@bsale = <BSALE>;
close(BSALE);chomp(@bsale);
foreach (@bsale){($lotidpur,$date,$kolvo,$cena,$summ) = split(/\|/,$_);
if($in{'numlot'} eq $lotidpur){$summlot=$summ;}}
open(BSALE,">./users/$userid/birja.pur");
if ($flock eq "1")
{flock(BSALE, 2);}
foreach (@bsale){($lotpur,$date,$kolvo,$cena,$summ) = split(/\|/,$_);
if($in{'numlot'} ne $lotpur){
print BSALE "$_\n"}}
close(BSALE);
### Возвращаем WM на счет пользователя ###
open(WMUSER,"./users/$userid/wm.user");
if ($flock eq "1")
{flock(WMUSER, 2);}
@wmuser = <WMUSER>;
close(WMUSER);chomp(@wmuser);
$wmuser[0]=$wmuser[0]+$summlot;
open(WMUSER,">./users/$userid/wm.user");
if ($flock eq "1")
{flock(WMUSER, 2);}
foreach (@wmuser){
print WMUSER "$_\n"}
close(WMUSER);
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>Ваш лот № $in{'numlot'} снят с торгов!</font></p>
<p align=center>&nbsp;На Ваш счет возвращено <font color=#000080>$summlot</font>WM.<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;

