my ($c,$cont,$contype) = @_; # $contype must be "normal" or "gz"
my $res = new HTTP::Response;
$res->content($cont);
- $res->push_header("Content-Type" => "text/plain");
+ $res->push_header("Content-Type" => "text/xml");
if ($contype eq "gz") {
$res->push_header("Content-Encoding" => "x-gzip");
}