X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=lib%2FPackages%2FDoNewPkg.pm;h=059d5a33fa5e859d3dad1c6bc07d884547ac3ff6;hb=f9f183095d5100a9cecc864361e19881601d780f;hp=c3175ec6db6ca2cbfd39a3c6573a91b51cf5e0dc;hpb=6b32484cb228479df13814cf1ba0f6667ff7148d;p=deb%2Fpackages.git

diff --git a/lib/Packages/DoNewPkg.pm b/lib/Packages/DoNewPkg.pm
index c3175ec..059d5a3 100644
--- a/lib/Packages/DoNewPkg.pm
+++ b/lib/Packages/DoNewPkg.pm
@@ -101,9 +101,9 @@ sub do_newpkg {
 	    }
 	}
 
-	$$page_content .= '<p class="psmallcenter"><a href="$ROOT/$suite/allpackages" title="'.
+	$$page_content .= '<p class="psmallcenter"><a href="'.make_url('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=\"".make_url('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;
     }