- }
- $package_page .= "</table><p>".gettext ( "Size is measured in kBytes." )."</p>\n";
- $package_page .= "</div> <!-- end pdownload -->\n";
-
- #
- # more information
- #
- $package_page .= pmoreinfo( name => $name, env => $env, data => $d,
- bugreports => 1, sourcedownload => 1,
- changesandcopy => 1, maintainers => 1,
- search => 1 );
-
- #
- # Trailer
- #
- my @tr_langs = ();
- foreach my $l (@{$env->{langs}}) {
- next if $l eq $lang;
- push @tr_langs, $l if ( $l eq 'en' )
- || $env->{db}->is_translated( $name, $d->{version},
- ${$versions{v2a}{$d->{version}}}[0],
- $l );
- }
- $package_page .= trailer( '../..', $name, $lang, @tr_langs );
-
- #
- # write file
- #
- $files->update_file( $filename, $package_page );
-
- #
- # create data sheet
- #
- if($lang eq 'en') {
- my $data_sheet = header( title => "$name -- Data sheet",
- lang => "en",
- desc => $short_desc,
- keywords => "$env->{distribution}, $subsuite_kw, $d->{section}, $d->{subsection}, size:$size_kw $d->{version}" );
-
- my $ds_title = $name;
- if ( $d->{subsuite} ) {
- $ds_title .= " ".marker( $d->{subsuite} );
- }
- if ( $d->{section} ne 'main' ) {
- $ds_title .= " ".marker( $d->{section} );
- }
- $data_sheet .= title( $ds_title );
-
- $data_sheet .= ds_begin;
- $data_sheet .= ds_item(gettext( "Version" ), $d->{v_str_arch});
-
- my @uploaders = @{$d->{uploaders}};
- my ( $maint_name, $maint_email ) = @{shift @uploaders};
- $data_sheet .= ds_item(gettext( "Maintainer" ),
- "<a href=\"$DDPO_URL".
- uri_escape($maint_email).
- "\">".encode_entities($maint_name, '&<>')."</a>" );
- if (@uploaders) {
- my @uploaders_str;
- foreach (@uploaders) {
- push @uploaders_str, "<a href=\"$DDPO_URL".uri_escape($_->[1])."\">".encode_entities($_->[0], '&<>')."</a>";
- }
- $data_sheet .= ds_item(gettext( "Uploaders" ),
- join( ",\n ", @uploaders_str ));
- }
- $data_sheet .= ds_item(gettext( "Section" ),
- "<a href=\"../$d->{subsection}/\">$d->{subsection}</a>");
- $data_sheet .= ds_item(gettext( "Priority" ),
- "<a href=\"../$d->{priority}\">$d->{priority}</a>");
- $data_sheet .= ds_item(gettext( "Essential" ),
- "<a href=\"../essential\">".
- gettext("yes")."</a>")
- if $d->{essential} =~ /yes/i;
- $data_sheet .= ds_item(gettext( "Source package" ),
- "<a href=\"../source/$d->{src_name}\">$d->{src_name}</a>");
- $data_sheet .= print_deps_ds( $env, $pkg, $d->{depends}, 'Depends' );
- $data_sheet .= print_deps_ds( $env, $pkg, $d->{recommends}, 'Recommends' );
- $data_sheet .= print_deps_ds( $env, $pkg, $d->{suggests}, 'Suggests' );
- $data_sheet .= print_deps_ds( $env, $pkg, $d->{enhances}, 'Enhances' );
- $data_sheet .= print_deps_ds( $env, $pkg, $d->{conflicts}, 'Conflicts' );
- $data_sheet .= print_deps_ds( $env, $pkg, $d->{provides}, 'Provides' );
-# $data_sheet .= print_reverse_rel_ds( $env, $pkg, \%versions, 'Depends' );
-# $data_sheet .= print_reverse_rel_ds( $env, $pkg, \%versions, 'Recommends' );
-# $data_sheet .= print_reverse_rel_ds( $env, $pkg, \%versions, 'Suggests' );
-# $data_sheet .= print_reverse_rel_ds( $env, $pkg, \%versions, 'Enhances' );
-# $data_sheet .= print_reverse_rel_ds( $env, $pkg, \%versions, 'Provides' );
-# $data_sheet .= print_reverse_rel_ds( $env, $pkg, \%versions, 'Conflicts' );
-# $data_sheet .= print_reverse_rel_ds( $env, $pkg, \%versions, 'Build-Depends' );
-# $data_sheet .= print_reverse_rel_ds( $env, $pkg, \%versions, 'Build-Depends-Indep' );
-# $data_sheet .= print_reverse_rel_ds( $env, $pkg, \%versions, 'Build-Conflicts' );
-
-# if ( $name eq 'libc6' ) {
-# use Data::Dumper;
-# print STDERR Dumper( $pkg );
-# }
-
- $data_sheet .= ds_end;