Subversion Repositories debpool

Compare Revisions

Ignore whitespace Rev 6 → Rev 7

/branches/magnus/debian/changelog
2,8 → 2,10
 
* 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 11:50:01 +0200
-- Magnus Holmgren <magnus@kibibyte.se> Sun, 1 Apr 2007 15:11:37 +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,9 → 140,7
# 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).
 
my($ck_file);
 
foreach $ck_file (@dirfiles) {
foreach my $ck_file (@dirfiles) {
if (0 == grep(/^$ck_file$/, @SigFiles)) { # We don't care about it.
next;
}
169,7 → 167,8
my($md5) = Digest::MD5::md5_hex(@filetext);
my($sha1) = Digest::SHA1::sha1_hex(@filetext);
 
$Checksums{$ck_file} = {
push @Checksums, {
'File' => $ck_file,
'Size' => $size,
'MD5' => $md5,
'SHA1' => $sha1,
199,15 → 198,15
# Now print MD5 and SHA1 checksum lists.
 
print $tmpfile_handle "MD5Sum:\n";
foreach $ck_file (keys(%Checksums)) {
printf $tmpfile_handle " %s %8d %s\n", $Checksums{$ck_file}->{'MD5'},
$Checksums{$ck_file}->{'Size'}, $ck_file;
foreach my $checksum (@Checksums) {
printf $tmpfile_handle " %s %8d %s\n", $checksum->{'MD5'},
$checksum->{'Size'}, $checksum->{'File'};
}
 
print $tmpfile_handle "SHA1:\n";
foreach $ck_file (keys(%Checksums)) {
printf $tmpfile_handle " %s %8d %s\n", $Checksums{$ck_file}->{'SHA1'},
$Checksums{$ck_file}->{'Size'}, $ck_file;
foreach my $checksum (@Checksums) {
printf $tmpfile_handle " %s %8d %s\n", $checksum->{'SHA1'},
$checksum->{'Size'}, $checksum->{'File'};
}
 
close($tmpfile_handle);
232,7 → 231,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
261,7 → 260,8
my($md5) = Digest::MD5::md5_hex(@filetext);
my($sha1) = Digest::SHA1::sha1_hex(@filetext);
$Checksums{$file} = {
push @Checksums, {
'File' => $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 (keys(%Checksums)) {
printf $tmpfile_handle " %s %8d %s\n", $Checksums{$file}->{'MD5'},
$Checksums{$file}->{'Size'}, $file;
foreach $file (@Checksums) {
printf $tmpfile_handle " %s %8d %s\n", $file->{'MD5'},
$file->{'Size'}, $file->{'File'};
}
 
print $tmpfile_handle "SHA1:\n";
foreach $file (keys(%Checksums)) {
printf $tmpfile_handle " %s %8d %s\n", $Checksums{$file}->{'SHA1'},
$Checksums{$file}->{'Size'}, $file;
foreach $file (@Checksums) {
printf $tmpfile_handle " %s %8d %s\n", $file->{'SHA1'},
$file->{'Size'}, $file->{'File'};
}
 
close($tmpfile_handle);