#!/bin/bin/perl
use CGI qw(:standard);
$mailprog = '/usr/sbin/sendmail'; #Путь к почтовой программе
$admin='you\@domian.com';#Ваш адрес обязательно пишите как- \@
##############################datafile- user_ro.txt
$pravila= q#
<!--эти строки можно изменить-->
<h3>Правила нашего муравейника:</h3>
<ul>
<li>У нас будет много участников.</li>
<li>Вы имеете право на то и то</li>
<li>Правило 3</li>
<li>Правило 4</li>
<li>Правило 5</li>
<li>Правило 6</li>
<li>Правило 7</li>
</ul>
<!--дальше не изменять-->
#;
##############################
print header, start_html('Регистрация в системе');
####	DATE
	#($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
	#$year += 1900;
	#$date =$mday.':'.$mon.':'.$year;
####
open(DATA,"user_ro.txt");
@data=<DATA>;
$s=@data; close (DATA);


sub one{
print "<b>Участников-$s</b>\n";
print h2('Регистрация в системе'),$pravila ,"<br>";
print startform('POST','robo_reg.cgi'), "login: ", textfield('log'),
"<br>pass: ", textfield('pass'),
"<br>Email: ", textfield('mail'),
"<br>agent.htm-URL: ", textfield('url','http://','50'),
"<br>",submit, end_form,"</td></tr></table>";
}
if(param){
$log=param('log'); $pass=param('pass');
$url_r="robo_reg.cgi?log=".$log."\&pass=".$pass."\&act=re";


if(param('pact') eq 'add_re'){&add_re;}
else{if(param('act') eq 're'){&re;}}
if(param('pact') ne 'add_re'){
foreach(@data){@line=split(/\|/,$_);
               if($line[0] eq param('log')){print h3('Такой логин уже есть- вернитесь и исправте'), end_html; exit;}
              }

###50

open(DATA,">>user_ro.txt");
print DATA "$log|$pass|",param('mail'),"|",param('url'),"|\n";
close (DATA);
}
&male;
print h2('Вы зарегистрированы'), hr ," Ваш login-",param('log'),
      "<br>Ваш пароль- ",param('pass'),
      "<br>Ваш URL- " ,param('url'),
       "</b><br>Изменение информации- <a href=\"$url_r\">robo_reg.cgi?log=$log\&pass=$pass\&act=re</a>";
}
else{&one;}
print end_html;
sub re{
foreach(@data){@line=split(/\|/,$_);
               if($line[0] eq param('log') && $line[1] eq param('pass')){$pra=1;
                                                                        print h3('Редактирование информации!'),
                                                                         startform('POST','robo_reg.cgi'), "login: $line[0]<br>pass: ", textfield('pass',"$line[1]"),
                                                                         "<br>Email: ", textfield('mail',"$line[2]"),
                                                                         "<br>URL: ", textfield('url',"$line[3]",'50'),
                                                                          "<br>", hidden('log',"$line[0]"),hidden('oldpass',"$line[1]"),"<input type=hidden name=\"pact\" value=\"add_re\">",submit, end_form;                                                                                                                                                 
                                                                         end_html; exit;}
              }

if($pra!=1){print h2('Ваша информация неверна'), end_html; exit;}
}

sub add_re{
$a=0;
foreach(@data){@line=split(/\|/,$_);
               if($line[0] eq param('log') && $line[1] eq param('oldpass')){$pr=1;@linew=@line;$b=$a;
               $linew[1]=param('pass');$linew[2]=param('mail');$linew[3]=param('url');$linew[4]=param('num');}
               $a++;
               }
 if($pr!=1){print h2('Ваша информация неверна'), end_html; exit;}
open(DATA,">user_ro.txt");
$data[$b]= join("|",@linew);
print DATA @data;
close (DATA);
}
sub male{
$male=param('mail');
open(MAIL,"|$mailprog -t");
print MAIL "To: $admin\n";
print MAIL "From: $male\n";
print MAIL "Subject: Registration\n";
print MAIL "login: $log\n";
print MAIL param('url')," -", param('num');
close(MAIL);
##100
open(MAIL,"|$mailprog -t");
print MAIL "To: $male\n";
print MAIL "From: $admin\n";
print MAIL "Subject: registration\n";
print MAIL "Hi! $log- Вы в нашем муравейнике!\n";
print MAIL "Дерзайте";
close(MAIL);
}
exit;