Stop URLs at " too. Thanks to Vincent Lefevre (Closes: #766354).

[debbugs.git] / cgi / version.cgi
diff --git a/cgi/version.cgi b/cgi/version.cgi

index f6f377c22f5e909f1f94c723edc281132acd85b9..cd9abd72de748e965f9efcd6b9bd0c9df46e1ba8 100755 (executable)
--- a/cgi/version.cgi
+++ b/cgi/version.cgi
@@ -5,7 +5,7 @@ use strict;
  
  # Hack to work on merkel where suexec is in place
  BEGIN{
-     if ($ENV{HTTP_HOST} eq 'merkel.debian.org') {
+     if (defined $ENV{HTTP_HOST} and $ENV{HTTP_HOST} eq 'merkel.debian.org') {
           unshift @INC, qw(/home/don/perl/usr/share/perl5 /home/don/perl/usr/lib/perl5 /home/don/source);
           $ENV{DEBBUGS_CONFIG_FILE}="/home/don/config_internal";
       }
@@ -15,12 +15,12 @@ BEGIN{
  use CGI::Simple;
  
  # by default send this message nowhere
-use CGI::Alert q(nobody@example.com);
+# use CGI::Alert q(nobody@example.com);
  
  use Debbugs::Config qw(:config);
  
  BEGIN{
-     $CGI::Alert::Maintainer = $config{maintainer};
+     # $CGI::Alert::Maintainer = $config{maintainer};
  }
  
  use Debbugs::CGI qw(htmlize_packagelinks html_escape cgi_parameters munge_url);
@@ -93,9 +93,9 @@ if ($cgi_var{info} and not defined $cgi_var{dot}) {
       print <<END;
  <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  <html>
-<head><title>$cgi_var{package} Version Graph</title></head>
-<body>
  END
+     print '<head><title>'.html_escape($cgi_var{package}).' Version Graph</title></head>'."\n";
+     print "<body>\n";
       print '<a href="'.html_escape(munge_url($this,ignore_boring=>$cgi_var{ignore_boring}?0:1)).
           '">['.($cgi_var{ignore_boring}?"Don't i":'I').'gnore boring]</a> ';
       print '<a href="'.html_escape(munge_url($this,collapse=>$cgi_var{collapse}?0:1)).
@@ -125,7 +125,7 @@ my $version = Debbugs::Versions->new(\&Debbugs::Versions::Dpkg::vercmp);
  foreach my $source (keys %sources) {
       my $srchash = substr $source, 0, 1;
       next unless -e "$config{version_packages_dir}/$srchash/$source";
-     my $version_fh = IO::File->("$config{version_packages_dir}/$srchash/$source", 'r') or
+     my $version_fh = IO::File->new("$config{version_packages_dir}/$srchash/$source", 'r') or
           warn "Unable to open $config{version_packages_dir}/$srchash/$source for reading: $!";
       $version->load($version_fh);
  }