#!/usr/bin/perl
require "set.pl";
$in{referer} = "rudean";
&getinput;
&printhead;
open(FILE, "config.dat"); $a = @config = <FILE>; close FILE; for ($i=0; $i<$a; $i++) { chomp($config[$i]); }
if (($in{password} eq "") || ($in{username} eq "")) {
&showlogin;
}
if (-e "$config[7]/$in{username}") {
@USER = getfile("$config[7]/$in{username}");
open(FILE, "$config[7]/$in{username}.list");
@URLz = <FILE>;
close FILE;
}
else { &showlogin; }
if ($in{password} ne $USER[1]) {
&showlogin;
}
if ($in{a} eq "charge") {
unless (-e "$config[7]/$in{to}") { $text = "<B>Пользователь не найден. Попробуйте еще раз.</B>"; reptem($text); }
$zZz = $costtr * $in{amount};
$total = $zZz + $in{amount};
if ($USER[3] - $USER[4] - $total < 0) { $text = "<B>У вас недостаточно кредитов на счету.</B>"; reptem($text); }
@USER2 = getfile("$config[7]/$in{to}");
$USER[4] = $USER[4] + $total;
$USER2[3] = $USER2[3] + $in{amount};
writefile("$config[7]/$in{to}", @USER2);
writefile("$config[7]/$in{username}", @USER);
$text=<<d00der;
<H1 align="center"><b><font size="3">Передача кредитов</font></b></H1>
С вашего аккаунта снято <B>$total</B> кредитов. Из них <B>$in{amount}</B> кредитов переведено пользователю
<B>$in{to}</B>. Спасибо!
<FORM METHOD=POST ACTION=member.cgi>
<p align="center"><INPUT TYPE=HIDDEN NAME="password" VALUE="$in{password}">
<INPUT TYPE=HIDDEN NAME="username" VALUE="$in{username}">
<INPUT TYPE="Submit" NAME="Submit" VALUE="Главное меню"></FORM><p>&nbsp;</p>
d00der
reptem($text);
}
$price = 1 + $costtr;
$text=<<d00der;

<H1 align="center"><font size="3">Передача кредитов</font></H1>
Чтобы передавать кредиты с одного аккаунта на другой, используйте эту форму. За перевод кредитов, системой взымается комиссионные
в размере 10% от суммы перевода.
<FORM METHOD="POST">
<INPUT TYPE=HIDDEN NAME="a" VALUE="charge">
<INPUT TYPE=HIDDEN NAME="password" VALUE="$in{password}">
<INPUT TYPE=HIDDEN NAME="username" VALUE="$in{username}">
Количество <INPUT TYPE=TEXT NAME="amount" VALUE="0"> Логин <INPUT TYPE=TEXT NAME="to">
<INPUT TYPE="Submit" NAME="Submit" VALUE="Передать!"></FORM>

<FORM METHOD=POST ACTION=member.cgi><INPUT TYPE=HIDDEN NAME="password" VALUE="$in{password}">
<INPUT TYPE=HIDDEN NAME="username" VALUE="$in{username}">
<INPUT TYPE="Submit" NAME="Submit" VALUE="Главное меню"></FORM>

d00der
reptem($text);
sub showlogin {
$text=<<d00der;
<h1 align="center"><font size="3">Вход в систему</font></h1>
<form METHOD="POST" ACTION="member.cgi"><div align="center">
<center><table><tr><td>Логин</td><td><input TYPE="TEXT" NAME="username" size="20"></td>
</tr><tr><td>Пароль</td><td><input TYPE="PASSWORD" NAME="password" size="20"></td>
</tr><tr><td></td><td><input TYPE="Submit" NAME="Submit" VALUE="В о й т и"></td>
</tr></table></center></div>
<h6 align="center"><font size="3">Забыли пароль? Нажмите</font>
<a HREF="forgot.cgi"><font size="3">здесь</font></a></h6>
</form>
d00der
reptem($text);
}
sub reptem {
my($text) = @_;
open(TEMP, "html.txt");
@TE = <TEMP>;
close TEMP;
$temp = join('',@TE);
$temp =~ s/%PLACE%/$text/;
print "$temp";
exit;
}
