+Amiga etc.

[MyWeb.git] / Web.pm

diff --git a/Web.pm b/Web.pm
index 5c2b273..399590f 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -302,7 +302,7 @@ my($url,$contents,%args)=@_;
        else    # unknown client, &CGI::escapeHTML should not be needed here
                { $r.=CGI::escapeHTML("http://".$W->{"r"}->hostname()."/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|rpm|zip|deb|lha)/) { # Downloadable?
                if (!-r $url)
                        { cluck "File not readable: $url"; }
                else {