use Debbugs::Common qw(getparsedaddrs);
use Params::Validate qw(validate_with :types);
use Debbugs::Config qw(:config);
+use Debbugs::Status qw(splitpackages);
use Mail::Address;
use POSIX qw(ceil);
use Storable qw(dclone);
qw(maybelink htmlize_addresslinks htmlize_maintlinks),
],
util => [qw(cgi_parameters quitcgi),
- qw(getmaintainers getpseudodesc splitpackages)
+ qw(getmaintainers getpseudodesc)
],
#status => [qw(getbugstatus)],
);
return $result;
}
-# Split a package string from the status file into a list of package names.
-sub splitpackages {
- my $pkgs = shift;
- return unless defined $pkgs;
- return map lc, split /[ \t?,()]+/, $pkgs;
-}
-
-
=head2 htmlize_packagelinks
htmlize_packagelinks
use Debbugs::CGI qw(:url :html :util);
use Debbugs::Common qw(buglog);
use Debbugs::Packages qw(getpkgsrc);
-use Debbugs::Status qw(get_bug_status isstrongseverity);
+use Debbugs::Status qw(splitpackages get_bug_status isstrongseverity);
use Scalar::Util qw(looks_like_number);
use CGI::Simple;
use Debbugs::Config qw(:globals :text);
$config_path = '/etc/debbugs';
$lib_path = '/usr/lib/debbugs';
-require "$lib_path/errorlib";
+#require "$lib_path/errorlib";
use Debbugs::Packages qw(:versions :mapping);
use Debbugs::Versions;
use Debbugs::MIME qw(decode_rfc1522);
use Debbugs::Common qw(:util);
-use Debbugs::Status qw(:read :versions);
+use Debbugs::Status qw(:status :read :versions);
use Debbugs::CGI qw(:all);
$MLDBM::RemoveTaint = 1;
return %ret;
}
-#sub abort {
-# my $msg = shift;
-# my $Archive = $common_archive ? "archive" : "";
-# print header . start_html("Sorry");
-# print "Sorry bug #$msg doesn't seem to be in the $Archive database.\n";
-# print end_html;
-# exit 0;
-#}
-
-# Split a package string from the status file into a list of package names.
-sub splitpackages {
- my $pkgs = shift;
- return unless defined $pkgs;
- return map lc, split /[ \t?,()]+/, $pkgs;
-}
-
# Generate a comma-separated list of HTML links to each package given in
# $pkgs. $pkgs may be empty, in which case an empty string is returned, or
# it may be a comma-separated list of package names.
return $args;
}
-sub submitterurl { pkg_url(submitter => emailfromrfc822($_[0] || "")); }
-sub mainturl { pkg_url(maint => emailfromrfc822($_[0] || "")); }
sub pkgurl { pkg_url(pkg => $_[0] || ""); }
sub srcurl { pkg_url(src => $_[0] || ""); }
sub tagurl { pkg_url(tag => $_[0] || ""); }
'shape="rect"',
],
);
+# TODO: Allow collapsing versions which are at the same state and not
+# in a suite.
foreach my $key (keys %all_states) {
my ($short_version) = $key =~ m{/(.+)$};
next if $cgi_var{ignore_boring} and (not defined $all_states{$key}
return \@log;
}
-sub isstrongseverity {
- my $severity = shift;
- $severity = $gDefaultSeverity if $severity eq '';
- return grep { $_ eq $severity } @gStrongSeverities;
-}
-
-
@severities= grep { not exists $gObsoleteSeverities{$_} } @gSeverityList;
@showseverities= @severities;
grep ($_= $_ eq '' ? $gDefaultSeverity : $_, @showseverities);