On Tuesday, August 13, 2002, at 01:19 , Jimmy George wrote:
[..]
> #
> print $q->header("text/html"),
> $q->start_html("Environment check"),
> $q->server_name,
> $q->server_port,
> $q->server_protocol,
> $q->end_html;
>
> but how do we put \n's into it for a better display on the screen??
[..]
if you find it useful for 'html inspection' then you may want to
'hand crafting' some of this....
what I use is a 'build the page' model....
my $page = .....
$page .= "<hr>\n";
my @tableRows = ();
foreach $token (@listsOfTokens) {
@tableRows = ();
my %foundHash = get_players($token);
$page .= "<p align=center>$token Not found</p><hr><br>\n"
unless(%foundHash);
while ( my ($key, $val) = each %foundHash ) {
# $key is the listname
my $tableMsg = " = $token found in $key =";
while ( my ($k,$v) = each %{$val} ) {
push(@tableRows , td([$k , $v]));
}
$page .= table({-align=>'center', -width=>'60%'},
Tr({-valign=>TOP},
[
th({-align=>'center', -colspan=>2 }, $tableMsg)
,
@tableRows
]
)
); # right - the end of the table function call....
$page .= '<br><hr align="center" width="50%"><br>';
$pag .= "\n";
@tableRows = ();
} # end while we scope which lists this $oken is in
} # end forEach list to grovel
and then have some
$page .= end_html;
print header, $page ;
but as felix rightly noted, those "\n" will be stripped
out by the browser....
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
