forum.lissyara.su

Код: Выделить всё

#use strict;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;

print "Content-type: text/html\n\n";

sub head_page {

}

sub error_maxmessage {

}


sub error_nomessage {

}

sub end_page {

sub filelock {
flock(DB,2);
}
sub fileunlock {
flock(DB,8);
}


sub get_time {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$mon++;
$year+=1900;
if ($mday<10) { $mday="0$mday"; }
if ($mon<10) { $mon="0$mon"; }
if ($min<10) { $min="0$min"; }
$date="$mday.$mon.$year";
$time="$hour:$min";
$cur_all_day=$mday+$mon*30+$year*365;
}



$query = CGI->new();
$login=$query->param("login");
$passwd=$query->param("passwd");
$city=$query->param("city");
$email=$query->param("email");
$title=$query->param("title");


if (! length($login)) {
&head_page;
&error_maxmessage;
&end_page;
exit;
}

$login =~ s/^\\s+//;
$login =~ s/\\s+$//;

# < >
if ((15 < length($login)) || ( 1 > length($login))) {
&head_page;
&error_maxmessage;
&end_page;
exit;
}



unless ($login =~ /^[a-z0-9]+$/) {
print "Адрес не соответствует форме foo2";
exit;
}

if (! length($email)) {
print "no email";
exit;
}

if ($email =~ /^[a-zA-Z_\\.-][a-zA-Z0-9_\\.-\\d]*\\@[a-zA-Z\\.-\\d]+\\.[a-zA-Z]{2,4}$/) {
print "no email";
exit;
}

if (! length($passwd)) {
print "no email";
exit;
}


if ((15 < length($passwd)) || (6 > length($passwd))) {
print "no passwd";
exit;
}


if (! length($title)) {
print "no title";
exit;
}


if ((30 < length($title)) || (2 > length($title))) {
print "2 до 30";
exit;
}



open (MYFILE, "1.txt") || die "awibka";

my(@sdata)=<MYFILE>;
foreach $str (@sdata) {
($iidd, $llog22, $passswd, $cityy, $emaaa, $title, $ip)=split(/\;/, $str);

if (grep { /^$login$/ } $llog22) {
print "or login";
exit;
}

if (grep { /^$email$/ } $emaaa) {
print "or email";
exit;
}

}

close(MYFILE);


my $dbh = DBI->connect("DBI:mysql:database=mysql;host=localhost","логин", "пароль") || die $DBI::errstr;

my $result = $dbh->prepare("CREATE DATABASE IF NOT EXISTS ${user_name}_db");
my $result2 = $dbh->prepare("GRANT ALL PRIVILEGES on $user_name.* to $user_name@localhost IDENTIFIED BY '$user_passwd_m' ");

$result->execute();
$result2->execute();


$result->finish();
$result2->finish();


$dbh->disconnect();

get_time();



system("mkdir /usr/home/$login") && die "no mkdir";


#my $Result = system("mkdir /usr/home/$login");
#if ($Result < 1) {print "Не могу создать\n"; exit;}

system("cp -R /usr/home/pp/ /usr/home/$login") && die "no copy";

system("chown www:www /usr/home/$login") && die "";


open (DB, "1.txt") || die print "Cannot open file $basefile: $!";
@base = <DB>;
close(DB);

open (DB, ">1.txt") || die print "Cannot open file $basefile: $!";
&filelock;
truncate(DB,0);
print DB "000;$login\;$passwd\;$city\;$email\;$title\;$time\;$date\;$ippp\;\n";
print DB @base;
&fileunlock;
close(DB);
print "ok";