Здравствуйте, уважаемые профессионалы.
Пожалуйста, помогите!
Мне нужно, чтобы данные из формы записывались в txt файл не в дир. cgi-bin, а в дир. mydomain/ , и после завершения скрипта браузер отправлялся на др. сайт. Мой скрипт чо-то глючит:
#usr/bin/perl
&GetFormInput;
$name=$field{\'name\'};
$pass=$field{\'pass\'};
sub GetFormInput {
(*fval) = @_ if @_ ;
local ($buf);
if ($ENV{\'REQUEST_METHOD\'} eq \'POST\') {
read(STDIN,$buf,$ENV{\'CONTENT_LENGTH\'});
}
else {
$buf=$ENV{\'QUERY_STRING\'};
}
if ($buf eq "") {
return 0 ;
}
else {
@fval=split(/&/,$buf);
foreach $i (0 .. $#fval){
($name,$val)=split (/=/,$fval[$i],2);
$val=~tr/+/ /;
$val=~ s/%(..)/pack("c",hex($1))/ge;
$name=~tr/+/ /;
$name=~ s/%(..)/pack("c",hex($1))/ge;
if (!defined($field{$name})) {
$field{$name}=$val;
}
else {
$field{$name} .= ",$val";
}
}
}
return 1;
}
open (OUTFILE, ">>type.txt");
print OUTFILE "$name";
print OUTFILE "\\n$type";
print OUTFILE "\\n=======END=======\\n\\n";
close (OUTFILE);
print "Location: [url]http://redirect_URL\\n[/url]" ;
Спасибо