perl + html + IE/Konqueror/Opera/etc...

[Skif]

Сейчас мучаюсь с одним сайтиком, и имею кучу проблем. движок к нему я написал, а вот дизайн... Дизайн в принципе то же готов, но вот его отображение желает лучшего. Конечно заказчику я его пихну, но как-то не хорошо недоделку отдавать...
Пояснюсь на сайте имеются в табличках рисунки. Под IE все отображается вполне корректно, а вот если я смотрю из под фри, где собственно и разрабатываю все это - тут облом.. Все рисунки смещаются, под каждым появляется зазор на 3-4 пикселя.... В общем не красиво...

Вот пример как сие все может выглядеть в скрипте:

http://owe.united.net.ua/cgi-bin/home/index.pl

Если перенаправить вывод скрипта в файл(test.html) - то все просто песня отображается. Как доктор прописал. Под любым браузером.

http://owe.united.net.ua/testin.html

Листал, статейку
http://www.webscript.ru/stories/05/02/25/0767747
Может конечно и выход, но тут-то в основном  просто таблицы и рисунки... Да прыжки по страничкам... с генерацией скриптов... и прочей отнюдь не сложной фигней...

[commander]

Skif
причем здесь Perl? для изучения html есть соответствующих форум...

[Skif]

С html все чудно, проблема именно когда отрабатывается перловый скрипт.

[Skif]

Вот скриншот как у меня при конкваере именно скрипт отображается
http://owe.united.net.ua/image/home/konq_site.jpg
если просто в html перевести - то все просто песня. Проблема имеено при генерации скриптом...
Хотя ничего такого екстраординарного я не использую.

[commander]

Skif
perldoc HTML::Template

[Skif]

немного не врублюсь в модуль.
Он создает временный файл и потом перенаправляет пользователя на оный?

[commander]

Skif
это стандартный шаблонизатор...

[Skif]

тогда такой вопрос, я вот полистал содержимое модуля и вижу такую фигню:
сначала идет то, что относиться к HTML::Template, тут все нормально, забивается то что мне нужно, радуюсь жизни, потом:

print "Content-Type: text/html\\n\\n", $template->output;

то есть содержимое всего мною забитое, как я понимаю вся моя страничка, на экран. А не получу ли я обратно тоже самое?

[commander]

Skif
HTML::Template просто удобный шаблонизатор, который позволяет отделить програмную чать от html кода... используя его ты получаешь большие приемущества и с дебажить html код, будет гораздо удобнее...

[Skif]

Ну, тут понимаешь ли проблема не в самом html - он как гриться безупречен Если вывод переправить в html файл - то тот чудно откроется под любым браузером и поля все будут в ажуре, а вот если перловым скриптом - то тогда только IE..
Ничего особо глобального я не использую. Обычные таблицы, рисунки, кнопочки. CSS минимум, да тут на моем примере его вообще нету.

[Skif]

Кстати, ничего мне такого глобального шаблон не дал. Те же пироги только в профиль - я использую свой модуль, только несколько с другими пряниками...

ЗЫ: результат тот же.

[commander]

Skif
оххх... код в студию...

[NeoNox]

Skif у меня в фаерфоксе эти две ссылки выглядят совершенно одинаково, в то-же время в ИЕ - совершенно иначе.
http://owe.united.net.ua/cgi-bin/home/index.pl
http://owe.united.net.ua/testin.html

[Skif]

Я по логам смотрел - из под винды лазили
А вот из под линуха/фри?
тестил на опере, конкваероре,и мозиле... думаю фаерфокс тоже не далеко убежал...

[Skif]

Во!, объединил в единое целое.


#!/usr/bin/perl -w

use strict;
use CGI qw/:standard/;
use CGI::Carp qw (fatalsToBrowser);
#use CGI;
use DBI;
use CGI::Session;

my $cgi = new CGI;
my $headpage="Skif home page";

