#!/usr/bin/perl -w # Mr Hang Thang # Assignment 3, CS 191T, CSU Fresno, Fall 1998 # Robert G. Werner # $Id: mrhangthang.cgi,v 1.1 2003/05/31 07:43:36 robertw Exp robertw $ # $Revision: 1.1 $ # $State: Exp $ $words_path = "/usr/share/dict/words"; use CGI; $query = new CGI; if ($query->param("frame")) { if ($query->param("frame") eq "game") { &game_window; } elsif ($query->param("frame") eq "hang") { &hang_window; } } else { &frame_set; die; } # print the frame set dfn. sub frame_set { print $query->header; print "Mr. Hang Thang\n"; print "\n"; print "\t\n"; print "\t\n"; print "\t\n"; print "Sorry, but I had to write this page using JavaScript and frames. Please visit my home page for an HTML compliant page!.\n"; print "\t\n"; print "\n"; print $query->end_html; } sub print_head { print $query->header; print $query->start_html(-title=>@_, -author=>'robert@inreachtech.net', -bgcolor=>'#ffffff', -TEXT=>'#000000', -LINK=>'#000099', -VLINK=>'#663333'); print "\n"; } sub game_window { open (WORDS, $words_path); @words_list = ; close (WORDS); $index = int(rand(@words_list)); $word = $words_list[$index]; chomp($word); @word_array = split(//, $word); &print_head("Game Window"); print "\n"; print "

Want to play a game?

\n"; print "

\n"; print "

"; print <Remember Mr. Hang Thang's life depends on it. Simply select a letter from the menu and keep going unil you free Mr. Hang Thang or he meets his undeserved fate. Hit the "New Game" button if this word looks too hard but the next one might be harder. END print "

\n"; print $query->startform(-name=>"display", -method=>"post", -target=>"_top", -action=>"mrhangthang.cgi"); print "

\n"; print "\n"; $len = @word_array; for ($i = 0 ; $i < $len ; $i++) { print "
"; print $query->textfield(-name=>"field$i", -size=>"1", -value=>"", -onFocus=>"this.blur()"),"\n"; } print "
\n"; print "

\n"; print $query->popup_menu(-name=>"letter", -"values"=>["Choose a letter",A..Z], -onChange=>"guess_handler(this)"),"\n"; print "

\n"; print $query->submit(-name=>"New_game", -value=>"New Game?"),"\n"; print $query->endform , "\n"; print "

\nIf you liked this game, please send me mail at: robert\@inreachtech.net\n

\n"; print "Copyright Robert G. Werner, 1998\n"; print $query->end_html; } sub hang_window { &print_head("Hang Window"); print "

Ready for a hangin'?!!
\n"; print $query->end_html; }