|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Dmitry A. Nikitin 2:5020/400 13 Apr 2005 13:08:03
To : Artem Chuprina
Subject : Re: Странные вещи творятся.
--------------------------------------------------------------------------------
Artem Chuprina пишет:
>
> Кто-то жмет на кнопку submit double-click'ом?
>
Хотел бы я узнать кто. Если это мозила жмёт, то зачем она это делает?
Hаписал вот это
#!/usr/bin/perl -w
use CGI qw/:all/;
if ($ENV{'QUERY_STRING'}) {$buffer = $ENV{'QUERY_STRING'};}
else {read(STDIN, $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/<!--(.|\n)*-->//g;
$input{$name} = $value;
}
$query = "$input{param1}\&$input{param2}\&$input{param3}\&$input{param4}";
open QUERY, ">/tmp/file.$$.txt" or die $!;
print QUERY "$query\n";
close QUERY;
print header(),
start_html(),
$query;
print end_html;
Создаётся один файлик, как и надо. Где косяк хоть убейся не пойму.
--
mailto:dmitry@sbor.spb.su
--- ifmail v.2.15dev5.3
* Origin: Home Inc. (2:5020/400)
Вернуться к списку тем, сортированных по:
|
