sync
[www.jankratochvil.net.git] / project / Lib.pm
index 6041704..e439ece 100644 (file)
@@ -99,7 +99,7 @@ my($class,$ListItem)=@_;
                {"key"=>qr(^cvs\b),"text"=>sub ($) {
                                                $_[0]=~s/^cvs//;
                                                $_[0]=~s/^-/ /;
                {"key"=>qr(^cvs\b),"text"=>sub ($) {
                                                $_[0]=~s/^cvs//;
                                                $_[0]=~s/^-/ /;
-                                               return "CVS".$_[0];
+                                               return "GIT".$_[0];
                                                },
                                "format"=>sub ($$) {
                                                my($val,$key)=@_;
                                                },
                                "format"=>sub ($$) {
                                                my($val,$key)=@_;
@@ -115,11 +115,15 @@ my($class,$ListItem)=@_;
 #                                                                              ." $val"),
                                                                join(" | \n\t\t",
                                                                                map({ a_href($_->[1],$_->[0]); }
 #                                                                              ." $val"),
                                                                join(" | \n\t\t",
                                                                                map({ a_href($_->[1],$_->[0]); }
-                                                                                               ["ViewCVS CVS repository",$W->{"project_viewcvs"}.$val."/".(!$branch ? "" : '?only_with_tag='.$branch)],
-                                                                                               ["Download CVS snapshot" ,
-                                                                                                               $W->{"project_viewcvs"}.$val."/".File::Basename::basename($val).".tar.gz?tarball=1"
-                                                                                                                               .(!$branch ? "" : '&only_with_tag='.$branch)],
-                                                                                               ["CVS ChangeLog"         ,"/project/ChangeLog.pm?cvs=$val"])));
+#                                                                                              ["ViewCVS CVS repository",$W->{"project_viewcvs"}.$val."/".(!$branch ? "" : '?only_with_tag='.$branch)],
+#                                                                                              ["Download CVS snapshot" ,
+#                                                                                                              $W->{"project_viewcvs"}.$val."/".File::Basename::basename($val).".tar.gz?tarball=1"
+#                                                                                                                              .(!$branch ? "" : '&only_with_tag='.$branch)],
+##FIXME:                                                                                               ["CVS ChangeLog"         ,"/project/ChangeLog.pm?cvs=$val"]
+                                                                                               ["GIT repository",$W->{"project_viewcvs"}."?p=$val.git;a=tree".(!$branch ? "" : ";hb=$branch")],
+                                                                                               ["Download GIT snapshot",$W->{"project_viewcvs"}."?p=$val.git;a=snapshot;sf=tgz;h=".(!$branch ? "HEAD" : "$branch")],
+                                                                                               ["GIT shortlog",$W->{"project_viewcvs"}."?p=$val.git;a=shortlog".(!$branch ? "" : ";h=refs/heads/$branch")]
+                                                                                               )));
                                                }},
                {"key"=>"ownership","text"=>"Ownership"},
                {"key"=>"sponsorship","text"=>"Sponsorship"},
                                                }},
                {"key"=>"ownership","text"=>"Ownership"},
                {"key"=>"sponsorship","text"=>"Sponsorship"},