Apathe 2.55 Perl5
Ребят помогите разобратся с Apathe + Perl
Есть форма (отправка имени скрипту) лежит в корне апача вот код>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Perl Test</title>
<meta http-equiv="content-type" content=:text/html; charset=Windows-1251">
</head>
<body>
<form method=post action"/cgi-bin/testform.pl">
Ведите ваше имя:
<input name"user_name" value"" size=20>
<input type="submit" value="Зарегистрировать">
</form>
</body>
</html>
Скрипт лежит где положено /cgi-bin/ вот его код>
#!c:\Perl\bin\perl.exe
#Read and parse input from the web form
use CGI::Carp qw (fatalsToBrowser);
read(STDN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$buffer);
foreach$pair(@pairs)
{
($name,$value)=split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$value=~s///g;
$input{$name} = $value;
}
#Save the user otput in a file
$targetfile="/www/Apache2/htdocs/namesave.html";
open(NAMEFILE,">>$targetfile");
print NAMEFILE"<h3>Имя:",$input{'user_name'},"</h3>\n";
print NAMEFILE"
<hr>
\n";
close(NAMEFILE);
#Send a message back to the user
print"Content-Type:text/html; charset=windows-1251\n\n";
print"<h3>Спасибо, что заполнили форму</h3>\nНажмите";
print'сюда';
print",чтобы увидеть вашь ввод.\n";
Проблемма в том что форма не отправляет скрипту вродебы нечаго
нажимаю на кнопку и вапще нечего непроисходит :(
Толи чтото с путями ну незнаю вопщем что пути все перепробовал
вроде как апач просто недаёт скрипт запустить
напрямую если пишу в браузере путь к скрипту он сробатывает
а из формы нет :(
Форма вродекак правельная скрипт тоже значит надо чтото в апаче сделать ?
Есть форма (отправка имени скрипту) лежит в корне апача вот код>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Perl Test</title>
<meta http-equiv="content-type" content=:text/html; charset=Windows-1251">
</head>
<body>
<form method=post action"/cgi-bin/testform.pl">
Ведите ваше имя:
<input name"user_name" value"" size=20>
<input type="submit" value="Зарегистрировать">
</form>
</body>
</html>
Скрипт лежит где положено /cgi-bin/ вот его код>
#!c:\Perl\bin\perl.exe
#Read and parse input from the web form
use CGI::Carp qw (fatalsToBrowser);
read(STDN,$buffer,$ENV{'CONTENT_LENGTH'});
@pairs=split(/&/,$buffer);
foreach$pair(@pairs)
{
($name,$value)=split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$value=~s///g;
$input{$name} = $value;
}
#Save the user otput in a file
$targetfile="/www/Apache2/htdocs/namesave.html";
open(NAMEFILE,">>$targetfile");
print NAMEFILE"<h3>Имя:",$input{'user_name'},"</h3>\n";
print NAMEFILE"
<hr>
\n";
close(NAMEFILE);
#Send a message back to the user
print"Content-Type:text/html; charset=windows-1251\n\n";
print"<h3>Спасибо, что заполнили форму</h3>\nНажмите";
print'сюда';
print",чтобы увидеть вашь ввод.\n";
Проблемма в том что форма не отправляет скрипту вродебы нечаго
нажимаю на кнопку и вапще нечего непроисходит :(
Толи чтото с путями ну незнаю вопщем что пути все перепробовал
вроде как апач просто недаёт скрипт запустить
напрямую если пишу в браузере путь к скрипту он сробатывает
а из формы нет :(
Форма вродекак правельная скрипт тоже значит надо чтото в апаче сделать ?