use Deb::Versions;
use Packages::Config qw( $DBDIR $ROOT @SUITES @ARCHIVES @SECTIONS
@ARCHITECTURES %FTP_SITES );
+use Packages::I18N::Locale;
use Packages::CGI;
use Packages::DB;
use Packages::Search qw( :all );
-use Packages::HTML;
use Packages::Page ();
use Packages::SrcPage ();
our @EXPORT = qw( do_filelist );
sub do_filelist {
- my ($params, $opts, $html_header, $menu, $page_content) = @_;
+ my ($params, $opts, $page_content) = @_;
if ($params->{errors}{package}) {
- fatal_error( "package not valid or not specified" );
+ fatal_error( _g( "package not valid or not specified" ) );
}
if ($params->{errors}{suite}) {
- fatal_error( "suite not valid or not specified" );
+ fatal_error( _g( "suite not valid or not specified" ) );
}
if ($params->{errors}{arch}) {
- fatal_error( "arch not valid or not specified" );
+ fatal_error( _g( "architecture not valid or not specified" ) );
}
- $$menu = '';
my $pkg = $opts->{package};
my $suite = $opts->{suite}[0];
my $arch = $opts->{arch}[0] ||'';
-
- %$html_header = ( title => "Filelist of package <em>$pkg</em> in <em>$suite</em> of arch <em>$arch</em>",
- title_tag => "Filelist of of package $pkg/$suite/$arch",
- lang => 'en',
- keywords => "debian, $suite, $arch, filelist",
- print_title => 1,
- );
+ $page_content->{pkg} = $pkg;
+ $page_content->{suite} = $suite;
+ $page_content->{arch} = $arch;
unless (@Packages::CGI::fatal_errors) {
if (tie my %contents, 'DB_File', "$DBDIR/contents/filelists_${suite}_${arch}.db",
O_RDONLY, 0666, $DB_BTREE) {
unless (exists $contents{$pkg}) {
- fatal_error( "No such package in this suite on this arch" );
+ fatal_error( _g( "No such package in this suite on this architecture." ) );
} else {
my @files = unpack "L/(CC/a)", $contents{$pkg};
- my $file = "";
- $$page_content .= '<div id="pfilelist"><pre>';
+ my $file;
+
+ $page_content->{files} = [];
for (my $i=0; $i<scalar @files;) {
$file = substr($file, 0, $files[$i++]).$files[$i++];
- $$page_content .= "$file\n";
+ push @{$page_content->{files}}, "/$file";
}
- $$page_content .= '</pre></div>';
}
} else {
- fatal_error( "Invalid suite/arch combination" );
+ fatal_error( _g( "Invalid suite/architecture combination" ) );
}
}
}