".gettext( "More Information on %s" )."
", + $str .= sprintf( ""._g( "More Information on %s" )."
", $name ); - if ($info{bugreports}) { my $bug_url = $is_source ? $SRC_BUG_URL : $BUG_URL; - $str .= "\n".sprintf( gettext( "Check for Bug Reports about %s." )."
\n",
+ $str .= "
\n".sprintf( _g( "Check for Bug Reports about %s." )."
\n",
$bug_url.$name, $name );
}
+ my $source = $page->get_src( 'package' );
+ my $source_version = $page->get_src( 'version' );
+ my $src_dir = $page->get_src('directory');
if ($info{sourcedownload}) {
- $str .= gettext( "Source Package:" );
- $str .= " {src_name}\">$d->{src_name}, ".
- gettext( "Download" ).":\n";
-
- unless ($d->{src_files}) {
- $str .= gettext( "Not found" );
+ my $files = $page->get_src( 'files' );
+ my $path = (@{$opts->{archive}} >1) ?
+ $suite :
+ "$suite/$opts->{archive}[0]";
+ $str .= _g( "Source Package:" );
+ $str .= " $source, ".
+ _g( "Download" ).":\n";
+
+ unless (defined($files) and @$files) {
+ $str .= _g( "Not found" );
} else {
- foreach( @{$d->{src_files}} ) {
- my ($src_file_md5, $src_file_size, $src_file_name) = @$_;
- if ($d->{is_security}) {
- $str .= "{opts}{security_site}/$d->{src_directory}/$src_file_name\">[";
- } elsif ($d->{is_volatile}) {
- $str .= "{opts}{volatile_site}/$d->{src_directory}/$src_file_name\">[";
- } elsif ($d->{is_nonus}) {
- $str .= "{opts}{nonus_site}/$d->{src_directory}/$src_file_name\">[";
- } else {
- $str .= "{opts}{debian_site}/$d->{src_directory}/$src_file_name\">[";
- }
+ foreach( @$files ) {
+ my ($src_file_md5, $src_file_size, $src_file_name) = split /\s/o, $_;
+ for ($page->get_newest('archive')) {
+ /security/o && do {
+ $str .= "{security}/$src_dir/$src_file_name\">["; last };
+ /volatile/o && do {
+ $str .= "{volatile}/$src_dir/$src_file_name\">["; last };
+ /backports/o && do {
+ $str .= "{backports}/$src_dir/$src_file_name\">["; last };
+ /non-us/io && do {
+ $str .= "{nonus_site}/$src_dir/$src_file_name\">["; last };
+ $str .= "{us}/$src_dir/$src_file_name\">[";
+ }
if ($src_file_name =~ /dsc$/) {
$str .= "dsc";
} else {
@@ -182,63 +156,181 @@ sub pmoreinfo {
$str .= "]\n";
}
}
-# $package_page .= sprintf( gettext( " (These sources are for version %s)\n" ), $src_version )
+# $package_page .= sprintf( _g( " (These sources are for version %s)\n" ), $src_version )
# if ($src_version ne $version) && !$src_version_given_in_control;
}
if ($info{changesandcopy}) {
- if ( $d->{src_directory} ) {
- my $src_dir = $d->{src_directory};
- (my $src_basename = $d->{src_version}) =~ s,^\d+:,,; # strip epoche
- $src_basename = "$d->{src_name}_$src_basename";
+ if ( $src_dir ) {
+ (my $src_basename = $source_version) =~ s,^\d+:,,; # strip epoche
+ $src_basename = "${source}_$src_basename";
$src_dir =~ s,pool/updates,pool,o;
$src_dir =~ s,pool/non-US,pool,o;
- $str .= "
".sprintf( gettext( "View the Debian changelog" ),
+ $str .= "
".sprintf( _g( 'View the Debian changelog' ),
"$CHANGELOG_URL/$src_dir/$src_basename/changelog" )."
\n";
- my $copyright_url = "$COPYRIGHT_URL/$src_dir/$src_basename/";
+ my $copyright_url = "$CHANGELOG_URL/$src_dir/$src_basename/";
$copyright_url .= ( $is_source ? 'copyright' : "$name.copyright" );
- $str .= sprintf( gettext( "View the copyright file" ),
+ $str .= sprintf( _g( 'View the copyright file' ),
$copyright_url )."
\n".sprintf( gettext( "%s is responsible for this Debian package." ). - "\n", - "$maint_name" - ); - } else { - my $up_str = "$maint_name"; - my @uploaders_str; - foreach (@uploaders) { - push @uploaders_str, "[1]\">$_->[0]"; + my $uploaders = $page->get_src( 'uploaders' ); + if ($uploaders && @$uploaders) { + foreach (@$uploaders) { + $_->[0] = encode_entities( $_->[0], '&<>' ); + } + my ($maint_name, $maint_mail) = @{shift @$uploaders}; + unless (@$uploaders) { + $str .= "
\n".sprintf( _g( "%s is responsible for this Debian package." ). + "\n", + "$maint_name" + ); + } else { + my $up_str = "$maint_name"; + my @uploaders_str; + foreach (@$uploaders) { + push @uploaders_str, "[1]\">$_->[0]"; + } + my $last_up = pop @uploaders_str; + $up_str .= ", ".join ", ", @uploaders_str if @uploaders_str; + $up_str .= sprintf( _g( " and %s are responsible for this Debian package." ), $last_up ); + $str .= "
\n$up_str "; } - my $last_up = pop @uploaders_str; - $up_str .= ", ".join ", ", @uploaders_str if @uploaders_str; - $up_str .= sprintf( gettext( " and %s are responsible for this Debian package." ), $last_up ); - $str .= "
\n$up_str "; } - $str .= sprintf( gettext( "See the developer information for %s." )."
", $QA_URL.$d->{src_name}, $name ); + $str .= sprintf( _g( "See the developer information for %s." )."", $QA_URL.$source, $name ) if $source; } if ($info{search}) { my $encodedname = uri_escape( $name ); - my $search_url = $is_source ? $SRC_SEARCH_URL : $SEARCH_URL; - $str .= "".sprintf( gettext( "Search for other versions of %s" ), $search_url.$encodedname, $name )."
\n"; + my $search_url = $is_source ? "$ROOT/source" : $ROOT; + $str .= "".sprintf( _g( "Search for other versions of %s" ), + "$search_url/$encodedname", $name )."
\n"; } $str .= "- \n";
+ my $first = 1;
+ my $suite = $opts->{suite}[0];
+ my $one_archive = @{$opts->{archive}} > 1 ? '': $opts->{archive}[0];
+
+# use Data::Dumper;
+# debug( "print_deps called:\n".Dumper( $pkg, $relations, \$type ), 3 ) if DEBUG;
+
+ foreach my $rel (@$relations) {
+ my $is_old_pkgs = $rel->[0];
+ my @res_pkgs = ();
+
+ if ($is_old_pkgs) {
+ $res .= "
- ";
+ } else {
+ if ($first) {
+ $res .= "
- "; + $first = 0; + } else { + $res .= "
\n- "; + } + $res .= "
\n"; + $res .= "![\"[$dep_type{$type}]\"](\"$ROOT/Pics/$dep_type{$type}.gif\")
";
+ }
+
+ foreach my $rel_alt ( @$rel ) {
+ next unless ref($rel_alt);
+ my ( $p_name, $pkg_version, $arch_neg,
+ $arch_str, $subsection, $available ) = @$rel_alt;
+
+ if ($arch_str ||= '') {
+ if ($arch_neg) {
+ $arch_str = " ["._g("not")." $arch_str]";
+ } else {
+ $arch_str = " [$arch_str]";
+ }
+ }
+ $pkg_version = "($pkg_version)" if $pkg_version ||= '';
+
+ my @results;
+ my %entries;
+ my $entry = $entries{$p_name} ||
+ read_entry_simple( $packages, $p_name, $opts->{h_archives}, $suite);
+ my $short_desc = $entry->[-1];
+ my $arch = $entry->[3];
+ my $archive = $entry->[1];
+ if ( $short_desc ) {
+ my $path = $one_archive eq $archive ? "$suite/$archive" :
+ $suite;
+ if ( $is_old_pkgs ) {
+ push @res_pkgs, dep_item( "$ROOT/$path/$p_name",
+ $p_name, "$pkg_version$arch_str" );
+ } elsif (defined $entry->[0]) {
+# FIXME: can be both virtual package (defined $entry->[0]) and real one
+ my @provided_by = split /\s/, $entry->[0];
+ $short_desc = "virtual package provided by ";
+ if (@provided_by < 10) {
+ $short_desc .= join( ', ',map { "$_" } @provided_by);
+ } else {
+ $short_desc .= scalar(@provided_by)." packages";
+ }
+ push @res_pkgs, dep_item( "$ROOT/$path/$p_name",
+ $p_name, "$pkg_version$arch_str", $short_desc );
+ } else {
+ $entries{$p_name} ||= $entry;
+ $short_desc = encode_entities( $short_desc, "<>&\"" );
+ push @res_pkgs, dep_item( "$ROOT/$path/$p_name",
+ $p_name, "$pkg_version$arch_str", $short_desc );
+ }
+ } elsif ( $is_old_pkgs ) {
+ push @res_pkgs, dep_item( undef, $p_name, "$pkg_version$arch_str" );
+ } else {
+ my $short_desc = _g( "Package not available" );
+ push @res_pkgs, dep_item( undef, $p_name, "$pkg_version$arch_str", $short_desc );
+ }
+
+ }
+
+ $res .= "\n".join( "- "._g( "or" )." ", @res_pkgs )."\n"; + } + if (@$relations) { + $res .= "
- ';
my $ds_item_desc = '
- '; my $ds_item = ':
- ';
@@ -277,85 +369,86 @@ sub header {
my $page_title = $params{page_title} || $params{title} || '';
my $meta = $params{meta} || '';
- if ($params{print_title_above}) {
- $title_in_header = "
$title_in_header
"; - } else { - $title_in_header = ''; - } - my $search_in_header = ''; $params{print_search_field} ||= ""; if ($params{print_search_field} eq 'packages') { my %values = %{$params{search_field_values}}; my %checked_searchon = ( names => "", all => "", - sourcenames => "", ); + sourcenames => "", + contents => ""); $checked_searchon{$values{searchon}} = "checked=\"checked\""; + $checked_searchon{names} = "checked=\"checked\"" + if $values{searchon} eq 'default'; $search_in_header = <