|
Opera b Perl
|
Bishop 12/11/04 11:17 AM |
|
Помогите пожалйуйста. У меня такая проблема при открытии скриптов в опере появляеться пустое белое окно с Эксплорером все в порядке. Юзаю оперу 7.54. Может кто подскажет. Или как настроить окно при попытке открытия скрипта, обработка MIME по расширению.
|
|
Re: Opera b Perl
|
van_grieg 12/11/04 08:40 PM |
|
В ответ на:
при открытии скриптов в опере появляеться пустое белое окно
Браузеры не обрабатывают скрипты Perl. Это делает сервер.
|
|
Re: Opera b Perl
|
Bishop 12/13/04 01:53 PM |
|
Тогда почему Эксплорер открывает страницу нормально при открытии через оперу (что-то типа _//mypage.net/cgi-bin/script.pl)_ страница открываеться но вместо содержимого просто белый фон, ошибки не высвечивает текста никакого нет. Что самое интересное скрипт выполняеться нормально, все невизуальные действия проходят, а вот вывода на экран нет.
Попробовал поставить оперу 7.60 таже история. По поводу сервервера использую SmallHTTPServer.
Могу дать текст скрипта:
#!perl
# Directory Script
# Written by Valeriy Shishkin a.k.a Bishop
# Begin
$size = 0; #Size of file
$i=2; #Index
$rootdir="../gal/"; #RootDirectory
$subdir=""; #SubDirectory
$file = "seriya01.lst"; #File to read
$fullname="";
#Header
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1251\">\n";
print "<TITLE>Untitled</TITLE>\n";
print "</HEAD>\n";
print "<BODY background=../pic/bg.jpg text=white link=white vlink=white>\n";
print "<CENTER>\n";
# open and read catalog
open (BASE, "<$file") || die "Can't open $file: $!\n";
@text = <BASE>;
close (BASE);
$size = @text;
# for all lines do
while ($i <= $size)
{
if ($text[$i] =~ /\w+\\/)
{
$subdir = $text[$i];
$count=1;
chop($subdir);
print "<TABLE BORDER ALIGN=Center WIDTH=100%><THEAD><TR><TH><H2>$subdir</H2></TH></TR></TABLE>\n";
}
if ( $text[$i] =~ /(\w+\.\w+)/ )
{
$fullname = "$rootdir$subdir$1";
$fullname =~ s(\\)(\/)g;
$fullname =~ s(\ )(%20)g;
if ($count == 1)
{
print "<A HREF=\"$fullname\">\n";
print "<IMG SRC=\"$fullname\" height=300 align=center>\ \n";
print "</A> \n";
$count ++;
}
else
{
print "<A HREF=\"$fullname\">\n";
print "<IMG SRC=\"$fullname\" height=300 align=center>\ \n";
print "</A> \n";
print "<HR WIDTH=\"100%\">\n";
$count=1;
}
}
$i++
}
print "</CENTER>\n";
print "</body>\n";
print "</html>\n";
exit;
|
