#!/usr/local/bin/perl $mail_prog = '/usr/sbin/sendmail' ; &GetFormInput; $nick = $field{'nick'} ; $login = $field{'login'} ; $pass = $field{'pass'} ; $pass1 = $field{'pass1'} ; $mail = $field{'mail'} ; $sitename = $field{'sitename'} ; $url = $field{'url'} ; $wmid = $field{'wmid'} ; $referer = $field {'referer'}; sub GetFormInput { (*fval) = @_ if @_ ; local ($buf); if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN,$buf,$ENV{'CONTENT_LENGTH'}); } else { $buf=$ENV{'QUERY_STRING'}; } if ($buf eq "") { return 0 ; } else { @fval=split(/&/,$buf); foreach $i (0 .. $#fval){ ($name,$val)=split (/=/,$fval[$i],2); $val=~tr/+/ /; $val=~ s/%(..)/pack("c",hex($1))/ge; $name=~tr/+/ /; $name=~ s/%(..)/pack("c",hex($1))/ge; if (!defined($field{$name})) { $field{$name}=$val; } else { $field{$name} .= ",$val"; } } } return 1; } $err="0"; $f="/web/012/wmclicks/public_html/adv/$login.pag"; if (-e $f) { $err="1"; } print "Content-Type: text/html\n\n"; print "
"; print "

"; print "

"; print " | "; print "

"; print "
| W M - C L I C K S -> R e g i s t r a t i o n |
"; print "

"; 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 "

Для посетителей
"; print "Логин: Пароль: "; print " "; print " Регистрация

Вопросы и ответы

Для рекламодателей
"; print "Логин: Пароль: "; print " Регистрация Вопросы и ответы
"; print "

Web Design by WM-Clicks ©

";