+Amiga etc.

[MyWeb.git] / Web.pm

diff --git a/Web.pm b/Web.pm
index 3753968..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 {
@@ -373,8 +373,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],