product/hotelgate/Index.pm

   1 # $Id$
   2 # Main page of 'My::Project::hotelgate'
   3 # Copyright (C) 2005 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
   4 #
   5 # This program is free software; you can redistribute it and/or modify
   6 # it under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; exactly version 2 of June 1991 is required
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program; if not, write to the Free Software
  16 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  17
  18
  19 package product::hotelgate::Index;
  20 require 5.6.0;  # at least 'use warnings;' but we need some 5.6.0+ modules anyway
  21 our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
  22 our $CVS_ID=q$Id$;
  23 use strict;
  24 use warnings;
  25
  26 use My::Web;
  27
  28
  29 our @ListItem=(
  30                 "name"=>"HotelGate",
  31                 "priority"=>80,
  32                 "icon"=>"Admin-Login-icon.jpeg",
  33                 "summary"=>"Internet Public Access Gateway",
  34                 "description"=><<"HERE",
  35 <p><b>This product is no longer maintained.</b></p>
  36 <p>User-friendly Internet access gateway providing separate rooms / areas
  37 access control with a single central administration point.</p>
  38 HERE
  39                 );
  40
  41 sub handler
  42 {
  43 Wrequire 'product::hotelgate::Lib';
  44 my $W=product::hotelgate::Lib->init();
  45
  46 my $ListItem=product::Lib->name_to_hashref("hotelgate");
  47
  48
  49 print <<"HERE";
  50 <h1>@{[ product::Lib->title($ListItem) ]}</h1>
  51
  52 <p><b>This product is no longer maintained.</b></p>
  53 HERE
  54
  55 print rightimg <<"HERE","./rack-1u.jpeg","Rack mountable 1U cased";
  56 <p>Unique feature of this product is its control of Internet access for each
  57 individual network segment connected through remotely located switches. One
  58 example of such feature is its utilization for enabling/disabling Internet
  59 specifically in each room of your hotel. No need to complicate the clients'
  60 access by the usual tickets. Still even the ticketed access is provided.</p>
  61 HERE
  62
  63 print <<"HERE";
  64 <h2>Features List</h2>
  65
  66 <p>(@{[ a_href 'Spec.pm#feature','see more' ]} with descriptions included)</p>
  67 <ul>
  68 HERE
  69 Wrequire 'product::hotelgate::Spec';
  70 my @features_local=@product::hotelgate::Spec::Features;
  71 while (@features_local) {
  72         my $key=shift @features_local;
  73         my $val=shift @features_local;
  74         print <<"HERE";
  75         <li>$key</li>
  76 HERE
  77         }
  78 print <<"HERE";
  79 </ul>
  80
  81
  82 HERE
  83
  84
  85 exit;
  86 }
  87 1;