{"key"=>qr(^cvs\b),"text"=>sub ($) {
$_[0]=~s/^cvs//;
$_[0]=~s/^-/ /;
- return "CVS".$_[0];
+ return "GIT".$_[0];
},
"format"=>sub ($$) {
my($val,$key)=@_;
# ." $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"},