X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=cgi%2Fversion.cgi;h=cd9abd72de748e965f9efcd6b9bd0c9df46e1ba8;hb=4c244879af2b9e8c0055968d7ffb054646cb7607;hp=ed0be6304ac58e094ffe4e3d8d458238e9391e48;hpb=ad165e414fc1b8cb7253c481a1d1efa1abcb3036;p=debbugs.git diff --git a/cgi/version.cgi b/cgi/version.cgi index ed0be63..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"; } @@ -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 '