commit f388415bc93a5d48563903b5bbc3dd3c3ccabf77
parent 663127de306e090d7135cf7c7389fe8439eb7a26
Author: Samir Parikh <noreply@samirparikh.com>
Date: Sat, 19 Feb 2022 16:00:33 +0000
update html table formatting
Diffstat:
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/guess_number.cgi b/guess_number.cgi
@@ -110,12 +110,12 @@ sub print_status {
print
$game->table( { -border=>"0", -width=>"50%" },
$game->Tr(
- $game->td( "Game #: ", $state->{GAMENO} ),
- $game->td( "Wins: ", $state->{WON} )
+ $game->td( $game->b("Game #: "), $state->{GAMENO} ),
+ $game->td( $game->b("Wins: "), $state->{WON} )
),
$game->Tr(
- $game->td( "Guesses Left: ", $state->{GUESSES_LEFT} ),
- $game->td( "Numbers Guessed: ", $state->{GUESSED} )
+ $game->td( $game->b("Guesses Left: "), $state->{GUESSES_LEFT} ),
+ $game->td( $game->b("Numbers Guessed: "), $state->{GUESSED} )
)
);
print $game->h2( $game->font( {-color => 'red'}, $message ))
@@ -154,9 +154,11 @@ sub show_guess_form {
sub print_footer {
print $game->hr;
print $game->p(
- #{ -style => "fontsize: 10pt" },
'inspired by Hangman game from ',
- 'Writing Apache Modules with Perl and C',
+ $game->a(
+ { -href => "https://www.oreilly.com/library/view/writing-apache-modules/156592567X/"},
+ $game->i( 'Writing Apache Modules with Perl and C')
+ ),
' by Lincoln Stein and Doug MacEachern.'
);
print $game->end_html();