Subversion Repositories debpool

Compare Revisions

Ignore whitespace Rev 7 → Rev 6

/branches/magnus/debian/changelog
2,10 → 2,8
 
* Check the require_sigs_meta option, not require_sigs, to see whether
.dsc and .changes files have to be signed.
* Release.pm: Store the checksum hashes in a list instead of a hash
(Closes: #415323).
 
-- Magnus Holmgren <magnus@kibibyte.se> Sun, 1 Apr 2007 15:11:37 +0200
-- Magnus Holmgren <magnus@kibibyte.se> Sun, 1 Apr 2007 11:50:01 +0200
 
debpool (0.2.3) experimental; urgency=low
 
/branches/magnus/share/DebPool/Release.pm
118,7 → 118,7
 
my($archive, $component, $architecture, $version) = @_;
 
my(@Checksums);
my(%Checksums);
 
# Before we bother to do much else, generate the MD5 and SHA1 checksums
# we'll need later. This is mostly so that we can catch errors before
140,7 → 140,9
# Now, for each file, generate MD5 and SHA1 checksums, and put them
# into Checksums for later use (assuming it's a file we care about).
 
foreach my $ck_file (@dirfiles) {
my($ck_file);
 
foreach $ck_file (@dirfiles) {
if (0 == grep(/^$ck_file$/, @SigFiles)) { # We don't care about it.
next;
}
167,8 → 169,7
my($md5) = Digest::MD5::md5_hex(@filetext);
my($sha1) = Digest::SHA1::sha1_hex(@filetext);
 
push @Checksums, {
'File' => $ck_file,
$Checksums{$ck_file} = {
'Size' => $size,
'MD5' => $md5,
'SHA1' => $sha1,
198,15 → 199,15
# Now print MD5 and SHA1 checksum lists.
 
print $tmpfile_handle "MD5Sum:\n";
foreach my $checksum (@Checksums) {
printf $tmpfile_handle " %s %8d %s\n", $checksum->{'MD5'},
$checksum->{'Size'}, $checksum->{'File'};
foreach $ck_file (keys(%Checksums)) {
printf $tmpfile_handle " %s %8d %s\n", $Checksums{$ck_file}->{'MD5'},
$Checksums{$ck_file}->{'Size'}, $ck_file;
}
 
print $tmpfile_handle "SHA1:\n";
foreach my $checksum (@Checksums) {
printf $tmpfile_handle " %s %8d %s\n", $checksum->{'SHA1'},
$checksum->{'Size'}, $checksum->{'File'};
foreach $ck_file (keys(%Checksums)) {
printf $tmpfile_handle " %s %8d %s\n", $Checksums{$ck_file}->{'SHA1'},
$Checksums{$ck_file}->{'Size'}, $ck_file;
}
 
close($tmpfile_handle);
231,7 → 232,7
my($version) = shift(@_);
my(@files) = @_;
 
my(@Checksums);
my(%Checksums);
my($dists_dir) = $Options{'dists_dir'};
 
# Before we bother to do much else, generate the MD5 and SHA1 checksums
260,8 → 261,7
my($md5) = Digest::MD5::md5_hex(@filetext);
my($sha1) = Digest::SHA1::sha1_hex(@filetext);
push @Checksums, {
'File' => $file,
$Checksums{$file} = {
'Size' => $size,
'MD5' => $md5,
'SHA1' => $sha1,
290,15 → 290,15
# Now print MD5 and SHA1 checksum lists.
 
print $tmpfile_handle "MD5Sum:\n";
foreach $file (@Checksums) {
printf $tmpfile_handle " %s %8d %s\n", $file->{'MD5'},
$file->{'Size'}, $file->{'File'};
foreach $file (keys(%Checksums)) {
printf $tmpfile_handle " %s %8d %s\n", $Checksums{$file}->{'MD5'},
$Checksums{$file}->{'Size'}, $file;
}
 
print $tmpfile_handle "SHA1:\n";
foreach $file (@Checksums) {
printf $tmpfile_handle " %s %8d %s\n", $file->{'SHA1'},
$file->{'Size'}, $file->{'File'};
foreach $file (keys(%Checksums)) {
printf $tmpfile_handle " %s %8d %s\n", $Checksums{$file}->{'SHA1'},
$Checksums{$file}->{'Size'}, $file;
}
 
close($tmpfile_handle);