|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Ura Bulatevich 2:451/16.66 09 Dec 2002 10:33:36
To : ALL
Subject : RE: вставка картинки из скрипта
--------------------------------------------------------------------------------
06 Dec 02 19:52, Andrey Sapozhnikov wrote to me:
AS> From: Andrey Sapozhnikov <sapa@icb.chel.su>
AS> Ura Bulatevich wrote:
>> добавил binmode(G). Есть положительный сдвиг: стало передаваться не 34
>> а 670 байт, хотя картинка 664 и все равно не показывается.
>> [...skipped...]
>> HTTP/1.1 200 Ok
>> Server: Xitami
>> Date: Fri, 06 Dec 2002 10:20:04 GMT
>> Connection: Keep-alive
>> Keep-alive: timeout=30, max=50
>> Content-length: 670
>> Content-type: image/gif
AS> Попробуй еще binmode(STDOUT). Судя по тому, что сервер
AS> возвращает для твоего CGI Content-length, данные CGI
AS> отправляет не в сокет, а в файл, который тоже может быть
AS> открыт в текстовом режиме. Хотя и сокет тоже может...
Всем большое спасибо. Заработало!!! Так и есть сервак передает данные
через файл (находящийся в temp pipe0001.cgi [0 байт] и pipe0001.cgo
[689 байт]). 689=664 картинка +25 Content-Type: image/gif\n\n
Окончательный скрипт:
#!d:/perl/bin/perl
$gif="../PIC/0.gif";
binmode(STDOUT);
print "Content-Type: image/gif\n\n";
open(G,$gif);
binmode(G);
print <G>;
close G;
Ura
--- Все, что ни делается - к худшему !
* Origin: It`s a good ? (2:451/16.66)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
