Forum Webscript.Ru

Программирование => Perl => Тема начата: ork от 03 Января 2006, 22:33:32

Название: Help по CGI(perl)
Отправлено: ork от 03 Января 2006, 22:33:32

Люди, кто знает, помогите.
Я хотел, чтобы cgi скрипт создавал страничку, в которой присутствуют
flash-ролики.
Когда запускаю скрипт вся страница загружается, а вместо flash-роликов белые
пятна.
Причем та же страница в html-формате прекрасно отображается вместе с flash.
У меня установлен Apache 1.32, в error.log никакой ошибки нет.
Что делать и возможно ли вообще это осуществить?

Название: Help по CGI(perl)
Отправлено: synthez от 03 Января 2006, 22:37:23

возможно пути неправильно прописаны

Название: Help по CGI(perl)
Отправлено: ork от 03 Января 2006, 22:50:59

Нет, пути я проверял, с ними всё в порядке.
Может с content-type что-нибудь попробовать?
Я пробовал content-type:text/html;application/x-shockwave-flash

Название: Help по CGI(perl)
Отправлено: synthez от 03 Января 2006, 22:57:02

вроде тип прописывается в теге , а сам хтмл content="text/html"

Название: Help по CGI(perl)
Отправлено: ork от 03 Января 2006, 23:01:53

Вот весь код:
#!C:/usr/local/bin/perl        
use strict;
use CGI::Carp qw(fatalsToBrowser);  
print "content-type:text/html;application/x-shockwave-flash\\n\\n";
print\'  








 
 
   
 
 
   
   
   
   
   
   
   
   
   
   
   
   
 
 
   
   
   
   
   
   
   
   
   
   
   
   
 
 
   
   
   
   
   
   
   
   
   
   
   
   
 
 
   
   
   
   
   
   
   
   
   
   
   
   
 

		Логин:			Пароль:					Забыли пароль?

\';

Название: Help по CGI(perl)
Отправлено: ork от 03 Января 2006, 23:04:01

Извините за смайлики.

Название: Help по CGI(perl)
Отправлено: ork от 03 Января 2006, 23:15:20

А можете привести работающий прмер кода,
где бы создавалась страница с вставленным flash-роликом.

Название: Help по CGI(perl)
Отправлено: AnnA от 04 Января 2006, 12:58:55

ужас какой. :)

Цитировать

ork:
#!C:/usr/local/bin/perl use strict;
use CGI::Carp qw(fatalsToBrowser);

это можно оставить, как есть. остальное нужно менять. ;)
например - поместите ВЕСЬ свой html-код в файл, открывайте его из скрипта и

Код: [Выделить]

print "Content-Type: text/html\\n\\n";
open(F,"$datafile"); #$datafile - путь к html-коду странички
flock(F,2);seek(F,0,0);
while(){print}
flock(F,8);close (F);

Название: Help по CGI(perl)
Отправлено: ork от 04 Января 2006, 13:48:04

Проверил, но проблема осталась та же самая.
Он принципиально отказывается открывать файлы swf,
всё остальное работает отлично.

Название: Help по CGI(perl)
Отправлено: ork от 04 Января 2006, 13:54:12

Всё, проблема решилась, спасибо всем.