# $Id$ # Main page of 'My::Project::Nokia61' # Copyright (C) 2003-2005 Jan Kratochvil # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; exactly version 2 of June 1991 is required # # 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. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA package project::Nokia61::Index; require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; }; our $CVS_ID=q$Id$; use strict; use warnings; use My::Web; Wuse 'project::Lib'; our @ListItem=( "name"=>"Rotation", "platform"=>"web", "priority"=>480, "icon"=>"Nokia61-icon.jpeg", "download"=>"Nokia61.c", "summary"=>"Nokia logical game "Rotation" solver", "license"=>"PD", "maintenance"=>"ready", "language"=>"C, PHP", "description"=><<"HERE",

At least Nokia 3210 offers game Rotation, this little software will tell you the optimal solution steps for the given game board situation. The goal is to get board with 1 2 3, 4 5 6, 7 8 9, in rows.

HERE ); sub handler { project::Lib->init(); My::Web->make_file(path_abs_disk("Nokia61")); # FIXME: # # What was the reason? Currently it hides the whole in: # Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.7.10) Gecko/20050719 Galeon/1.3.21 print <<"HERE";

@{[ a_href 'Nokia61.php?base=.%2F','Program on-line.' ]}

@{[ img 'Nokia61.jpeg','Illustration' ]}
HERE exit; } 1;