project/inetdmx/Index.pm

   1 # $Id$
   2 # Main page of 'My::Project::inetdmx'
   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 project::inetdmx::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 Wrequire 'product::Lib';
  29
  30
  31 our @ListItem=(
  32                 "name"=>"inetdmx",
  33                 "platform"=>"unixuser",
  34                 "priority"=>435,
  35                 "cvs"=>"inetdmx",
  36                 # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
  37                 "link-Source file"=>'http://cvs.jankratochvil.net/viewcvs/'."inetdmx/inetdmx.c?rev=HEAD",
  38                 "summary"=>"<i>xinetd</i>(8)/<i>inetd</i>(8) on-demand servers multiplexor",
  39                 "license"=>"GPL",
  40                 "maintenance"=>"ready",
  41                 "language"=>"C",
  42                 "description"=>sub { return <<"HERE"; },
  43 <p>Designed for @{[ a_href 'http://httpd.apache.org/','Apache httpd' ]} - do
  44 you have some resource intensive server which is used only occasionally?
  45 Such as shadow copy of your primary server for testing purposes.</p>
  46 HERE
  47                 );
  48
  49 sub handler
  50 {
  51 project::Lib->init();
  52
  53
  54 print <<"HERE";
  55 <p><b>inetdmx</b> is TCP based and it is standalone-only and/or its startup is too slow
  56 this tool will start the server only if it is needed and shuts it down if it
  57 gets idle while proxying all the TCP connections to it in the meantime.</p>
  58
  59 <p>It is hooked both from <i>xinetd</i>(8) or <i>inetd</i>(8)
  60 (startups/proxying) and from <i>crond</i>(8) (idle shutdown).</p>
  61
  62 <p>Example is provided for <b>httpd-stage-perl</b> expected as your shadow
  63 instance of @{[ a_href 'http://httpd.apache.org/','httpd' ]}.</p>
  64 HERE
  65
  66
  67 exit;
  68 }
  69 1;