Add text version of allpackages

[deb/packages.git] / lib / Packages / DoNewPkg.pm

diff --git a/lib/Packages/DoNewPkg.pm b/lib/Packages/DoNewPkg.pm
index c3175ec6db6ca2cbfd39a3c6573a91b51cf5e0dc..73cd981a0a36261d244a0eaec419c6055e5e227e 100644 (file)
--- a/lib/Packages/DoNewPkg.pm
+++ b/lib/Packages/DoNewPkg.pm
@@ -103,7 +103,7 @@ sub do_newpkg {
 
        $$page_content .= '<p class="psmallcenter"><a href="$ROOT/$suite/allpackages" title="'.
            _g( "List of all packages" ) ."\">".
-           _g( "All packages" ) ."</a><br>(<a href=\"$ROOT/$suite/allpackages?format=txt\">".
+           _g( "All packages" ) ."</a><br>(<a href=\"$ROOT/$suite/allpackages?format=txt.gz\">".
            _g( "compact compressed textlist" )."</a>)<br>".
            ($slist ? sprintf(_g( "New packages in %s" ), $slist ):'').
            "</p>\n";
@@ -141,7 +141,9 @@ sub do_newpkg {
                               subject  => $pkg->[6],
                           } );
        }
-       print &CGI::header( -type => 'application/rss+xml' );
+       my $charset = get_charset( $opts->{lang} );
+       print &CGI::header( -type => 'application/rss+xml',
+                           -charset => $charset );
        print $rss->as_string;
        exit;
     }