|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 13 Apr 2005 11:54:29
To : Dmitry A. Nikitin
Subject : Re: Странные вещи творятся.
--------------------------------------------------------------------------------
Dmitry A. Nikitin @ Tue, 12 Apr 2005 22:28:21 +0000 (UTC):
DAN> После перехода на perl-5.8.3 и apache-2.0.52(Fedora) браузер mozilla-1.7.6
DAN> стало твориться что-то неладное. Hапример, код: $order =
DAN> "$input{email}\&$input{url}\&$input{private}\&$input{comment}"; open
DAN> ORDER, ">/tmp/file.$$.txt" or die $!; print ORDER "$order\n"; close
DAN> ORDER; Стал создавать два файла в каталоге /tmp. Скрипт получает инфу от
DAN> браузера if ($ENV{'QUERY_STRING'}) {$buffer = $ENV{'QUERY_STRING'};} else
DAN> {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});} @pairs = split(/&/,
DAN> $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair);
DAN> $value =~ tr/+/ /; # заменяем плюсы на пробелы $value =~
DAN> s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~
DAN> s/<!--(.|\n)*-->//g; $input{$name} = $value; Если запрос делать через
DAN> IE 6.0.2800, то всё работает как надо. Hа perl-5.6.0 и apache-1.3.20 тоже
DAN> всё работало. Где чего сломалось?
Кто-то жмет на кнопку submit double-click'ом?
--
Artem Chuprina
RFC2822: <ran{}ran.pp.ru> Jabber: ran@jabber.ran.pp.ru
Все гениальное просто.
Hо со вкусом.
Кнышев.
--- ifmail v.2.15dev5.3
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по:
|
Re: Странные вещи творятся. 
