next release will be 2.6.0; document more issues which have been fixed

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

index d1e8960b700b5fc9bbe877dc490a9c3d9eea0e37..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)).