|
|
|
| Я написал на Perl вот такой скрипт для регистрации на сайте:
#!/usr/bin/perl
print "Content-type:text/html\n\n";
читаем переменные посланные методом GET
если заполнены все поля в форме, то:
use DBI;
$dbh=DBI->connect("DBI:mysql:mybase:localhost","mylogin";"mypassword");
$cur=$dbh->prepare(insert into t_user (a1,a2,a3) values ($form{'a1'},$form{'a2'},$form{'a3'}););
$cur->execute();
$cur->finish();
$dbh->disconnect;
print "<div>Регистрация прошла успешно!<br>\n";
print "<a target=_self href="forum.cgi">Нажмите ЗДЕСЬ для продолжения</a>\n";
}
else{
print "<div>Вы ввели разные пароли.<br>\n";
print "<div>Пожалуйста вернитесь на предыдущую страницу и введите один и тот же пароль в поля "Пароль" и "Повторите пароль".\n";
}
но он не работает. Постоянно выдает - ошибка сервера 500.
Что я неправильно написал? | |
|
|
|
|
|
|
|
для: begin
(04.05.2005 в 09:31)
| | А в директория где расположен скрипт разрешён запуск CGI-скриптов? | |
|
|
|
|
|
|
|
для: cheops
(04.05.2005 в 23:20)
| | В той директории (в cgi-bin) есть еще много скриптов, которые не используют запросы к MySQL и они нормально работают. Для каждого из них я выставил атрибуты 755, и для этого тоже. Так почему же он не работает? | |
|
|
|
|
|
|
|
для: begin
(05.05.2005 в 09:17)
| | А помоему в строке "DBI:mysql:mybase:localhost" наоборот пишется, сначала имя хоста, потом базы "DBI:mysql:localhost:mybase". | |
|
|
|
|
|
|
|
для: cheops
(05.05.2005 в 09:59)
| | не помогло :( | |
|
|
|