X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=dgit;h=fa926dd0096d4db23a4a5af959030f6f4ccef7f2;hp=34152eec985ae6aeb36b1b259a2498262025887d;hb=7242402070505378d702b476e54f19c9b635b03e;hpb=55139a910de527575606d9efa0defdbf28c96c65

diff --git a/dgit b/dgit
index 34152eec..fa926dd0 100755
--- a/dgit
+++ b/dgit
@@ -1414,10 +1414,13 @@ sub mktree_in_ud_from_only_subdir (;$) {
     return ($tree,$dir);
 }
 
+our @files_csum_info_fields = 
+    (['Checksums-Sha256','Digest::SHA', 'new(256)'],
+     ['Checksums-Sha1',  'Digest::SHA', 'new(1)'],
+     ['Files',           'Digest::MD5', 'new()']);
+
 sub dsc_files_info () {
-    foreach my $csumi (['Checksums-Sha256','Digest::SHA', 'new(256)'],
-		       ['Checksums-Sha1',  'Digest::SHA', 'new(1)'],
-		       ['Files',           'Digest::MD5', 'new()']) {
+    foreach my $csumi (@files_csum_info_fields) {
 	my ($fname, $module, $method) = @$csumi;
 	my $field = $dsc->{$fname};
 	next unless defined $field;
@@ -1445,6 +1448,65 @@ sub dsc_files () {
     map { $_->{Filename} } dsc_files_info();
 }
 
+sub files_compare_inputs (@) {
+    my $inputs = \@_;
+    my %record;
+    my %fchecked;
+
+    my $showinputs = sub {
+	return join "; ", map { $_->get_option('name') } @$inputs;
+    };
+
+    foreach my $in (@$inputs) {
+	my $expected_files;
+	my $in_name = $in->get_option('name');
+
+	printdebug "files_compare_inputs $in_name\n";
+
+	foreach my $csumi (@files_csum_info_fields) {
+	    my ($fname) = @$csumi;
+	    printdebug "files_compare_inputs $in_name $fname\n";
+
+	    my $field = $in->{$fname};
+	    next unless defined $field;
+
+	    my @files;
+	    foreach (split /\n/, $field) {
+		next unless m/\S/;
+
+		my ($info, $f) = m/^(\w+ \d+) (?:\S+ \S+ )?(\S+)$/ or
+		    fail "could not parse $in_name $fname line \`$_'";
+
+		printdebug "files_compare_inputs $in_name $fname $f\n";
+
+		push @files, $f;
+
+		my $re = \ $record{$f}{$fname};
+		if (defined $$re) {
+		    $fchecked{$f}{$in_name} = 1;
+		    $$re eq $info or
+			fail "hash or size of $f varies in $fname fields".
+			" (between: ".$showinputs->().")";
+		} else {
+		    $$re = $info;
+		}
+	    }
+	    @files = sort @files;
+	    $expected_files //= \@files;
+	    "@$expected_files" eq "@files" or
+		fail "file list in $in_name varies between hash fields!";
+	}
+	$expected_files or
+	    fail "$in_name has no files list field(s)";
+    }
+    printdebug "files_compare_inputs ".Dumper(\%fchecked, \%record)
+	if $debuglevel>=2;
+
+    grep { keys %$_ == @$inputs-1 } values %fchecked
+	or fail "no file appears in all file lists".
+	" (looked in: ".$showinputs->().")";
+}
+
 sub is_orig_file_in_dsc ($$) {
     my ($f, $dsc_files_info) = @_;
     return 0 if @$dsc_files_info <= 1;
@@ -3163,6 +3225,10 @@ END
 	$changesfile = "$buildproductsdir/$changesfile";
     }
 
+    # Check that changes and .dsc agree enough
+    $changesfile =~ m{[^/]*$};
+    files_compare_inputs($dsc, parsecontrol($changesfile,$&));
+
     # Checks complete, we're going to try and go ahead:
 
     responder_send_file('changes',$changesfile);