print $cgi->header(-expires=>\'no cache\', -charset=>\'koi8-r\');
print $cgi->start_html(-title=>$headpage, -bgcolor=>\'5a66b2\',-leftmargin=>\'0\', -topmargin=>\'0\', -marginwidth=>\'0\', -marginheight=>\'0\',text=>\'lightgrey\');


#3b4eae
print "<table cellspacing=0 cellpadding=0 border=0 width=800 height=100 align=center bgcolor=white leftMargin=0><tbody>";

print "<tr valign=top> ";

print "<td>";

#print "<img src=/image/home/head.jpg height=100 width=800";

&main_head_table;

print "</td>";

print "</tr>";

print "<tr valign=top>"; 

print "<td>\\n";

print "<table cellspacing=0 cellpadding=0 border=0 width=100% align=center height=100% bgcolor=3b4eae leftMargin=0 background=/image/home/bg_tb.jpg><tbody>";

print "<tr valign=top> ";

print "<td width=164 background=/image/home/button_body_bg.jpg>";

&left_field_table;

print "</td>";

print "<td width=636>";

&sub_text_body;

print "</td>"; 

print "</tr>";

print "</tbody></table>";

#print "<img src=\\"/image/home/button.jpg\\" width=100% border=0 alt=\\"\\">";#164 235

print "</td>";

print "</tr>";
print "</tbody></table>";
#################################################
#&table_down;

print $cgi->end_html;

sub main_head_table {

print "<table cellspacing=0 cellpadding=0 border=0 width=800 align=center bgcolor=ffffff leftMargin=0><tbody>";

print "<tr valign=top align=left>";

print "<td bgcolor=green height=100><img src=/image/home/head_left.jpg height=100></td>";

print "<td height=100><img src=/image/home/head_center.jpg  height=100></td>";

#print "<td height=100><img src=/image/home/head_right_lang.jpg  height=100></td>";

print "<td height=100>";

&button_head_right;

print "</td>";

print "</tr>";

print "</tbody></table>";

}

sub main_head_lang {
print "<table cellspacing=0 cellpadding=0 border=0 align=center bgcolor=ffffff leftMargin=0>\\n";

print "<tr valign=top>";

print "<td>";

print "<img src=/image/home/head_right_top_ukr.jpg>";

print "</td>";

print "<td>";

print "<img src=/image/home/head_right_top_rus.jpg>";

print "</td>";

print "<td>";

print "<img src=/image/home/head_right_top_eng.jpg>";

print "</td>";

print "</tr>";
print "</table>";
}

sub main_head_button {
print "<table cellspacing=0 cellpadding=0 border=0 align=center bgcolor=ffffff leftMargin=0>";

print "<tr valign=top>";

print "<td>";

print "<img src=/image/home/head_pust_.jpg>"; #width=65

print "</td>";

print "<td>";

print "<img src=/image/home/head_lang_.jpg>";# width=29>";

print "</td>";

print "</tr>";
print "</table>";
}

sub left_field_table {

print "<table cellspacing=0 cellpadding=0 border=0 width=164 align=center bgcolor=3b4eae leftMargin=0 background=/image/home/button_body_bg.jpg>";

print "<tr valign=top>";

print  "<td>";

print  "<img src=/image/home/button_head_eng.jpg>"; # width=164

print  "</td>";

print "</tr>";

print "<tr valign=top>";

print  "<td>";

print  "<img src=/image/home/button_body.jpg>"; # width=164

print  "</td>";

print "</tr>";
print "</table>";

}

sub button_head_right {
print "<table cellspacing=0 cellpadding=0 border=0 width=100% align=center bgcolor=ffffff leftMargin=0><tbody>";

print "<tr valign=top align=left>";

print "<td bgcolor=blue>";

#print  "<img src=/image/home/head_right_top.jpg height=18></td>";

&main_head_lang;

print "</td>";

print "</tr>";

print "<tr valign=top align=left>";

print "<td bgcolor=blue>";

print  "<img src=/image/home/head_right_center.jpg>";

print "</td>";

print "</tr>";

print "<tr valign=top align=left>";

print "<td bgcolor=blue>";

print "<table cellspacing=0 cellpadding=0 border=0 align=center bgcolor=ffffff leftMargin=0><tbody>";

print "<tr valign=top align=left>";

print "<td bgcolor=blue>";

print  "<img src=/image/home/head_right_down_left.jpg>";

print "</td>";

print "<td bgcolor=blue>";

#print  "<img src=/image/home/head_right_down_right.jpg>";

&button_head_own;

print "</td>";

print "</tr>";

print "</tbody></table>";

print "</td>";

print "</tr>";

print "</tbody></table>";

}

sub button_head_own {
print "<table cellspacing=0 cellpadding=0 border=0 width=100% align=center bgcolor=ffffff leftMargin=0><tbody>";

print "<tr valign=top align=left>";

print start_form(-method=>"post",-action=>\'resume.pl\');

print "<td bgcolor=blue>";

print "<input type=image src=/image/home/head_right_down_right_res.jpg>";

#print "<input type=hidden value=$sid name=sess>";

#print "<input type=hidden value=\\"$i-$mess_count\\" name=mess_id>";

#print  "<img src=/image/home/head_right_down_right_res.jpg>";

print "</td>";

print end_form;

print "</tr>";

print "<tr valign=top align=left>";

print start_form(-method=>"post",-action=>\'resume.pl\');

print "<td bgcolor=blue>";

print "<input type=image src=/image/home/head_right_down_right_home.jpg>";

print "</td>";

print end_form;

print "</tr>";

print "<tr valign=top align=left>";

print start_form(-method=>"post",-action=>\'resume.pl\');

print "<td bgcolor=blue>";

print "<input type=image src=/image/home/head_right_down_right_mail.jpg>";

print "</td>";

print end_form;

print "</tr>";

print "</tbody></table>";
}

sub sub_text_body {
print "sadfsdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>sdfsdfs<p>";

}
exit(0);