\n"; $result = $DB->prepare($query) or die "Can't prepare query: $query\n"; $result->execute or die "Can't execute query: $query\n"; $query="insert into group_member values ($q_login,'confwriter')"; #print $query."
\n"; $result = $DB->prepare($query) or die "Can't prepare query: $query\n"; $result->execute or die "Can't execute query: $query\n"; open GROUP_FILE,">$GROUP_FILE" || die "Can't open file $GROUP_FILE"; print GROUP_FILE "admins: nadya Shaman\n"; $query="select login from group_member where groupname='user'"; #print $query."
\n"; $result = $DB->prepare($query) or die "Can't prepare query: $query\n"; $result->execute or die "Can't execute query: $query\n"; print GROUP_FILE "user:"; while ($data_hash=$result->fetchrow_hashref) { print GROUP_FILE " ".$data_hash->{'login'}; } print GROUP_FILE "\n"; close GROUP_FILE; $FIRST_COME=0; } else { $FIRST_COME=0; $ERROR=1; $ERR_MSG="
Пользователь с таким ником или email-ом уже существует. Попробуйте придумать другой."; } $result->finish; } else { $FIRST_COME=0; $ERROR=1; if ($login eq '') { $ERR_MSG="
Вы не заполнили поле ник."; } elsif ($email eq '') { $ERR_MSG="
Вы не заполнили поле e-mail."; } elsif (!($login =~ /^\w+$/)) { $ERR_MSG="
Вы не правильно заполнили поле login (только латинские буквы и цифры)."; } elsif (!($email =~ /[\w\.\-]+\@[\w\.\-]+/)) { $ERR_MSG="
Вы не правильно заполнили поле e-mail - попробуйте еще раз."; } } $DB->disconnect; } !>
Форма регистрации
$ERR_MSG
\n";
}
elsif (!$FIRST_COME)
{!>
Вы зарегистрированы. Пароль для входа выслан вам по email.
login:
Password: [выслан Вам по email]
Пожалуйста, заполните поля нашей анкеты и нажмите "Отослать". Данные будут зарегистрированны и на указанный e-mail будет выслан Ваш пароль, по которому Вы сможете входить на страницы cайта. Обратите внимание на следующие моменты:
Успешной регистрации!
