admin: distfiles/specparser.pl - handle proper md5 sums in rpm format

[patrys]

Author: patrys                       Date: Tue Jan  8 16:45:00 2008 GMT
Module: admin                         Tag: HEAD
---- Log message:
- handle proper md5 sums in rpm format

---- Files affected:
admin/distfiles:
   specparser.pl (1.15 -> 1.16) 

---- Diffs:

================================================================
Index: admin/distfiles/specparser.pl
diff -u admin/distfiles/specparser.pl:1.15 admin/distfiles/specparser.pl:1.16
--- admin/distfiles/specparser.pl:1.15	Tue Mar 20 09:53:34 2007
+++ admin/distfiles/specparser.pl	Tue Jan  8 17:44:55 2008
@@ -265,6 +265,23 @@
 
 			$sourceno = undef;
 			$source = undef;
+		} elsif (/^\s*BuildRequires:\s*digest\(%SOURCE(\d+)\)\s*=\s*([a-f0-9]{32})/i) {
+			my $no = $1;
+			my $md5 = $2;
+			if (defined $no_source{$no}) {
+				error("both NoSource: $no and md5 given");
+			} if (defined $sourceno) {
+				if ($sourceno == $no) {
+					push @sources, [$no, $md5, $source];
+				} else {
+					error("found md5 for source $no, but last defined source is $sourceno (# SourceN-md5: has to be placed just after SourceN:)");
+				}
+			} else {
+				error("source $no not defined (# SourceN-md5: has to be placed just after SourceN:)");
+			}
+
+			$sourceno = undef;
+			$source = undef;
 		}
 	}
 	close(F);
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/admin/distfiles/specparser.pl?r1=1.15&r2=1.16&f=u