X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=cgi%2Fsearch.cgi;h=275be8ab3f232e87b162135b6f9d515036eccd20;hb=refs%2Fheads%2Fdebian;hp=b1f5e09f84724a8b3e38377db960073d275b7ce9;hpb=f492418a6fe1653c67d9f26428da65f1b584cee6;p=debbugs.git
diff --git a/cgi/search.cgi b/cgi/search.cgi
index b1f5e09..275be8a 100755
--- a/cgi/search.cgi
+++ b/cgi/search.cgi
@@ -3,11 +3,11 @@
use warnings;
use strict;
-# Hack to work on merkel where suexec is in place
+# Hack to work on bugs-search.debian.org
BEGIN{
- if ($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";
+ if ($ENV{HTTP_HOST} eq 'bugs-search.debian.org') {
+ unshift @INC, qw(/srv/bugs.debian.org/source/debian/);
+ $ENV{DEBBUGS_CONFIG_FILE}="/srv/bugs.debian.org/etc/config";
}
}
@@ -198,11 +198,11 @@ for my $attribute (@{$cgi_var{attribute}}) {
}
print qq(\n);
$$attribute{value}='' if not defined $$attribute{value};
- print qq( \n);
+ print qq( \n);
$attr_num++;
}
-print qq( );
+print qq( );
# order
@@ -269,9 +269,9 @@ if (defined $nres) {
my $showseverity;
$showseverity = "Severity: $attr{severity};\n";
print <#${bugnum}: $attr{'@title'} @{[htmlize_packagelinks($attr{package})]}
-$showseverity
-Sent by: @{[encode_entities($attr{'@author'})]} at $attr{'@cdate'}
+
#${bugnum}: $attr{'@title'} @{[htmlize_packagelinks($attr{package})]}
+$showseverity
+Sent by: @{[encode_entities($attr{'@author'})]} at $attr{'@cdate'}
END
# Deal with the snippet
# make the things that match bits of the phrase bold, the rest normal.