X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=project%2Fbadblock_guess%2FListItem.pm;h=3bdf85fe8e7067e233e81cbadd7214c0c390652f;hb=6e95b07130d69246ce12bd868a27f7039b1e6676;hp=1ff3438412d4e555dabde26e5be8c4fc96dec104;hpb=4eff5fe31d7bf25f4471ff4329fde56cba97fdcf;p=www.jankratochvil.net.git

diff --git a/project/badblock_guess/ListItem.pm b/project/badblock_guess/ListItem.pm
index 1ff3438..3bdf85f 100755
--- a/project/badblock_guess/ListItem.pm
+++ b/project/badblock_guess/ListItem.pm
@@ -18,29 +18,31 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 
-package My::Project::badblock_guess;
+package project::badblock_guess::ListItem;
 require 5.6.0;	# at least 'use warnings;' but we need some 5.6.0+ modules anyway
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
 
-our %ListItem=(
-		"name"=>"Recovery of Data from a Damaged Disk",
+
+our @ListItem=(
+		"name"=>"badblock-guess",
 		"priority"=>7,
 		"download-compiled static binary"=>"badblock-guess",
 		"download-gzipped compiled static binary"=>"badblock-guess.gz",
-		"link-CVS repository"=>"http://cvs.jankratochvil.net/viewcvs/badblock-guess/",
-		"download-CVS snapshot"=>"http://cvs.jankratochvil.net/viewcvs/badblock-guess/badblock-guess.tar.gz?tarball=1",
-		"link-README"=>"http://cvs.jankratochvil.net/viewcvs/*checkout*/badblock-guess/README?rev=HEAD",
-		"summary"=>"Data recovery",
+		"cvs"=>"badblock-guess",
+		# FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
+		"link-README"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/badblock-guess/README?rev=HEAD",
+		"summary"=>"Data recovery from a damaged disk",
 		"license"=>"GPL",
-		"maintenance"=>"finished",
+		"maintenance"=>"ready",
 		"language"=>"C",
-		"description"=>""
-				.'<p>badblock-guess will try to find all readable sectors of the disk in minimal time.</p>'
+		"description"=><<"HERE",
+<p>badblock-guess will try to find all readable sectors of the disk in minimal time.</p>
+HERE
 		);
 
 1;