Posted By: RoboShim (ICQ #: 166 703 40) on 'CZscripts'
Title: Re: GD, GIF, PERL....problem
Date: Thu Dec 17 09:37:14 1998
> HTTP/1.0 200 OK
*** Tohle snad posila sam server, to tam snad nema bejt, ne?? Kdyz jsem to dal
pryc, tak to zacalo z netscapa vypisovat hlaseni o ulozeni dat do nejakyho
souboru. Tak jsem zkopiroval ten &dispaly_time("end"); pred tu prvni podminku
if ($browser =~ m#^... a potom jeste se mi zda, ze jsi zapomnel opsat v
posledni podmince v tej funkci dispaly_time() jednu radku
Povodni zneni:
if ($status eq "end") {
$color = $image->colorAllocate (0,0,255);
$image->transparent ($black);
} else {
$color = $image->colorAllocate (255,0,0);
$image->string (gdLargeFont, 0, 0, $time, $color);
print $image->gif;
}
Nove zneni (co jsem pridal je oznaceno minusama):
if ($status eq "end") {
$color = $image->colorAllocate (0,0,255);
$image->transparent ($black);
--------------- print $image->gif; --------------------------------
} else {
$color = $image->colorAllocate (255,0,0);
$image->string (gdLargeFont, 0, 0, $time, $color);
print $image->gif;
}
Pak uz to neco vyhazuje, ale ne hodiny ;-)
Ja osobne jsem s GD jeste nepracoval, takze vic nevim.
Cau.
RoboShim.