mdsms etc.

[MyWeb.git] / Web.pm

diff --git a/Web.pm b/Web.pm
index 3753968..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)/) {     # 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());
 }
 
@@ -373,8 +372,8 @@ my($file_base)=@_;
                my $file=$file_base.".".$var->{"id"};
                # TODO: Somehow quickly check dependencies?
                system 'make >&2 -s --no-print-directory'
-                                               .' -C '."'".File::Basename::dirname($file)."' '".File::Basename::basename($file)."'";
-#                              if !-f $file;
+                                               .' -C '."'".File::Basename::dirname($file)."' '".File::Basename::basename($file)."'"
+                               if !-f $file;
                push @nego_variants,negotiate_variant(
                                %$var,
                                "size"=>(stat $file)[7],