From: lace <> Date: Sun, 23 Dec 2007 11:11:05 +0000 (+0000) Subject: Commercial products have been discontinued. X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=1ebd44d948f63e0f6d5d005bb5ced02c5041414e;ds=sidebyside Commercial products have been discontinued. --- diff --git a/product/hotelgate/Index.pm b/product/hotelgate/Index.pm index 7a772ce..041bc5f 100644 --- a/product/hotelgate/Index.pm +++ b/product/hotelgate/Index.pm @@ -32,6 +32,7 @@ our @ListItem=( "icon"=>"Admin-Login-icon.jpeg", "summary"=>"Internet Public Access Gateway", "description"=><<"HERE", +

This product is no longer maintained.

User-friendly Internet access gateway providing separate rooms / areas access control with a single central administration point.

HERE @@ -47,6 +48,8 @@ my $ListItem=product::Lib->name_to_hashref("hotelgate"); print <<"HERE";

@{[ product::Lib->title($ListItem) ]}

+ +

This product is no longer maintained.

HERE print rightimg <<"HERE","./rack-1u.jpeg","Rack mountable 1U cased"; @@ -78,21 +81,6 @@ print <<"HERE"; 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'); -

Pilot Deployment

-

The initial pilot deployment of this gateway is running since 2004 in -@{[ hotel_href 'Hotel Seven Days' ]}.

-HERE - exit; } diff --git a/product/hotelgate/Lib.pm b/product/hotelgate/Lib.pm index 552217b..af72a5d 100644 --- a/product/hotelgate/Lib.pm +++ b/product/hotelgate/Lib.pm @@ -56,7 +56,6 @@ my($class,%args)=@_; "Case"=>"Deployment", "Screenshot"=>"Screenshots", "Spec"=>"Specification", - "Order"=>"Order", ); while (@sections) { my $section_path=shift @sections; diff --git a/product/hotelgate/Makefile.am b/product/hotelgate/Makefile.am index 8a2499a..f6e8d3d 100644 --- a/product/hotelgate/Makefile.am +++ b/product/hotelgate/Makefile.am @@ -26,17 +26,12 @@ EXTRA_DIST+= \ cafe.svg \ rooms.svg \ Lib.pm \ - Order.css \ - Order.js \ - rack-1u.jpeg \ - hotelsevendays.jpeg + rack-1u.jpeg MODPERL_PM+= \ Index.pm \ Case.pm \ Spec.pm \ - Order.pm \ - OrderSubmit.pm \ Screenshot.pm full_svg_DPI=30 diff --git a/product/hotelgate/Order.css b/product/hotelgate/Order.css deleted file mode 100644 index d877fb9..0000000 --- a/product/hotelgate/Order.css +++ /dev/null @@ -1,21 +0,0 @@ -/* $Id$ - * CSS of HotelGate ordering - * Copyright (C) 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 - */ - - -.order[-lace-inherit="margin-center"] {} -table.order td { padding: 5px; } diff --git a/product/hotelgate/Order.js b/product/hotelgate/Order.js deleted file mode 100644 index f0e0e93..0000000 --- a/product/hotelgate/Order.js +++ /dev/null @@ -1,70 +0,0 @@ -/* $Id$ - * HotelGate Order helper. - * Copyright (C) 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 - */ - - -// Double-run protection due to the My::Web "text/javascript" compatibility hack. -if (!window.var_product_hotelgate_Order_done) { - var var_product_hotelgate_Order_done=1; - -function Order_validate(form) -{ - var e_types_array=form.elements["type"]; - var checked=0; - for (var typei=0;typei -# -# 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::Order; -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; -use Hash::Util qw(lock_hash); - - -my %error=( - "email_missing"=>"Your e-mail address is required, please fill it in.", - "type_missing"=>"Please fill in the {Device casing type} field.", - "ok"=>"Order has been accepted. Please wait to be contacted.", - ); -lock_hash(%error); -sub error($$) -{ -my($self,$keyword)=@_; - - my $trash=$error{$keyword}; # existence check; - return $keyword; -} - -sub handler -{ -Wrequire 'product::hotelgate::Lib'; -my $W=product::hotelgate::Lib->init( - "title"=>"HotelGate: Order Form", - "css_push"=>"./Order.css", - "js_push"=>"./Order.js", - ); - - -my $COLS=50; - -print <<"HERE"; -

HotelGate Order

- -

Price offer will be provided according to your order specification. -You may also contact us directly at the e-mail address: -@{[ a_href 'mailto:hotelgate@jankratochvil.net' ]}

-HERE - -if (my $error=$W->{"args"}{"error"}) { - print <<"HERE"; -

@{[ $error{$error} ]}

-HERE - } - -print <<"HERE"; -
- - - - - - - - - -
- Your e-mail contact address (required). -
- -
- Contact person, shipping address. -
- -
- Installation location - leave empty if you install the device on your own.
- European facility installations provided by @{[ a_href 'http://www.jklabs.cz/','JK Labs' ]}. -
- -
- Device casing type and available ports: -HERE - -for ( - { "case"=>"1U","internal"=>1 }, - { "case"=>"4U","internal"=>1 }, - { "case"=>"4U","internal"=>2 }, - { "case"=>"4U","internal"=>3 }, - { "case"=>"4U","internal"=>4 }, - ) { - print <<"HERE"; -
- {"internal"} ]}" - @{[ ($W->{"args"}{"type"}||"") ne $_->{"case"} ? '' : 'checked="checked"' ]} - /> - Rack mountable @{[ $_->{"case"} ]}; ethernet ports: 1 external + @{[ $_->{"internal"} ]} internal -HERE - } - -print <<"HERE"; -
- Required internal network port(s).
- Please specify any WiFi 802.11b or 802.11g access points to bundle with. -
- -
- Available type of the uplink (public Internet) connection: -
- -
- Additional notes: -
- -
-
-HERE - - -exit; -} -1; diff --git a/product/hotelgate/OrderSubmit.pm b/product/hotelgate/OrderSubmit.pm deleted file mode 100644 index f68908e..0000000 --- a/product/hotelgate/OrderSubmit.pm +++ /dev/null @@ -1,102 +0,0 @@ -# $Id$ -# Ordering form processor of 'My::Project::hotelgate' -# Copyright (C) 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 product::hotelgate::OrderSubmit; -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; -use Apache2::Const qw(HTTP_MOVED_TEMPORARILY); -use Carp qw(confess cluck); -require MIME::Entity; - - -my $SENDER='HotelGate of www.jankratochvil.net '; -my $FROM=$SENDER; -my $TO=$SENDER; - -our $HTML_TEST="download"; -our $HTML_TEST_RC=HTTP_MOVED_TEMPORARILY; - -sub handler -{ -my $W=My::Web->init( - "http_safe"=>0, - ); - - -my @fields=qw( - email - address - location - type - downlink - uplink - comment - ); -my %fields=map(($_=>1),@fields); - -# Required fields: -for my $field (qw( - type - email - )) { - cluck if !$fields{$field}; - next if $W->{"args"}{$field}; - $W->{"args_persistent"}{$_}=1 for @fields; - My::Web->http_moved("./Order.pm?error=".product::hotelgate::Order->error("${field}_missing"),HTTP_MOVED_TEMPORARILY); - confess "NOTREACHED"; - } - -my $data=""; -$data.=<<"HERE" for @fields; -$_: -@{[ $W->{"args"}{$_} ]} - -HERE -for (qw( - User-Agent - Referer - _remote_ip - X-Forwarded-For - )) { - next if !defined $W->{"headers_in"}{$_}; - $data.=<<"HERE" -headers_in::$_=@{[ $W->{"headers_in"}{$_} ]} -HERE - } -$data.=<<"HERE"; -EOF -HERE - -my $top=MIME::Entity->build( - "Sender"=>$SENDER, - "From"=>$FROM, - "To"=>$TO, - "Data"=>$data, - ); -$top->smtpsend(); - - -My::Web->http_moved("./Order.pm?error=".product::hotelgate::Order->error("ok"),HTTP_MOVED_TEMPORARILY); -confess "NOTREACHED"; -} -1; diff --git a/product/hotelgate/hotelsevendays.jpeg b/product/hotelgate/hotelsevendays.jpeg deleted file mode 100644 index e357932..0000000 Binary files a/product/hotelgate/hotelsevendays.jpeg and /dev/null differ diff --git a/product/mms2/Index.pm b/product/mms2/Index.pm index 23a3b7b..effee49 100644 --- a/product/mms2/Index.pm +++ b/product/mms2/Index.pm @@ -32,6 +32,7 @@ our @ListItem=( "icon"=>"icon.jpeg", "summary"=>"Alternative center for cheaper mobile phones multimedia messages (MMS)", "description"=>sub { return <<"HERE"; }, +

This product is no longer maintained.

You can use MMS messages for a price slightly higher than regular SMS message, depending on the GPRS data price plans of your country. Service is suitable to coexist with existing GSM networks MMS services.

@@ -59,6 +60,8 @@ $_="http://$_/" for values(%www_mms2_site); print <<"HERE";

@{[ product::Lib->title($ListItem) ]}

+

This product is no longer maintained.

+

Currently supported client mobile phones of the country: Czech Republic

@{[