print $ListItem->{"description"};
print "<hr />\n";
my @table=(
+ {"key"=>"summary","text"=>"Summary"},
+ {"key"=>"license","text"=>"License","format"=>sub ($) {
+ my %known=(
+ "PD"=>"Public Domain",
+ "GPL"=>a_href("http://www.gnu.org/licenses/gpl.html","GNU General Public License"),
+ "LGPL"=>a_href("http://www.gnu.org/licenses/lgpl.html","GNU Lesser General Public License"),
+ "com"=>"Commercial"
+ );
+ return $known{$_[0]};
+ }},
+ {"key"=>"maintenance","text"=>"State","format"=>sub ($) {
+ my %known=(
+ "active"=>"Ready to use. Project is now actively developed.",
+ "ready"=>"Ready to use although no longer being actively developed.",
+ "dead"=>"Dead code, no longer supported.",
+ "merge"=>"Functions belong to existing other project.",
+ "obsolete"=>"Obsoleted.",
+ "update"=>"Package needs updating to recent software.",
+ "accepted"=>"This patch got already integrated by the original package maintainer.",
+ ""=>"",
+ );
+ my @r;
+ for ($known{($_[0]=~/^([^-]*)-?/)[0] || ""}) {
+ push @r,$_ if $_;
+ push @r," $'" if $';
+ }
+ return join(" ",@r);
+ }},
{"key"=>qr(^download\b),"text"=>sub ($) {
$_[0]=~s/^download//;
$_[0]=~s/^-/ /;
." checkout".(!$branch ? "" : " -r $branch -kk")
.($val!~m#/# ? "" : " -d ".File::Basename::basename($val))
." $val"),
- 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" ,$W->{"top_dir"}."/project/ChangeLog.txt.pl?cvs=$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" ,$W->{"top_dir"}."/project/ChangeLog.txt.pl?cvs=$val"])));
}},
- {"key"=>"summary","text"=>"Summary"},
{"key"=>"ownership","text"=>"Ownership"},
- {"key"=>"license","text"=>"License","format"=>sub ($) {
- my %known=(
- "PD"=>"Public Domain",
- "GPL"=>a_href("http://www.gnu.org/licenses/gpl.html","GNU General Public License"),
- "LGPL"=>a_href("http://www.gnu.org/licenses/lgpl.html","GNU Lesser General Public License"),
- "com"=>"Commercial"
- );
- return $known{$_[0]};
- }},
- {"key"=>"maintenance","text"=>"State","format"=>sub ($) {
- my %known=(
- "active"=>"Ready to use and the package is being actively developed.",
- "ready"=>"Ready to use although no longer being actively developed.",
- "dead"=>"Dead code, no longer supported.",
- "merge"=>"Functions belong to existing other project.",
- "obsolete"=>"Obsoleted.",
- "update"=>"Package needs updating to recent software.",
- "accepted"=>"This patch got already integrated by the original package maintainer.",
- ""=>"",
- );
- my @r;
- for ($known{($_[0]=~/^([^-]*)-?/)[0] || ""}) {
- push @r,$_ if $_;
- push @r," $'" if $';
- }
- return join(" ",@r);
- }},
{"key"=>"sponsorship","text"=>"Sponsoring Company"},
{"key"=>"language","text"=>"Programming language","format"=>sub ($) {
return a_href("http://java.sun.com/",CGI::escapeHTML($_[0]))