From: Steinar H. Gunderson <sesse@rietz>
Date: Sat, 10 Mar 2007 20:58:31 +0000 (+0000)
Subject: Remove old NMU-related code that hasn't been useful nor working for
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=eeb9193b817dc0b95ce845911c8d9cab4759c8ef;p=bugscan.git

Remove old NMU-related code that hasn't been useful nor working for
quite a while.
---

diff --git a/bugreport b/bugreport
index 63f8874..1686ae8 100755
--- a/bugreport
+++ b/bugreport
@@ -12,9 +12,6 @@ use warnings;
 my $Version		= "BugReport 1.4\nCopyright (C) 1998-2002 Wichert Akkerman <wakkerma\@debian.org>\n";
 my $html		= 0;
 my $statusfile		= "status";
-my $NMUfile		= "/debian/home/doogie/public_html/incoming/bugs_closed";
-$NMUfile		= "/debian/home/doogie/chgscan/db/bugs_closed"; # Changed as of request by dark  -Joey, 99/11/22
-$NMUfile		= "http://auric.debian.org/~doogie/incoming/bugs_closed"; # Changed as of request by dark  -Joey, 99/11/22
 
 sub ShowVersion() {
 	print "$Version\n";
@@ -111,7 +108,6 @@ sub MakeBuglist() {
 			} else {
 				printf("  %-6d %s\n", $nr, $scanlib::bugs{$nr});
 			}
-			print "[FIX] Fixed by package " . $scanlib::NMU{$nr, "source"} . ", version " . $scanlib::NMU{$nr, "version"} . " in Incoming\n" if (defined $scanlib::NMU{$nr});
 			print "</span>" if ($html && ($scanlib::bugs{$nr} =~ m/^\[[^]]*[H+P]/ ||
 			                              $scanlib::bugs{$nr} =~ m/ \[[^]]*X/));
 		}
@@ -191,7 +187,6 @@ $statusfile=$opt_S if ($opt_S);
 $html=1 if ($opt_H);
 
 scanlib::readstatus($statusfile);
-# scanlib::readNMUstatus($NMUfile);
 
 FilterPackages($opt_d) if ($opt_d);
 FilterBugs() if ($opt_t);
diff --git a/scanlib.pm b/scanlib.pm
index d8d0467..bda4277 100644
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -11,7 +11,6 @@
 #   %maintainer     - map from packagename to maintainer
 #   %section        - map from packagename to section in the FTP-site
 #   %packagelist    - map from packagename to bugreports
-#   %NMU            - map with NMU information
 
 use lib qw(/org/bugs.debian.org/perl);
 use LWP::UserAgent;
@@ -25,7 +24,7 @@ use warnings;
 require bugcfg;
 package scanlib;
 
-our (%premature,%exclude,%maintainer,%section,%packagelist,%NMU,%debbugssection,%bugs);
+our (%premature,%exclude,%maintainer,%section,%packagelist,%debbugssection,%bugs);
 
 
 # Read the list of maintainer 
@@ -288,37 +287,6 @@ sub readstatus() {
 }
 
 
-sub readNMUstatus() {
-	my $bug;       # Number of current bug
-	my $source;    # Source upload which closes this bug.
-	my $version;   # Version where this bug was closed.
-	my $flag;      # Whether this paragraph has been processed.
-	my ($field, $value);
-
-	for (split /\n/, LWP::UserAgent->new->request(HTTP::Request->new(GET => shift))->content) {
-		chomp;
-		if (m/^$/) {
-			$NMU{$bug} = 1;
-			$NMU{$bug, "source"} = $source;
-			$NMU{$bug, "version"} = $version;
-			$flag = 0;
-		} else {
-			($field, $value) = split(/: /, $_, 2);
-			$bug = $value if($field =~ /bug/i);
-			$source = $value if($field =~ /source/i);
-			$version = $value if($field =~ /version/i);
-			$flag = 1;
-		}
-	}
-	if ($flag) {
-		$NMU{$bug} = 1;
-		$NMU{$bug, "source"} = $source;
-		$NMU{$bug, "version"} = $version;
-	}
-	close P;
-}
-
-
 sub urlsanit {
 	my $url = shift;
 	$url =~ s/%/%25/g;