#!/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}");
    }
else { &showlogin; }
if ($in{password} ne $USER[1]) {
&showlogin;
reptem($text);
}
if ($in{a} eq "search") {
writefile("$config[7]/$in{username}", @USER);
opendir(DATA, "$config[7]");
@DB = @DB2 = @DB3 = @DB4 = readdir(DATA);
closedir (DATA);
$text.= "<p align=center><font size=3><b>Список рефералов пользователя <font color=#0000FF>$in{username}:</font></b></font><p></p>
";
foreach $db (@DB) {
if ($db =~ /[^a-zA-Z0-9]/) { next; }
@TMP1 = getfile("$config[7]/$db");
if ($TMP1[5] eq $in{username}) {
$text.= "<font color=#008080><b>$db </b></font>(1 уровень)<BR>";
foreach $db2 (@DB2) {
if ($db2 =~ /[^a-zA-Z0-9]/) { next; }
@TMP2 = getfile("$config[7]/$db2");
if ($TMP2[5] eq $db) {
$text.= "<font color=#008080><b>$db2 </b></font>(2 уровень)<BR>";
foreach $db3 (@DB3) {
if ($db3 =~ /[^a-zA-Z0-9]/) { next; }
@TMP3 = getfile("$config[7]/$db3");
if ($TMP3[5] eq $db2) {
$text.= "<font color=#008080><b>$db3 </b></font>(3 уровень)<BR>";
foreach $db4 (@DB4) {
if ($db4 =~ /[^a-zA-Z0-9]/) { next; }
@TMP4 = getfile("$config[7]/$db4");
if ($TMP3[5] eq $db3) {
$text.= "<font color=#008080><b>$db4 </b></font>(4 уровень)<BR>";
}}}}}}}}
$text.= "<B><FORM METHOD=POST ACTION=statinfo.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>
</B>";
&reptem($text);
}
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;
}
