67 lines
2.0 KiB
Plaintext
67 lines
2.0 KiB
Plaintext
|
#! /usr/bin/perl -w
|
||
|
|
# Copyright (c) 2002 Philip Hands <phil@hands.com>
|
||
|
|
# See the README file for the license
|
||
|
|
|
||
|
|
# This script creates the md5sums files, using the precalculated md5sums
|
||
|
|
# from the main archive
|
||
|
|
# First arg = the build directory
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Digest::MD5;
|
||
|
|
|
||
|
|
# We load the md5sums of all the files in the pool dir, we don't want to use
|
||
|
|
# the others because the files on the cds can be different (like README.html)
|
||
|
|
my %md5 ;
|
||
|
|
my $BDIR = shift @ARGV ;
|
||
|
|
|
||
|
|
foreach my $sumsfile ($BDIR . "/indices/md5sums", $BDIR . "/indices-non-US/md5sums") {
|
||
|
|
if (open(MD5SUMS, $sumsfile)) {
|
||
|
|
while (<MD5SUMS>) {
|
||
|
|
chomp;
|
||
|
|
my ( $sum, $name ) = split(' ') ;
|
||
|
|
if ($name =~ /^pool/) {
|
||
|
|
# printf "[%s] [%s]\n", $sum, $name ;
|
||
|
|
$md5{$name} = $sum ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
close(MD5SUMS);
|
||
|
|
} else {
|
||
|
|
warn "Couldn't open file: $sumsfile";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
#foreach my $f (keys(%md5)) {
|
||
|
|
# printf "[%s] [%s]\n", $f, $md5{$f} ;
|
||
|
|
#}
|
||
|
|
|
||
|
|
foreach my $dir (<$BDIR/CD*>) {
|
||
|
|
chdir $dir ;
|
||
|
|
open(FILES, "find . -follow \\( -path '*dists/stable*' \\
|
||
|
|
-o -path '*dists/frozen*' \\
|
||
|
|
-o -path '*dists/unstable*' \\) -prune \\
|
||
|
|
-o -type f ! -path '\./md5sum*' -print|" ) || die ;
|
||
|
|
open(MD5OUT, ">md5sum.txt") || die "Couldn't open file for writing: md5sum.txt, in $dir" ;
|
||
|
|
while(<FILES>) {
|
||
|
|
chomp;
|
||
|
|
s(^\./)() ;
|
||
|
|
if (!defined($md5{$_})) {
|
||
|
|
open(FILE, $_) or die "Can't open '$_': $!";
|
||
|
|
binmode(FILE);
|
||
|
|
# printf STDERR "md5-ing %s", $_ ;
|
||
|
|
#$md5{$_} = Digest::MD5->new->addfile(*FILE)->hexdigest ;
|
||
|
|
printf MD5OUT "%s ./%s\n",
|
||
|
|
Digest::MD5->new->addfile(*FILE)->hexdigest, $_;
|
||
|
|
# FIXME:
|
||
|
|
# the ./ in the printf above is only there to keep byte-for-byte compatibility
|
||
|
|
# with the find . output used before -- It should probably be removed
|
||
|
|
#
|
||
|
|
# printf STDERR ".\n" ;
|
||
|
|
close(FILE) ;
|
||
|
|
} else {
|
||
|
|
printf MD5OUT "%s ./%s\n", $md5{$_}, $_;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
close(MD5OUT);
|
||
|
|
die "$dir/md5sum.txt is empty!\n" unless (-s "md5sum.txt");
|
||
|
|
}
|