X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=cgi%2Fversion.cgi;h=cd9abd72de748e965f9efcd6b9bd0c9df46e1ba8;hb=800c1c33297fa0971aec40ff47f380db8e1d08bc;hp=d1e8960b700b5fc9bbe877dc490a9c3d9eea0e37;hpb=46fa42780ecb746d7bec2fb01190b05584b9283e;p=debbugs.git diff --git a/cgi/version.cgi b/cgi/version.cgi index d1e8960..cd9abd7 100755 --- 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 < -$cgi_var{package} Version Graph - END + print ''.html_escape($cgi_var{package}).' Version Graph'."\n"; + print "\n"; print '['.($cgi_var{ignore_boring}?"Don't i":'I').'gnore boring] '; print '