use Debbugs::CGI::Bugreport qw(:all);
use Debbugs::Common qw(buglog getmaintainers make_list bug_status);
use Debbugs::Packages qw(getpkgsrc);
+use Debbugs::DB;
use Debbugs::Status qw(splitpackages split_status_fields get_bug_status isstrongseverity);
use Scalar::Util qw(looks_like_number);
use URI::Escape qw(uri_escape_utf8);
use List::AllUtils qw(max);
+my $s;
+if (defined $config{database}) {
+ $s = Debbugs::DB->connect($config{database}) or
+ die "Unable to connect to database";
+}
use CGI::Simple;
my $q = new CGI::Simple;
if ($need_status) {
%status = %{split_status_fields(get_bug_status(bug=>$ref,
bugusertags => \%bugusertags,
+ defined $s?(schema => $s):(),
))}
}
hole_var => {'&package_links' => \&Debbugs::CGI::package_links,
'&bug_links' => \&Debbugs::CGI::bug_links,
'&version_url' => \&Debbugs::CGI::version_url,
- '&bug_url' => \&Debbugs::CGI::bug_url,
'&strftime' => \&POSIX::strftime,
'&maybelink' => \&Debbugs::CGI::maybelink,
},