[dw-free] export does not work at all

[afuna]

[commit: http://hg.dwscoalition.org/dw-free/rev/592c1bfd1ae8]

http://bugs.dwscoalition.org/show_bug.cgi?id=1087

mod_perl2 conversion.

Patch by afuna.

Files modified:

• htdocs/export_do.bml

--------------------------------------------------------------------------------
diff -r 9108f48aa0ef -r 592c1bfd1ae8 htdocs/export_do.bml
--- a/htdocs/export_do.bml	Mon Jun 01 00:38:54 2009 +0000
+++ b/htdocs/export_do.bml	Mon Jun 01 14:01:04 2009 +0000
@@ -68,8 +68,7 @@
             $opts->{'format'} = "csv";
             $r->content_type("text/plain");
             my $filename = "$u->{user}-$year-$month.csv";
-            $r->header_out('Content-Disposition' => "attachment; filename=$filename");
-            $r->send_http_header();
+            $r->headers_out->{'Content-Disposition'} = "attachment; filename=$filename";
             if ($POST{'header'}) {
                 $r->print(join(",",@fields) . "\n");
             }
@@ -78,7 +77,6 @@
             $opts->{'format'} = "xml";
             my $lenc = lc($encoding);
             $r->content_type("text/xml; charset=$lenc");
-            $r->send_http_header();
             $r->print("<?xml version=\"1.0\" encoding='$lenc'?>\n");
             $r->print("<livejournal>\n");
         }
--------------------------------------------------------------------------------