X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=Mailman.pm;fp=Mailman.pm;h=cf5979c2335540aeeb042047cf9dfe063f5e9cd1;hp=964fa93facdaf19997e41c102a5f767135668ed7;hb=79a022ff45147c2cc675e1815f199f72a1bc0302;hpb=fdd7f599120fdca2c7d2ca99b77ec4e01c11a806

diff --git a/Mailman.pm b/Mailman.pm
index 964fa93..cf5979c 100644
--- a/Mailman.pm
+++ b/Mailman.pm
@@ -45,6 +45,8 @@ my $W=My::Web->init(
 				"back"=>'',
 				},
 		"http_safe"=>0,	# LWP downloads.
+		# Mailman does not produce valid XHTML.
+		"content_type"=>"text/html",
 		);
 My::Web->heading();
 
@@ -52,10 +54,12 @@ My::Web->heading();
 for my $list (@{$W->{"args"}{"list"}}) {
 	print "<h1>List <i>$list</i></h1><blockquote>\n";
 		my $url_base=$W->{"mailman_url"}."/subscribe/$list";
-		my $t=LWP::Simple::get("$url_base?"
-				.join('&',
-						"list=$list",
-						map({ $_."=".uri_escape($W->{"args"}{$_}); } qw(email pw pw-conf))));
+		my $url=URI->new($url_base);
+		$url->query_form(
+				"list"=>$list,
+				map(($_=>$W->{"args"}{$_}),qw(email pw pw-conf)),
+				);
+		my $t=LWP::Simple::get($url);
 		$t=($t=~m#^.*<body\b[^>]*>(.*?)</body>#is)[0];
 		$t=~s#(href=")(../[^"]*)(")#$1$url_base/$2$3#gi;
 		print $t;