Мужики, не буду воду разводить. Смысл такой: есть прога

Код

#!perl -w use CGI::Carp qw (fatalsToBrowser); print "Content-Type:text/html; image:jpeg\n\n"; print qq~ <script language = "JavaScript"> <!-- hide function opw(a){          mv = open('', '', 'width = 300, height = 200');          mv.document.open();          mv.document.write('<img src = "');          mv.document.write(a);          mv.document.write('">');          mv.document.close(); } //--> </script> ~; my $dir = "img"; opendir FDIR, "$dir";         while($name = readdir FDIR){           next if ($name eq '.' || $name eq '..');            print qq~ <a href = "javascript:opw('$name')"><img src = '$dir/$name' height = 100 border = 0></a> ~;     } close FDIR;

Работает она у меня с картинками, как это видно. Так вот, уже в который раз сталкиваюсь с проблемой, что картинки в браузере не отображаются. Пробовал написать эту прогу с приславутым CGI модулем. Тоже самое.

print $cgi->header(-type=>'image/jpeg'); - это при использовании cgi-модуля
print "Content-Type:text/html; image:jpeg\n\n"; - это без него

один хрен выдаёт красные кресты! Почему???

Это сообщение отредактировал(а) sharq - 30.11.2005, 23:50

Цитата

print "Content-Type:text/html; image:jpeg\n\n";

А зачем ты в заголовок вставил image:jpeg, и вообще, почему двоеточие стоит, а не косая черта?
Ты выводишь html-документ, а не само изобращение, поэтому только

Код

print "Content-Type: text/html\n\n";

или

Код

print header(-charset => 'windows-1251'); # text/html - по умолчанию печатается

Папка, где находятся картинки, должна находиться не в cgi-bin, а в папке документов, например, htdocs или www, т.е. там же, где размещаются html-страницы и прочее. Поэтому

Код

my $dir = "../htdocs/img/"; # или полный путь

Вместо этого

Код

<a href = "javascript:opw('$name')">

должно быть:

Код

<a href = "javascript:opw('$dir/$name')">