# 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";
}
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);
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)).
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);
}