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";
Here you will find the public files stored in the personal CVS repository of -@{[ a_href 'http://www.jankratochvil.net/','Jan Kratochvil' ]}.
-You will need the tool @{[ a_href 'http://www.cvshome.org/','CVS' ]} to fully -utilize it. Credentials are:
-The following command will download you directory SOME_MODULE_NAME -in UNIX environemnt; @{[ a_href 'http://www.cvshome.org/','CVS' ]} version 1.11 or higher -is required for this command:
--cvs -d :pserver:pserver:@{[ '@' ]}cvs.jankratochvil.net:/cvs checkout SOME_MODULE_NAME -+HERE + +#pserver: +#
Here you will find the public files stored in the personal CVS repository of +#@{[ a_href 'http://www.jankratochvil.net/','Jan Kratochvil' ]}.
+#You will need the tool @{[ a_href 'http://www.cvshome.org/','CVS' ]} to fully +#utilize it. Credentials are:
+#The following command will download you directory SOME_MODULE_NAME +#in UNIX environemnt; @{[ a_href 'http://www.cvshome.org/','CVS' ]} version 1.11 or higher +#is required for this command:
+#+#cvs -d :pserver:pserver:@{[ '@' ]}cvs.jankratochvil.net:/cvs checkout SOME_MODULE_NAME +#+ +print <<"HERE";
Some files or the directory listing of "priv/"
may not be accessible. This is probably intentional and therefore downloading
of .tar.gz 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("
\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