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