project/sshpatch/Index.html.pl

   1 #! /usr/bin/perl
   2 #
   3 # $Id$
   4 # Main page of 'My::Project::sshpatch'
   5 # Copyright (C) 2003 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
   6 #
   7 # This program is free software; you can redistribute it and/or modify
   8 # it under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; exactly version 2 of June 1991 is required
  10 #
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program; if not, write to the Free Software
  18 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19
  20
  21 package project::sshpatch::Index;
  22 require 5.6.0;  # at least 'use warnings;' but we need some 5.6.0+ modules anyway
  23 our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
  24 our $CVS_ID=q$Id$;
  25 use strict;
  26 use warnings;
  27
  28 BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
  29 use My::Web;
  30 Wuse 'My::Project';
  31 Wuse 'project::sshpatch::ListItem';
  32
  33
  34 My::Project->init_project(
  35                 "__PACKAGE__"=>__PACKAGE__,
  36                 "ListItem"=>\@project::sshpatch::ListItem::ListItem,
  37                 );
  38
  39 print <<'HERE';
  40 <p>This patch will enahance your <tt>SSH</tt> with two new options, their detailed description you will
  41 find in the updated man pages after you install this offered patch:</p>
  42 <ul>
  43 <li><b>KeepAliveData</b>: Some broken hosts potentially gatewaying/masquerading the data (between ssh
  44 client-server) forget and reject connections with too much idle time.  Use this option to
  45 workaround it.</li>
  46 <li><b>OnDemandForward</b>: Forces client to wait until the first connection to locally forwarded port is
  47 made. When user enables this option, SSH client initially only starts listening on specified local ports for
  48 forwarding. Only after the first connection to such local port is made, SSH will
  49 start the connection and authentication to the server.</li>
  50 </ul>
  51 HERE
  52
  53 My::Web->footer();