При создании скриптом странички на ней не отображаются картики=(
Система - Фряха 4.7, сервер - апач (последний).
Структура папок на сервере апач - папка cgi-bin, в ней подпапка - akursy и в папке akursy находятся скрипты(в том числе и скрипт снизу). В папке akursy есть подпапка 1 - в ней текстовые файлы и картики. То есть скрипт просто выводит в окно броузера содержимое тектсовых файлов и картики.
сам скрипт:
#!/usr/bin/perl -wT
use strict;
use CGI ':standard';
my $nams;
$nams = param('nam');
my $fams;
$fams = param('fam');
my $ots;
$ots = param('ot');
my $radiobuttons;
$radiobuttons = param('radiobutton');
my $bilet;
my $num=1;
my $textbil;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime;
my $loctime=$sec.$min.$hour;
if ($radiobuttons=='115') {$bilet="случайный из первых 15"}
elsif ($radiobuttons=='116') {$bilet="случайный из 16 и 30"}
elsif ($radiobuttons=='117') {$bilet="случайный из 31 и 40"}
elsif ($radiobuttons=='118') {$bilet="случайный из всех"} else {$bilet=$radiobuttons};
open (BIL, " $bilet/1.txt");
open (VOPR, " $bilet/1o.txt");
print "Content-type: text/html\n\n";
print "<html> \n";
print "<head> \n";
print "<title> $fams $nams $ots Билет $bilet</title> \n";
print '<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><link rel="stylesheet" href="all.css">';
print '<style type="text/css"><!-- input { font: 8pt Verdana, Arial, Helvetica, sans-serif; border-left: #ff6666 1px solid; border-right: #ff6666 1px solid; border-top: #ff6666 1px solid; border-bottom: #ff6666 1px solid; background: #FFFFFF} --> </style>';
print "</head> \n";
print '<body>';
print '<form action=';
print '"vopros.cgi'.'?file='."$loctime".'&fam='."$fams".'&nam='."$nams".'&ot='."$ots".'&bilet='."$bilet".'"';
print ' method=post>';
print '<table width="100%" border="0"> <tr align="center" valign="top">';
print "\n";
print '<td><font size="4">';
print "Вопрос № 1 \n";
print '</font></td>';
print '<tr align="center" valign="top"><td> ';
while (<BIL>) {
print "<b> $_ \n </b>"};
print "</td></tr>";
print '<tr align="center" valign="top"> ';
print '<td><font size="1">';
[b]print '<img src="1/10pic.jpg">';[/b]
print "</font></td></tr>";
print '<tr align="left" valign="middle"><td><font size="3">';
while (<VOPR>) {
print '<input type="radio" name="quest" value="';
print "$num".'">';
print " $_ \n";
print "<br>";
$num++;}
print "</font></td> \n";
print '<tr align="center" valign="top"><td><font size="2">';
print '<a href="next.pl">';
print '<input type="submit" name="Submit" value="Submit" class="textf">';
print "</a></font></td></tr></table>";
print "</form> \n";
print "</body> \n";
print "</html> \n";
close (BIL);
close (VOPR);
место где пишу про картинку выделено=)
Картика при выводе в броузер - не показывается(крестик на картинке=)) адрес показывается правильно (когда говорю показать свойства картики)... Картинки реально присутствуют в папке 1....
Помогите - в чем проблема????
Никак не могу найти ошибку.
С уважением z3f.
|
Вариант для распечатки
WEB технологии (Public)
on
05-Янв-04, 17:16 (MSK)
