X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=lib%2FPackages%2FHTML.pm;h=9f019fb79449758b1fc73701ae07a7b9c665b809;hb=02ce5077a342d33136fe8e3a8568f8291d25e11a;hp=1003949ff07ba3b12de4446c50292e84e328e148;hpb=e41d34b008ea4b4ad09b5eea457d7523c7ef2fa3;p=deb%2Fpackages.git diff --git a/lib/Packages/HTML.pm b/lib/Packages/HTML.pm index 1003949..9f019fb 100644 --- a/lib/Packages/HTML.pm +++ b/lib/Packages/HTML.pm @@ -6,34 +6,27 @@ use warnings; use URI::Escape; use HTML::Entities; -use Packages::Util; -use Packages::I18N::Locale; -use Packages::I18N::Languages; -use Packages::I18N::LanguageNames; -use Generated::Strings qw( gettext dgettext ); +use Packages::CGI; +use Packages::Search qw( read_entry_simple ); +use Packages::Config qw( :all ); + +#use Packages::Util; +#use Packages::I18N::Locale; +#use Packages::I18N::Languages; +#use Packages::I18N::LanguageNames; +#use Generated::Strings qw( gettext dgettext ); + +# dummy routines +sub get_charset { return "utf-8" }; +sub gettext { return $_[0]; }; our @ISA = qw( Exporter ); our @EXPORT = qw( header title trailer file_changed time_stamp read_md5_hash write_md5_hash simple_menu ds_begin ds_item ds_end note title marker pdesc - pdeplegend pkg_list pmoreinfo ); - -our $HOME = "http://www.debian.org"; -our $CONTACT_MAIL = 'debian-www@lists.debian.org'; -our $WEBMASTER_MAIL = 'webmaster@debian.org'; -our $SEARCH_PAGE = "http://packages.debian.org/"; -our $CGI_ROOT = "http://packages.debian.org/cgi-bin"; -our $CN_HELP_URL = "${HOME}/intro/cn"; -our $CHANGELOG_URL = '/changelogs'; -our $COPYRIGHT_URL = '/changelogs'; -our $SEARCH_URL = '/cgi-bin/search_packages.pl?searchon=names&version=all&exact=1&keywords='; -our $SRC_SEARCH_URL = '/cgi-bin/search_packages.pl?searchon=sourcenames&version=all&exact=1&keywords='; -our $BUG_URL = 'http://bugs.debian.org/'; -our $SRC_BUG_URL = 'http://bugs.debian.org/src:'; -our $QA_URL = 'http://packages.qa.debian.org/'; - + pdeplegend pkg_list pmoreinfo print_deps print_src_deps ); -my %img_trans = ( pt_BR => "pt", pt_PT => "pt", sv_SE => "sv" ); +our $CHANGELOG_URL = '/changelogs'; sub img { my ( $root, $url, $src, $alt, %attr ) = @_; @@ -59,20 +52,7 @@ sub title { } sub marker { - return "[$_[0]]"; -} - -sub note { - my ( $title, $note ) = @_; - my $str = ""; - - if ($note) { - $str .= "
$note
"; - return $str; + return "[$_[0]]"; } sub pdesc { @@ -89,10 +69,10 @@ sub pdesc { } sub pdeplegend { - my $str = "[0].gif\" alt=\"[$entry->[0]]\" width=\"16\" height=\"16\">= $entry->[1] | "; + $str .= "[0].gif\" alt=\"[$entry->[0]]\" width=\"16\" height=\"16\">= $entry->[1] | "; } $str .= "\n
\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( 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 $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 "; } - 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( gettext( "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( gettext( "Search for other versions of %s" ), + "$search_url/$encodedname", $name )."
\n"; } $str .= "