No pserver.

diff --git a/IndexCVS.pm b/IndexCVS.pm
index fba29db..a4660c6 100644 (file)
--- a/IndexCVS.pm
+++ b/IndexCVS.pm
@@ -42,27 +42,37 @@ print <<"HERE";
 
 <h2>Access methods</h2>
 <ul>
-       <li>CVS pserver <span class="quote">:pserver:pserver:@{[ '@' ]}cvs.jankratochvil.net/cvs</span></li>
+HERE
+
+#pserver:
+#      <li>CVS pserver <span class="quote">:pserver:pserver:@{[ '@' ]}cvs.jankratochvil.net/cvs</span></li>
+
+print <<"HERE";
        <li>@{[ a_href 'viewcvs/','ViewCVS' ]} 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' ]} 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>
+HERE
+
+#pserver:
+#<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' ]} 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>
+
+print <<"HERE";
 <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

diff --git a/project/Lib.pm b/project/Lib.pm
index 8586c6c..6041704 100644 (file)
--- a/project/Lib.pm
+++ b/project/Lib.pm
@@ -108,10 +108,11 @@ my($class,$ListItem)=@_;
                                                my $branch="";
                                                $branch=$1 if $val=~s/:(.*)//;
                                                return join("<br />\n\t\t",
-                                                               escapeHTML("cvs -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." -z3"
-                                                                               ." checkout".(!$branch ? "" : " -r $branch -kk")
-                                                                               .($val!~m#/# ? "" : " -d ".File::Basename::basename($val))
-                                                                               ." $val"),
+#pserver:
+#                                                              escapeHTML("cvs -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." -z3"
+#                                                                              ." checkout".(!$branch ? "" : " -r $branch -kk")
+#                                                                              .($val!~m#/# ? "" : " -d ".File::Basename::basename($val))
+#                                                                              ." $val"),
                                                                join(" | \n\t\t",
                                                                                map({ a_href($_->[1],$_->[0]); }
                                                                                                ["ViewCVS CVS repository",$W->{"project_viewcvs"}.$val."/".(!$branch ? "" : '?only_with_tag='.$branch)],