Fixed temporary files pathname, it could 'crash' before.

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

diff --git a/Mailman.pm b/Mailman.pm
index ae78117..964fa93 100644 (file)
--- a/Mailman.pm
+++ b/Mailman.pm
@@ -29,7 +29,8 @@ 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
 {
@@ -43,6 +44,7 @@ my $W=My::Web->init(
                                "list"=>['^[-\w]+$'],
                                "back"=>'',
                                },
+               "http_safe"=>0, # LWP downloads.
                );
 My::Web->heading();
 
@@ -65,6 +67,6 @@ if ($W->{"args"}{"back"}) {
        }
 
 
-My::Web->footer();
+exit;
 }
 1;