";
if ($pass eq $pass1 and $err eq "0")
{
use Fcntl;
use NDBM_File;
tie %hash, "NDBM_File", "/web/012/wmclicks/public_html/adv/logs/$login", O_RDWR|O_CREAT|O_EXCL, 0644;
$hash{pass} = $pass;
$hash{nick} = $nick;
$hash{mail} = $mail;
$hash{sitename} = $sitename;
$hash{url} = $url;
$hash{wmid} = $wmid;
$hash {referer} = $referer;
untie %hash;
tie %hashm, "NDBM_File", "/web/012/wmclicks/public_html/adv/money/$login", O_RDWR|O_CREAT|O_EXCL, 0644;
$hashm{summ} ="0";
untie %hashm;
tie %hasht, "NDBM_File", "/web/012/wmclicks/public_html/adv/tun/$login", O_RDWR|O_CREAT|O_EXCL, 0644;
$hasht{number} ="0";
untie %hasht;
if ($referer ne "")
{
$f="/web/012/wmclicks/public_html/adv/refered/$referer.dat";
if (-e $f)
{
open (FILE,">>/web/012/wmclicks/public_html/adv/refered/$referer.dat");
print FILE "$login\n";
close (FILE);
}
else
{
open (FILE,">/web/012/wmclicks/public_html/adv/refered/$referer.dat");
print FILE "$login\n";
close (FILE);
}
}
print " Поздравляем, теперь вы зарегистрированы! Переводите деньги на Ваш счет и получайте посетителей на свой сайт!";
print " На главную страницу ";
print "$r";
}
if ($err eq "1")
{
print "Рекламодатель с таким логином уже существует!";
}
if ($pass ne $pass1)
{
print " Введенные пароли не совпадают!!!";
}
print " ";
print "
| Для посетителей |