sync

[www.jankratochvil.net.git] / project / ChangeLog.pm

diff --git a/project/ChangeLog.pm b/project/ChangeLog.pm
index 4cae2ac..a5aa3b4 100755 (executable)
--- a/project/ChangeLog.pm
+++ b/project/ChangeLog.pm
@@ -44,7 +44,11 @@ My::Web->heading();
 
 local *F;
 open F,""
-               ."cvs -n -q -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." rlog ".$W->{"args"}{"cvs"}
+
+#pserver:
+#              ."cvs -n -q -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." rlog ".$W->{"args"}{"cvs"}
+               ."cvs -n -q -d "."/home/lace/pserver/cvs"." rlog ".$W->{"args"}{"cvs"}
+
                ." |perl -p -e 's#^RCS file: ".$W->{"pserver_path"}.'/(.*?)(?:/Attic/|/)?([^/]*),v$#$&\nWorking file: $1/$2#;'."'"
                ." |cvs2cl --stdin --stdout --window 3600 --separate-header --no-wrap --usermap ".path_abs_disk("/cvs2cl-usermap")
                ." |";