#!/usr/local/bin/perl # version 2.021016, coded by MrRat - http://www.mrrat.com, GPL licensed - http://www.opensource.org/licenses/gpl-license.html # you can make a donation at http://s1.amazon.com/exec/varzea/pay/T3M26803DZOCMK # This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. # # Check the perl line at the top and make sure it points to the proper location. # Place this cgi in your cgi-bin directory and make it executable (chmod 755). # display games from Freewebgames.com? $display_freewebgames = "yes"; # display games from Kewlbox.com? $display_kewlbox = "yes"; # # don't monkey with anything below here unless you know PERL %freeweb_games = ( "Crate Man Jr." => [qq| ]; print "Content-type: text/html\n", "Content-Length: ", length($page), "\n\n"; print $page; sub get_url_input { if ($ENV{'QUERY_STRING'}) { for $form_pair (split(/&/, $ENV{QUERY_STRING})) { $form_pair =~ /^([!:%+=-\@\w. ]+)$/; $form_pair = $1; $form_pair =~ s/%20/ /g; ($form_name, $form_value) = split(/=/, $form_pair); if ($form_name eq $form_value) { $form_value = ""; } $FORM{$form_name} = $form_value; } } }