From: short <>
Date: Fri, 16 May 2003 16:27:31 +0000 (+0000)
Subject: update
X-Git-Tag: bp_modperl~2
X-Git-Url: https://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=0ba32bf6081668fdec9c925fe23f5a4a6d6ec8cb
update
---
diff --git a/Web.pm b/Web.pm
index 663cdb2..8449555 100644
--- a/Web.pm
+++ b/Web.pm
@@ -54,18 +54,10 @@ my($class,%args)=@_;
$cvs_id_html=join " ",@cvs_id_split;
}
-# $args{"ListItem"}=\%...;
-sub init_project ($%)
+sub print_project ($)
{
-my($class,%args)=@_;
+my($class,$ListItem)=@_;
- my $ListItem=$args{"ListItem"};
- my $name=$ListItem->{"name"};
- $name=~s#]*>([^<]*)#$1#g;
- init($class,
- "title"=>$name,
- %args);
- heading();
print "
".$ListItem->{"name"}."
\n";
print $ListItem->{"description"};
print "
\n";
@@ -110,11 +102,17 @@ my($class,%args)=@_;
}},
{"key"=>"maintenance","text"=>"Currently maintained?","format"=>sub ($) {
my %known=(
- "finished"=>"Project is finished. No serious bugs known. No new features planned.",
- "dead"=>"Project became dead code. Some updates may be needed. It is no longer used.",
+ "finished"=>"Project is finished. Possible bug reports welcome although project not actively developed.",
+ "dead"=>"Project became dead code, some updates would be required. It is no longer used, project is not supported.",
+ "obsolete"=>"Obsolete as some other existing package superseded this one.",
+ "merge"=>"Functions of this package should be merged to some other one.",
+ "update"=>"Package needs updating to be fully usable, patches welcome.",
+ "accepted"=>"This patch was accepted by the original package author. It has no longer any separate meaning.",
);
return $known{$_[0]};
}},
+ {"key"=>"reason","text"=>"Reason"},
+ {"key"=>"sponsorship","text"=>"Sponsoring Company"},
{"key"=>"language","text"=>"Programming language","format"=>sub ($) {
return "".CGI::escapeHTML($_[0]).""
if $_[0]=~/^Java\b/;
@@ -127,7 +125,7 @@ my($class,%args)=@_;
sub tableit_func
{
-my($tableit,$val,$key)=@_;
+my($tableit,$val,$key,$ListItem)=@_;
print "";
if (!ref $tableit->{"text"}) {
@@ -135,6 +133,7 @@ my($tableit,$val,$key)=@_;
}
else {
my $textfunc=$tableit->{"text"};
+ my $key=$key;
print &$textfunc($key);
}
print ": | ";
@@ -144,21 +143,38 @@ my($tableit,$val,$key)=@_;
$val=$valn if defined $valn;
}
print "$val |
\n";
+ delete $ListItem->{$key};
}
for my $tableit (@table) {
if (!ref $tableit->{"key"}) {
- tableit_func($tableit,$ListItem->{$tableit->{"key"}},$tableit->{"key"}) if $ListItem->{$tableit->{"key"}};
+ tableit_func($tableit,$ListItem->{$tableit->{"key"}},$tableit->{"key"},$ListItem) if $ListItem->{$tableit->{"key"}};
}
else {
for my $key (keys(%$ListItem)) {
my $keyregex=$tableit->{"key"};
next if $key!~/$keyregex/;
- tableit_func($tableit,$ListItem->{$key},$key);
+ tableit_func($tableit,$ListItem->{$key},$key,$ListItem);
}
}
}
print "\n";
+ print "
\n";
+}
+
+# $args{"ListItem"}=\%...;
+sub init_project ($%)
+{
+my($class,%args)=@_;
+
+ my $ListItem=$args{"ListItem"};
+ my $name=$ListItem->{"name"};
+ $name=~s#]*>([^<]*)#$1#g;
+ init($class,
+ "title"=>$name,
+ %args);
+ heading();
+ $class->print_project($ListItem);
}
sub fatal (;$)
@@ -229,6 +245,17 @@ my($file,$alt,$attrs)=@_;
.(!defined($attrs) ? "" : " ".$attrs)." />");
}
+sub readfile ($$)
+{
+my($class,$filename)=@_;
+
+ local *F;
+ open F,$filename or die "Cannot open \"$filename\": $!";
+ local $/=undef();
+ my $data=;
+ close F;
+ return $data;
+}
sub heading (;$$)
{