From 1ab5b37e9ee640879b8c7c83e3d3729eef4e4575 Mon Sep 17 00:00:00 2001
From: lace <>
Date: Sun, 18 Dec 2005 00:41:21 +0000
Subject: [PATCH] +project inetdmx

---
 configure.ac                |  1 +
 project/Makefile.am         |  3 +-
 project/inetdmx/Index.pm    | 69 +++++++++++++++++++++++++++++++++++++++++++++
 project/inetdmx/Makefile.am | 23 +++++++++++++++
 4 files changed, 95 insertions(+), 1 deletion(-)
 create mode 100644 project/inetdmx/Index.pm
 create mode 100644 project/inetdmx/Makefile.am

diff --git a/configure.ac b/configure.ac
index f197053..d3decd2 100644
--- a/configure.ac
+++ b/configure.ac
@@ -127,6 +127,7 @@ Makefile
 ./project/harpy/Makefile
 ./project/netdnsspoof/Makefile
 ./project/xbelnormalize/Makefile
+./project/inetdmx/Makefile
 ])
 
 echo done.
diff --git a/project/Makefile.am b/project/Makefile.am
index af40114..bb3527b 100644
--- a/project/Makefile.am
+++ b/project/Makefile.am
@@ -89,7 +89,8 @@ SUBDIRS= \
 		udpgate           \
 		harpy             \
 		netdnsspoof       \
-		xbelnormalize
+		xbelnormalize     \
+		inetdmx
 
 SUBDIRS: Makefile
 	@echo $(SUBDIRS) >$@
diff --git a/project/inetdmx/Index.pm b/project/inetdmx/Index.pm
new file mode 100644
index 0000000..4232519
--- /dev/null
+++ b/project/inetdmx/Index.pm
@@ -0,0 +1,69 @@
+# $Id$
+# Main page of 'My::Project::inetdmx'
+# 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 project::inetdmx::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;
+Wuse 'project::Lib';
+Wrequire 'product::Lib';
+
+
+our @ListItem=(
+		"name"=>"inetdmx",
+		"platform"=>"unixuser",
+		"priority"=>435,
+		"cvs"=>"inetdmx",
+		# FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
+		"link-Source file"=>'http://cvs.jankratochvil.net/viewcvs/'."inetdmx/inetdmx.c?rev=HEAD",
+		"summary"=>"<i>xinetd</i>(8)/<i>inetd</i>(8) on-demand servers multiplexor",
+		"license"=>"GPL",
+		"maintenance"=>"ready",
+		"language"=>"C",
+		"description"=>sub { return <<"HERE"; },
+<p>Designed for @{[ a_href 'http://httpd.apache.org/','Apache httpd' ]} - do
+you have some resource intensive server which is used only occasionally?
+Such as shadow copy of your primary server for testing purposes.</p>
+HERE
+		);
+
+sub handler
+{
+project::Lib->init();
+
+
+print <<"HERE";
+<p><b>inetdmx</b> is TCP based and it is standalone-only and/or its startup is too slow
+this tool will start the server only if it is needed and shuts it down if it
+gets idle while proxying all the TCP connections to it in the meantime.</p>
+
+<p>It is hooked both from <i>xinetd</i>(8) or <i>inetd</i>(8)
+(startups/proxying) and from <i>crond</i>(8) (idle shutdown).</p>
+
+<p>Example is provided for <b>httpd-stage-perl</b> expected as your shadow
+instance of @{[ a_href 'http://httpd.apache.org/','httpd' ]}.</p>
+HERE
+
+
+exit;
+}
+1;
diff --git a/project/inetdmx/Makefile.am b/project/inetdmx/Makefile.am
new file mode 100644
index 0000000..edc2dbc
--- /dev/null
+++ b/project/inetdmx/Makefile.am
@@ -0,0 +1,23 @@
+# $Id$
+# automake source for the Makefile of project/inetdmx/ subdir
+# 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
+
+
+include $(top_srcdir)/Makefile-head.am
+
+MODPERL_PM+= \
+		Index.pm
+
-- 
1.8.3.1