From 5164bff415005d8ca2c11816abcf5b29be21640f Mon Sep 17 00:00:00 2001
From: lace <>
Date: Sun, 8 Feb 2009 17:18:36 +0000
Subject: [PATCH] No pserver.

---
 IndexCVS.pm    | 44 +++++++++++++++++++++++++++-----------------
 project/Lib.pm |  9 +++++----
 2 files changed, 32 insertions(+), 21 deletions(-)

diff --git a/IndexCVS.pm b/IndexCVS.pm
index fba29db..a4660c6 100644
--- 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
--- 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)],
-- 
1.8.3.1