# $Id$
# Main page of 'My::Project::hotelgate'
# Copyright (C) 2005 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
# 
# 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 product::hotelgate::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;


our @ListItem=(
		"name"=>"HotelGate",
		"priority"=>80,
		"icon"=>"Admin-Login-icon.jpeg",
		"summary"=>"Internet Public Access Gateway",
		"description"=><<"HERE",
<p>User-friendly Internet access gateway providing separate rooms / areas
access control with a single central administration point.</p>
HERE
		);

sub handler
{
Wrequire 'product::hotelgate::Lib';
my $W=product::hotelgate::Lib->init();

my $ListItem=product::Lib->name_to_hashref("hotelgate");


print <<"HERE";
<h1>@{[ product::Lib->title($ListItem) ]}</h1>
HERE

print rightimg <<"HERE","./rack-1u.jpeg","Rack mountable 1U cased";
<p>Unique feature of this product is its control of Internet access for each
individual network segment connected through remotely located switches. One
example of such feature is its utilization for enabling/disabling Internet
specifically in each room of your hotel. No need to complicate the clients'
access by the usual tickets. Still even the ticketed access is provided.</p>
HERE

print <<"HERE";
<h2>Features List</h2>

<p>(@{[ a_href 'Spec.pm#feature','see more' ]} with descriptions included)</p>
<ul>
HERE
Wrequire 'product::hotelgate::Spec';
my @features_local=@product::hotelgate::Spec::Features;
while (@features_local) {
	my $key=shift @features_local;
	my $val=shift @features_local;
	print <<"HERE";
	<li>$key</li>
HERE
	}
print <<"HERE";
</ul>


HERE

sub hotel_href($)
{
my($content)=@_;

	return a_href_cc {""=>'http://www.hotelsevendays.com/',
	                "CZ"=>'http://www.hotelsevendays.cz/',
	                "RU"=>'http://www.hotelsevendays.ru/'},$content;
}

print rightimg <<"HERE",hotel_href(img 'hotelsevendays.jpeg','Hotel Seven Days photo');
<h2>Pilot Deployment</h2>
<p>The initial pilot deployment of this gateway is running since 2004 in
@{[ hotel_href 'Hotel Seven Days' ]}.</p>
HERE


exit;
}
1;