+/IndexCVS.pm: For: cvs.jankratochvil.net

diff --git a/IndexCVS.pm b/IndexCVS.pm
new file mode 100644 (file)
index 0000000..c4327ce
--- /dev/null
+++ b/IndexCVS.pm
@@ -0,0 +1,78 @@
+# $Id$
+# Index file for: cvs.jankratochvil.net
+# 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 IndexCVS;
+require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway
+use vars qw($VERSION $CVS_ID);
+$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+$CVS_ID=q$Id$;
+use strict;
+use warnings;
+
+use My::Web;
+use Carp qw(confess cluck);
+
+
+sub handler
+{
+my $W=My::Web->init(
+               "title"=>"CVS Repository",
+               "heading"=>0,
+               );
+$W->{"args"}{"Wabs"}=1;
+My::Web->heading();
+
+
+print <<"HERE";
+<h1>CVS Repository of Jan Kratochvil</h1>
+
+<h2>Access methods</h2>
+<ul>
+       <li>CVS pserver <span class="quote">:pserver:pserver:@{[ '@' ]}cvs.jankratochvil.net/cvs</span></li>
+       <li>@{[ a_href 'viewcvs/','ViewCVS',"abs"=>0 ]} web interface</li>
+</ul>
+
+<h2>Description</h2>
+<p>Here you will find the public files stored in the personal CVS repository of
+@{[ a_href 'http://www.jankratochvil.net/','Jan Kratochvil' ]}.</p>
+<p>You will need the tool @{[ a_href 'http://www.cvshome.org/','CVS' ]} to fully
+utilize it. Credentials are:</p>
+<dl class="blockquote">
+       <dt>CVSROOT</dt><dd class="quote">:pserver:pserver@{[ '@' ]}cvs.jankratochvil.net/cvs</dd>
+       <dt>password</dt><dd>empty (just hit <span class="keystroke">ENTER</span>)</dd>
+       <dt>module</dt><dd>directory name from
+                       @{[ a_href 'viewcvs/','ViewCVS',"abs"=>0 ]} such as &quot;<span class="quote">nethome</span>&quot;</dd>
+</dl>
+<p>The following command will download you directory <b>SOME_MODULE_NAME</b>
+in UNIX environemnt; @{[ a_href 'http://www.cvshome.org/','CVS' ]} version 1.11 or higher
+is required for this command:</p>
+<pre class="blockquote">
+cvs -d :pserver:pserver:@{[ '@' ]}cvs.jankratochvil.net:/cvs checkout <b>SOME_MODULE_NAME</b>
+</pre>
+<p>Some files or the directory listing of &quot;<span class="quote">priv/</span>&quot;
+may not be accessible. This is probably intentional and therefore downloading
+of <span class="quote">.tar.gz</span> may fail if such protected file is
+present anywhere in subdirectory files - the resulting archive will be
+corrupted and it will contain some @{[ a_href 'http://www.python.org/','Python' ]}
+error message in its beginning.</p>
+HERE
+
+
+exit;
+}
+1;

diff --git a/Makefile.am b/Makefile.am
index ad8c9f9..f2689c2 100644 (file)
--- a/Makefile.am
+++ b/Makefile.am
@@ -72,6 +72,7 @@ EXTRA_DIST+= \
 
 MODPERL_PM+= \
                Index.pm \
+               IndexCVS.pm \
                Contact.pm \
                Mailman.pm