#!/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{a} eq "join") {
@COUNT = getfile("count.txt");
if (-e "$config[7]/$in{username}") { reptem("<B>&nbsp;<p align=center><font color=#800000 size=4>Такой пользователь уже существует!</font></B></p>
<p align=center><b><font color=#FF0000 size=3>Выберите себе другой логин.</font></b></p>"); }
if (-e "$config[7]/$in{username}.verify") { reptem("<B>&nbsp;<p align=center><font color=#800000 size=4>Такой пользователь уже существует!</font></B></p>
<p align=center><b><font color=#FF0000 size=3>Выберите себе другой логин.</font></b></p>"); }
if ($in{username} =~ /[^a-zA-Z0-9]/) { &reptem("<b><p align=center>&nbsp;<p align=center><font color=#800000 size=4>Логин должен состоять только из латинских букв и цифр!</font></p><p align=center>"); }
if ($in{password} eq "") { &reptem("<b><p align=center>&nbsp;<p align=center><font color=#800000 size=4>Не введен пароль!</font></p><p align=center>"); }
if ($in{email} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || $in{email} !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z0-9]+)(\]?)$/) { &reptem("<b><p align=center>
<font color=#800000 size=4>Не введен e-mail!</font></p><p align=center></p>") }
if ($in{referer} ne "rudean") {
@zZz = getfile("$config[7]/$in{referer}");
$ref1 = $in{referer};
$ref2 = $zZz[5];
$ref3 = $zZz[6];
$ref4 = $zZz[7];
}
else {
$ref1 = $ref2 = $ref3 = $ref4 = "rudean";
}
@user = ($in{username}, $in{password}, "-", $config[13], "0", $ref1, $ref2, $ref3, $ref4, $in{email}, "0", "0", "0", "0", "0", "0", "0", "0");
&writefile("$config[7]/$in{username}.verify", @user);
&writefile("$config[7]/$in{username}.list", $in{urlz});
open(TEMP, "email.txt");
@TE = <TEMP>;
close TEMP;
$temp = join('',@TE);
$temp =~ s/%START%/$config[14]activate.cgi/;
$temp =~ s/%REFER%/$config[14]newuser.cgi?referer=$in{username}/;
$temp =~ s/%UNAME%/$in{username}/;
$temp =~ s/%PWORD%/$in{password}/;
&sendmail($in{email}, $config[16], "Вы зарегистрированы!", $temp);
&writefile("count.txt", @COUNT);
$text=<<d00der;
<H1 align="center"><font size="3">Регистрация
нового пользователя.</font></H1>
<p align="center"><font color="#0000FF" size="3">
На ваш e-mail послано письмо с ссылкой для активизации аккаунта.</font><P align="center">
<B>Вы должны активизировать аккаунт в течении 10 дней.</B><P align="center">
d00der
reptem($text);
}
$text=<<d00der;
<FORM METHOD="POST" ACTION="newuser.cgi">
<h1 align="center"><font size="3">
Регистрация нового пользователя</font></h1>
<p align="center"><font color="#FF0000"><b>* поля обязательны для заполнения.</b></font>
<p><div align="center"><center><table><tr><td>Логин</td>
<td><input TYPE="TEXT" NAME="username" size="20"><font color="#FF0000">*</font></td>
</tr><tr><td>Пароль</td>
<td><input TYPE="PASSWORD" NAME="password" size="20"><font color="#FF0000">*</font></td>
</tr><tr><td>E-mail</td><td><input TYPE="TEXT" NAME="email" size="20"><font color="#FF0000">*</font></td>
</tr><tr><td>URL ваших сайтов&nbsp;<br>по одному в линию<br>
        через<b> http://</b></td>
<td><textarea NAME="urlz" COLS="35" ROWS="4"></textarea></td></tr><tr>
<td><input TYPE="HIDDEN" NAME="referer" VALUE="$in{referer}"><input TYPE="HIDDEN" NAME="a" VALUE="join"></td>
<td><input TYPE="Submit" NAME="Submit" VALUE="Р е г и с т р а ц и я"></td>
</tr></table></center></div></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;
}
