From: short <>
Date: Fri, 3 Oct 2003 22:46:26 +0000 (+0000)
Subject: mdsms etc.
X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=b9cde9304677e13fca248ad06a3bf0b5fae85e80

mdsms etc.
---

diff --git a/Project.pm b/Project.pm
index 3599cac..d18a860 100644
--- 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
--- 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());
 }