cgi-dev

commit 696dd3b60260ed72eabc0d35d053e0ea9b7905b1
parent 7dada15b807369c909503a2500424b5dc1d239e8
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Fri, 18 Feb 2022 02:50:28 +0000

cleanup comments

Diffstat:
M
guess_number.cgi
 | 
8
--------

1 file changed, 0 insertions(+), 8 deletions(-)
diff --git a/guess_number.cgi b/guess_number.cgi
@@ -8,7 +8,6 @@ use constant TRIES => 5;
 my $game = CGI->new;
 
 # state maintenance subroutines
-
 sub get_state {
     return undef unless $game->param();
     my $state = {};
@@ -41,7 +40,6 @@ sub save_state {
 }
 
 # game play logic
-
 sub process_guess {
     my ( $guess, $state ) = @_;
 
@@ -91,7 +89,6 @@ sub process_guess {
 }
 
 # html generation subroutines
-
 sub print_header {
     print $game->header(
         -type       => "text/html",
@@ -119,10 +116,6 @@ sub print_status {
                 $game->td( "Numbers Guessed: ", $state->{GUESSED} )
             )
         );
-#    print $game->p( "Game #: ",          $state->{GAMENO} );
-#    print $game->p( "Wins: ",            $state->{WON} );
-#    print $game->p( "Guesses Left: ",    $state->{GUESSES_LEFT} );
-#    print $game->p( "Numbers Guessed: ", $state->{GUESSED} );
     print $game->h2( $game->font( {-color => 'red'}, $message ))
         if $message;
 }
@@ -168,7 +161,6 @@ sub print_footer {
 }
 
 # begin main program
-
 # retrieve current state
 my $state = get_state();