project/mdsms/Index.pm

   1 # $Id$
   2 # Main page of 'My::Project::mdsms'
   3 # Copyright (C) 2003-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 project::mdsms::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 Wuse 'project::Lib';
  28
  29
  30 our @ListItem=(
  31                 "name"=>"mdsms",
  32                 "platform"=>"unixuser",
  33                 "priority"=>600,
  34                 "icon"=>"siemens_m20t-icon.jpeg",
  35                 "download-i386 RPM package"=>"dist/mdsms-1.5.3-0.i386.rpm",
  36                 "download-sources RPM package"=>"dist/mdsms-1.5.3-0.src.rpm",
  37                 "download-sources .tar.gz"=>"dist/mdsms-1.5.3.tar.gz",
  38                 "download-sources .tar.Z"=>"dist/mdsms-1.5.3.tar.Z",
  39                 "download-patch for Siemens MC35i"=>"dist/mdsms-1.5.3-siemens-mc35i.patch",
  40                 "download-logos from KESSLER Wireless Design"=>"http://www.kessler-design.com/wireless/samples.php3",
  41                 "cvs"=>"mdsms",
  42                 "link-Freshmeat"=>sub {
  43                                 return a_href('http://freshmeat.net/projects/mdsms/','Mobile Device SMS tool');
  44                                 },
  45                 "summary"=>"Mobile Device SMS Tool",
  46                 "license"=>"GPL",
  47                 "maintenance"=>"ready",
  48                 "sponsorship"=>sub { return join(", ",
  49                                 a_href('http://www.tencom.cz/','TENcom Trade')
  50                                                 .'/'.a_href_cc({""=>'http://www.sme.cz/default.asp?lng=en&ver=html',
  51                                                               "CZ"=>'http://www.sme.cz/'},'SME'),
  52                                 a_href('http://www.readynote.com/','ReadyNote'),
  53                                 a_href('http://www.atspraha.cz/','Advanced Telecom Services'));
  54                                 },
  55                 "language"=>"C",
  56                 "description"=>sub { return <<"HERE"; },
  57 <p>Program sends NOL or NGG files as Nokia operator logo or group graphics through
  58 @{[ a_href 'http://www.nokia.com/','Nokia' ]} @{[ a_href 'http://www.communicator.org/','Communicator' ]}
  59 9110 (@{[ a_href 'http://www.nokia.com/phones/9000i','9000/9000i' ]}
  60 is not compatible). Usually you need
  61 to have either infra-red port in your computer or special FBUS cable to be able
  62 to use conventional logo-uploading tools (such as @{[ a_href 'http://www.gnokii.org/','gnokii' ]}).
  63 This program uses only standard modem cable and the integrated
  64 FaxModem capability of 9110.</p>
  65 HERE
  66                 );
  67
  68 sub handler
  69 {
  70 project::Lib->init();
  71
  72
  73 print <<"HERE";
  74 <p>This software should be general-UNIX compatible. Please wait a minute when
  75 you run it, under various UNIXes it may take some time to finish.</p>
  76 <p><b>GSM network codes: </b>GSM network code needs to be given as parameter during
  77 sending of operator logo. Nice list of the codes you will find
  78 @{[ a_href 'http://kbs.cs.tu-berlin.de/~jutta/gsm/gsm-list.html','here' ]}.</p>
  79 HERE
  80
  81
  82 exit;
  83 }
  84 1;