mdsms etc.

diff --git a/Project.pm b/Project.pm
index 3599cac..d18a860 100644 (file)
--- a/Project.pm
+++ b/Project.pm
@@ -51,7 +51,7 @@ my($class,$ListItem)=@_;
                {"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.",
+                                               "ready"=>"Ready to use. Maintained.",
                                                "dead"=>"Dead code, no longer supported.",
                                                "merge"=>"Functions belong to existing other project.",
                                                "obsolete"=>"Obsoleted.",
@@ -111,7 +111,7 @@ my($class,$ListItem)=@_;
                                                                                                ["CVS ChangeLog"         ,$W->{"top_dir"}."/project/ChangeLog.txt.pl?cvs=$val"])));
                                                }},
                {"key"=>"ownership","text"=>"Ownership"},
-               {"key"=>"sponsorship","text"=>"Sponsoring Company"},
+               {"key"=>"sponsorship","text"=>"Sponsorship"},
                {"key"=>"language","text"=>"Programming language","format"=>sub ($) {
                                return a_href("http://java.sun.com/",CGI::escapeHTML($_[0]))
                                                if $_[0]=~/^Java\b/;

diff --git a/Web.pm b/Web.pm
index 399590f..a317dd3 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -300,9 +300,9 @@ my($url,$contents,%args)=@_;
        elsif ($W->{"have_ent"})        # ent client
                { $r.=$urlent; }
        else    # unknown client, &CGI::escapeHTML should not be needed here
-               { $r.=CGI::escapeHTML("http://".$W->{"r"}->hostname()."/Redirect.pl?location=".uri_escape($url)); }
+               { $r.=CGI::escapeHTML($W->{"top_dir"}."/Redirect.pl?location=".uri_escape($url)); }
        $r.='">'.$contents.'</a>';
-       if ($args{"size"} && url_is_local($url) && $url=~/[.](?:gz|rpm|zip|deb|lha)/) { # Downloadable?
+       if ($args{"size"} && url_is_local($url) && $url=~/[.](?:gz|Z|rpm|zip|deb|lha)/) {       # Downloadable?
                if (!-r $url)
                        { cluck "File not readable: $url"; }
                else {
@@ -326,7 +326,6 @@ sub remote_ip ()
 
 sub is_cz ()
 {
-print STDERR "IP=".remote_ip()."\n";
        return "CZ" eq Geo::IP->new()->country_code_by_addr(remote_ip());
 }