Kan ikke sætte bredden.
Hej.Jeg har dette lille script som jeg er ved at lave om på og jeg kan ikke få det til at komme ud med sit resultat i en bredde på 150 pix.
Det giver et lidt åndsvagt resultat, når det præsenteres på min side : http://www.rejsebeskrivelser.dk
Hvad er der galt og hvordan får jeg det til det ?
Her er scriptet :
#!/usr/bin/perl
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, \"$1\");
($0 =~ m,(.*)\\\\[^\\\\]+,) && unshift (@INC, \"$1\");
require \"admin/links.cfg\";
require \"$db_lib_path/db_utils.pl\";
require \"$db_lib_path/links.def\";
};
if ($@) {
print \"Content-type: text/plain\\n\\n\";
print $@;
exit;
}
&main;
sub main {
my @data = `tail -$max_new $db_links_name`;
my $i = 0;
print \"Content-type: text/html\\n\\n\";
print \"<table>\";
foreach (@data) {
chomp;
split /\\|/;
print qq|<tr width=\"100%\"><body bgcolor=\"#EEEEEE\" link=\"#0000FF\" vlink=\"#0000FF\" alink=\"#0000FF\"><td width=\"150\" onmouseover=\"this.style.backgroundColor=\'#EEEBCB\'\" onmouseout=\"this.style.backgroundColor=\'white\'\" bgColor=\"#ffffff\"><a style =\"text-decoration: none\" href=\"$_[$db_url]\" target=\"_blank\"><body bgcolor=\"#FFE796\">$_[$db_title]</a></td></tr>|;
}
print \"</table>\";
}
