Support downloads-only non-validating tests.

[www.jankratochvil.net.git] / Mailman.pm

diff --git a/Mailman.pm b/Mailman.pm
index 3b5f39d..964fa93 100644 (file)
--- a/Mailman.pm
+++ b/Mailman.pm
@@ -25,12 +25,12 @@ use strict;
 use warnings;
 
 use My::Web;
-require CGI;
 use URI::Escape;
 require LWP::Simple;
 
 
-our $HTML_TEST=0;
+our $HTML_TEST=0;      # TODO: Provide some real URLs for download/translation.
+our $HTML_TEST_QUERY_STRING="list=html_test";
 
 sub handler
 {
@@ -44,6 +44,7 @@ my $W=My::Web->init(
                                "list"=>['^[-\w]+$'],
                                "back"=>'',
                                },
+               "http_safe"=>0, # LWP downloads.
                );
 My::Web->heading();
 
@@ -66,6 +67,6 @@ if ($W->{"args"}{"back"}) {
        }
 
 
-My::Web->footer();
+exit;
 }
 1;