X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=project%2FLib.pm;h=e439ececf581ac73419c2c4dfd3242ddf40dd2e3;hp=604170444e55edc96ceb2b3f5dc6f57b93417f14;hb=886ab9c87febce040d1ccfb7b991212c49e2a080;hpb=1db749bbc5a1cae4f28c28c3b88ff5948dbf5806 diff --git a/project/Lib.pm b/project/Lib.pm index 6041704..e439ece 100644 --- a/project/Lib.pm +++ b/project/Lib.pm @@ -99,7 +99,7 @@ my($class,$ListItem)=@_; {"key"=>qr(^cvs\b),"text"=>sub ($) { $_[0]=~s/^cvs//; $_[0]=~s/^-/ /; - return "CVS".$_[0]; + return "GIT".$_[0]; }, "format"=>sub ($$) { my($val,$key)=@_; @@ -115,11 +115,15 @@ my($class,$ListItem)=@_; # ." $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"},