From: Frank Lichtenheld <frank@lichtenheld.de>
Date: Wed, 12 Sep 2007 00:40:58 +0000 (+0000)
Subject: Merge commit 'origin/master' into debian-master
X-Git-Url: https://git.deb.at/?a=commitdiff_plain;h=eb6e312fd73061c1f55d0696ab6686d567831498;hp=-c;p=deb%2Fpackages.git

Merge commit 'origin/master' into debian-master
---

eb6e312fd73061c1f55d0696ab6686d567831498
diff --combined lib/Packages/Dispatcher.pm
index d99425e,a360ddf..bc439b9
--- a/lib/Packages/Dispatcher.pm
+++ b/lib/Packages/Dispatcher.pm
@@@ -25,6 -25,7 +25,7 @@@ use warnings
  use CGI;
  use POSIX;
  use File::Basename;
+ use URI;
  use URI::Escape;
  use HTML::Entities;
  use Template;
@@@ -138,7 -139,7 +139,7 @@@ sub do_dispatch 
  
      my $what_to_do = 'show';
      my $source = 0;
 -    if (my $path = $input->path_info() || $input->param('PATH_INFO')) {
 +    if (my $path = $ENV{'PATH_INFO'} || $input->param('PATH_INFO')) {
  	my @components = grep { $_ } map { lc $_ } split /\/+/, $path;
  
  	debug( "PATH_INFO=$path components=@components", 3) if DEBUG;
@@@ -332,6 -333,11 +333,11 @@@ Packages::CGI::init_url( $input, \%para
  
      $page_content{make_search_url} = sub { return &Packages::CGI::make_search_url(@_) };
      $page_content{make_url} = sub { return &Packages::CGI::make_url(@_) };
+     $page_content{extract_host} = sub { my $uri = URI->new($_[0]);
+                                         my $host = $uri->host;
+                                         $host .= ':'.$uri->port if $uri->port != $uri->default_port;
+                                         return $host;
+                                       };
      # needed to work around the limitations of the the FILTER syntax
      $page_content{html_encode} = sub { return HTML::Entities::encode_entities(@_,'<>&"') };
      $page_content{uri_escape} = sub { return URI::Escape::uri_escape(@_) };