 |
|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Ivan Frolcov 2:5020/175.2 11 Mar 2004 12:55:35 To : Alexander E.Kononenko Subject : Re: динамически созданные .png отдать надо -------------------------------------------------------------------------------- Thu Mar 11 2004 11:00, Alexander E.Kononenko wrote to Daniil Uspensky: AEK> Лично я делаю по-такому принципу: AEK> - Hапример беру картинку из oracle (blob) AEK> - Закидываю в темп файл AEK> - Генерю html страницу с использованием картинки AEK> - После генерации html удаляю темп-файл. Вот злонравия достойные плоды! AEK> Код: AEK> #!/usr/bin/perl AEK> use DBD::Oracle; Ы? AEK> use CGI qw(:all); AEK> use strict; AEK> my ($sth,$Query,@Row); AEK> my $dbh=DBI->connect("dbi:Oracle:$DBNAME","$DBUSER","$DBPASSWD"); Кавычки в случае "$DBUSER" и "$DBPASSWD" - это что, как граната - неотъемлимая часть чеченского национального костюма? Кстати, а откуда DBI взялся? $dbh->> {LongReadLen} = 10000000; AEK> $Query="SELECT logo FROM firm WHERE firm=doc\$all.getcurrentfirm"; AEK> $sth=$dbh->prepare($Query); $sth->> execute; AEK> @Row=$sth->fetchrow_array; AEK> my @logo=$Row[0]; $sth->> finish; Секс вприсядку в гамаке. А ведь все от лени-матушки. Hу куда как проще: $pic = $dbh->selectrow_array('select logo from firm where firm=doc$all.getcurrentfirm'); AEK> open (FILE, "> /u04/neo/apache/htdocs/il_logo_temp.jpg"); AEK> print FILE "@logo"; AEK> close (FILE); AEK> print "Content-Type : text/html; charset=koi8-r\n\n"; AEK> print <<M1; <html>> <body>> AEK> <img src=/il_logo_temp.jpg width="300" heigth="200"> </body>> </html>> AEK> M1 $dbh->> disconnect; AEK> system ("rm -rf /u04/neo/apache/htdocs/il_logo_temp.jpg"); "...ахнула и взорвалась... и из обломков мотоцикла в следующий запойный период устроил стационарный двигатель, который был очень похож на настоящий, но не работал." 1. Кто тебе сказал, что твоя временная файла доживет до запроса ее клиентом? 2. Если лого у тебя одно - то почему бы его не положить статически, а если несколько разных (оставим пока в стороне тот вопрос, что ты вообще все неправильно делаешь) - то почему они у тебя живут под одним именем? --- ifmail v.2.15dev5 * Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2) Вернуться к списку тем, сортированных по: Архивное /ru.cgi.perl/3300140a61c6.html, оценка из 5, голосов 10
|
|
|