From: Don Armstrong <don@volo>
Date: Wed, 21 Feb 2007 08:09:50 +0000 (-0800)
Subject: remove useless duplicated functions
X-Git-Tag: release/2.6.0~585^2^2~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=58e4bee353b3570f306e84567f1e38efa00f80f8;p=debbugs.git

remove useless duplicated functions
---

diff --git a/Debbugs/CGI.pm b/Debbugs/CGI.pm
index ea4d67b9..e8321299 100644
--- a/Debbugs/CGI.pm
+++ b/Debbugs/CGI.pm
@@ -32,6 +32,7 @@ use HTML::Entities;
 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);
@@ -52,7 +53,7 @@ BEGIN{
 				qw(maybelink htmlize_addresslinks htmlize_maintlinks),
 			       ],
 		     util   => [qw(cgi_parameters quitcgi),
-				qw(getmaintainers getpseudodesc splitpackages)
+				qw(getmaintainers getpseudodesc)
 			       ],
 		     #status => [qw(getbugstatus)],
 		    );
@@ -340,14 +341,6 @@ sub htmlize_bugstatus {
     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
diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index c49902e7..65c20c20 100755
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -16,7 +16,7 @@ use Debbugs::MIME qw(convert_to_utf8 decode_rfc1522 create_mime_message);
 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;
diff --git a/cgi/common.pl b/cgi/common.pl
index 3de27b2e..5805907c 100644
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -11,13 +11,13 @@ use URI::Escape;
 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;
@@ -236,22 +236,6 @@ $debug = 1 if (defined $ret{"debug"} && $ret{"debug"} eq "aj");
     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.
@@ -386,8 +370,6 @@ sub urlargs {
     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] || ""); }
diff --git a/cgi/version.cgi b/cgi/version.cgi
index d75edcf2..105111a3 100755
--- a/cgi/version.cgi
+++ b/cgi/version.cgi
@@ -131,6 +131,8 @@ my %state = (found  => ['fillcolor="salmon"',
 			'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}
diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index 18c13425..a93c79bf 100755
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -68,13 +68,6 @@ sub escapelog {
 	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);