Remove obsolete tools from package
If people still want them, they're available in earlier branches
This commit is contained in:
Frans Pop
parent
52ff98b0de
commit
7b419d36a6
|
|
@ -1,264 +0,0 @@
|
|||
#! /usr/bin/perl
|
||||
|
||||
$version="1.9.17"; # diverted from dpkg 1.9.17
|
||||
|
||||
%kmap= ('optional','suggests',
|
||||
'recommended','recommends',
|
||||
'class','priority',
|
||||
'package_revision','revision');
|
||||
|
||||
@fieldpri= ('Package',
|
||||
'Version',
|
||||
'Priority',
|
||||
'Section',
|
||||
'Essential',
|
||||
'Maintainer',
|
||||
'Pre-Depends',
|
||||
'Depends',
|
||||
'Recommends',
|
||||
'Suggests',
|
||||
'Conflicts',
|
||||
'Provides',
|
||||
'Replaces',
|
||||
'Architecture',
|
||||
'Filename',
|
||||
'Size',
|
||||
'MD5sum',
|
||||
'Description');
|
||||
|
||||
$written=0;
|
||||
$i=100; grep($pri{$_}=$i--,@fieldpri);
|
||||
|
||||
if ($#ARGV > -1 && $ARGV[0] eq "-m") {
|
||||
shift(@ARGV);
|
||||
$opt_medium = shift(@ARGV); }
|
||||
if ($#ARGV > -1 && $ARGV[0] eq "-a") {
|
||||
shift(@ARGV);
|
||||
$opt_arch = shift(@ARGV); }
|
||||
$#ARGV == 1 || $#ARGV == 2
|
||||
or die "Usage: dpkg-scanpackages [-m medium] [-a architecture ] binarypath overridefile [pathprefix] > Packages
|
||||
\te.g. dpkg-scanpackages -m 'Debian GNU/Linux -a i386 binary-i386' \\
|
||||
\t\tbinary-i386 /pub/debian/indices/override.hamm.gz \\
|
||||
\t\tdists/stable/ > binary-i386/Packages\n";
|
||||
|
||||
($binarydir, $override, $pathprefix) = @ARGV;
|
||||
-d $binarydir or die "Binary dir $binarydir not found\n";
|
||||
-e $override or die "Override file $override not found\n";
|
||||
|
||||
sub vercmp {
|
||||
($a,$b)=@_;
|
||||
return $vercache{$a,$b} if defined($vercache{$a,$b});
|
||||
system("dpkg --compare-versions $a le $b");
|
||||
$vercache{$a,$a}=$?;
|
||||
return $?;
|
||||
}
|
||||
|
||||
# The extra slash causes symlinks to be followed.
|
||||
open(F,"find $binarydir/ -follow -name '*.deb' -print |")
|
||||
or die "Couldn't open pipe to find: $!\n";
|
||||
|
||||
# Note: contrib and other sections are written as contrib/foo in
|
||||
# the overrides and control file
|
||||
($sectdir) = "$pathprefix/$binarydir" =~ m:dists/[^\\]+/([^/]+/):;
|
||||
$sectdir =~ s:(main|hamm)/::;
|
||||
|
||||
while (<F>) {
|
||||
chomp($fn=$_);
|
||||
substr($fn,0,length($binarydir)) eq $binarydir
|
||||
or die "$fn not in binary dir $binarydir\n";
|
||||
$t= `dpkg-deb -I $fn control`;
|
||||
if ($t eq "") {
|
||||
warn "Couldn't call dpkg-deb on $fn: $!, skipping package\n";
|
||||
next;
|
||||
}
|
||||
if ($?) {
|
||||
warn "\`dpkg-deb -I $fn control' exited with $?, skipping package\n";
|
||||
next;
|
||||
}
|
||||
|
||||
undef %tv;
|
||||
$o= $t;
|
||||
while ($t =~ s/^\n*(\S+):[ \t]*(.*(\n[ \t].*)*)\n//) {
|
||||
$k= lc $1; $v= $2;
|
||||
if (defined($kmap{$k})) { $k= $kmap{$k}; }
|
||||
if (@kn= grep($k eq lc $_, @fieldpri)) {
|
||||
@kn==1 || die $k;
|
||||
$k= $kn[0];
|
||||
}
|
||||
$v =~ s/\s+$//;
|
||||
$tv{$k}= $v;
|
||||
}
|
||||
$t =~ /^\n*$/
|
||||
or die "Unprocessed text from $fn control file; info:\n$o / $t\n";
|
||||
|
||||
defined($tv{'Package'})
|
||||
or die "No Package field in control file of $fn\n";
|
||||
$p= $tv{'Package'}; delete $tv{'Package'};
|
||||
|
||||
$arch=$tv{'Architecture'};
|
||||
if (defined($opt_arch)) {
|
||||
if ($arch =~ $opt_arch || $arch =~ "all") {
|
||||
# print(STDERR " ! Package $p ($fn) is for the correct architecture $opt_arch: $arch\n");
|
||||
} else {
|
||||
# print(STDERR " ! Package $p ($fn) is not for the correct architecture $opt_arch: $arch\n");
|
||||
next;
|
||||
}
|
||||
}
|
||||
|
||||
if (defined($p1{$p})) {
|
||||
if (&vercmp($tv{'Version'}, $pv{$p,'Version'})) {
|
||||
print(STDERR " ! Package $p (filename $fn) is repeat but newer version;\n".
|
||||
" used that one and ignored data from $pfilename{$p} !\n")
|
||||
|| die $!;
|
||||
delete $p1{$p};
|
||||
for $k (keys %k1) {
|
||||
delete $pv{$p,$k};
|
||||
}
|
||||
} else {
|
||||
print(STDERR " ! Package $p (filename $fn) is repeat;\n".
|
||||
" ignored that one and using data from $pfilename{$p} !\n")
|
||||
|| die $!;
|
||||
next;
|
||||
}
|
||||
}
|
||||
print(STDERR " ! Package $p (filename $fn) has Filename field!\n") || die $!
|
||||
if defined($tv{'Filename'});
|
||||
|
||||
$tv{'Filename'}= "$pathprefix$fn";
|
||||
|
||||
open(C,"md5sum $fn |") || die "$fn $!";
|
||||
chop($_=<C>); close(C); $? and die "\`md5sum < $fn' exited with $?\n";
|
||||
/^[0-9a-f]{32}/ or die "Strange text from \`md5sum < $fn': \`$_'\n";
|
||||
s/\ .*$//;
|
||||
$tv{'MD5sum'}= $_;
|
||||
|
||||
@stat= stat($fn) or die "Couldn't stat $fn: $!\n";
|
||||
$stat[7] or die "$fn is empty\n";
|
||||
$tv{'Size'}= $stat[7];
|
||||
|
||||
if (length($tv{'Revision'})) {
|
||||
$tv{'Version'}.= '-'.$tv{'Revision'};
|
||||
delete $tv{'Revision'};
|
||||
}
|
||||
|
||||
for $k (keys %tv) {
|
||||
$pv{$p,$k}= $tv{$k};
|
||||
$k1{$k}= 1;
|
||||
$p1{$p}= 1;
|
||||
}
|
||||
|
||||
$_= substr($fn,length($binarydir));
|
||||
s#/[^/]+$##; s#^/*##;
|
||||
$psubdir{$p}= $_;
|
||||
$pfilename{$p}= $fn;
|
||||
}
|
||||
close(F);
|
||||
$? and warn "find exited with $?\n";
|
||||
|
||||
select(STDERR); $= = 1000; select(STDOUT);
|
||||
|
||||
format STDERR =
|
||||
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
||||
$packages
|
||||
.
|
||||
|
||||
sub writelist {
|
||||
$title= shift(@_);
|
||||
return unless @_;
|
||||
print(STDERR " $title\n") || die $!;
|
||||
$packages= join(' ',sort @_);
|
||||
while (length($packages)) { write(STDERR) || die $!; }
|
||||
print(STDERR "\n") || die $!;
|
||||
}
|
||||
|
||||
@samemaint=();
|
||||
|
||||
if ($override =~ /\.gz$/) {
|
||||
open(O, "zcat $override|")
|
||||
or die "Couldn't open override file $override: $!\n";
|
||||
} else {
|
||||
open(O, $override)
|
||||
or die "Couldn't open override file $override: $!\n";
|
||||
}
|
||||
while (<O>) {
|
||||
s/\#.*//;
|
||||
s/\s+$//;
|
||||
($p,$priority,$section,$maintainer)= split(/\s+/,$_,4);
|
||||
next unless defined($p1{$p});
|
||||
if (length($maintainer)) {
|
||||
if ($maintainer =~ m/\s*=\>\s*/) {
|
||||
$oldmaint= $`; $newmaint= $'; $debmaint= $pv{$p,'Maintainer'};
|
||||
if (!grep($debmaint eq $_, split(m:\s*//\s*:, $oldmaint))) {
|
||||
push(@changedmaint,
|
||||
" $p (package says $pv{$p,'Maintainer'}, not $oldmaint)\n");
|
||||
} else {
|
||||
$pv{$p,'Maintainer'}= $newmaint;
|
||||
}
|
||||
} elsif ($pv{$p,'Maintainer'} eq $maintainer) {
|
||||
push(@samemaint," $p ($maintainer)\n");
|
||||
} else {
|
||||
print(STDERR " * Unconditional maintainer override for $p *\n") || die $!;
|
||||
$pv{$p,'Maintainer'}= $maintainer;
|
||||
}
|
||||
}
|
||||
$pv{$p,'Priority'}= $priority;
|
||||
$pv{$p,'Section'}= $section;
|
||||
($sectioncut = $section) =~ s:^[^/]*/::;
|
||||
if (length($psubdir{$p}) && $section ne $psubdir{$p} &&
|
||||
$sectioncut ne $psubdir{$p}) {
|
||||
print(STDERR " !! Package $p has \`Section: $section',".
|
||||
" but file is in \`$psubdir{$p}' !!\n") || die $!;
|
||||
$ouches++;
|
||||
}
|
||||
$o1{$p}= 1;
|
||||
}
|
||||
close(O);
|
||||
print(STDERR "\n") || die $! if $ouches;
|
||||
|
||||
$k1{'Maintainer'}= 1;
|
||||
$k1{'Priority'}= 1;
|
||||
$k1{'Section'}= 1;
|
||||
|
||||
@missingover=();
|
||||
|
||||
for $p (sort keys %p1) {
|
||||
if (!defined($o1{$p})) {
|
||||
push(@missingover,$p);
|
||||
}
|
||||
$r= "Package: $p\n";
|
||||
for $k (sort { $pri{$b} <=> $pri{$a} } keys %k1) {
|
||||
next unless length($pv{$p,$k});
|
||||
$r.= "$k: $pv{$p,$k}\n";
|
||||
}
|
||||
$r.= "X-Medium: $opt_medium\n" if (defined $opt_medium);
|
||||
$r.= "\n";
|
||||
$written++;
|
||||
$p1{$p}= 1;
|
||||
print(STDOUT $r) or die "Failed when writing stdout: $!\n";
|
||||
}
|
||||
close(STDOUT) or die "Couldn't close stdout: $!\n";
|
||||
|
||||
@spuriousover= grep(!defined($p1{$_}),sort keys %o1);
|
||||
|
||||
&writelist("** Packages in archive but missing from override file: **",
|
||||
@missingover);
|
||||
if (@changedmaint) {
|
||||
print(STDERR
|
||||
" ++ Packages in override file with incorrect old maintainer value: ++\n",
|
||||
@changedmaint,
|
||||
"\n") || die $!;
|
||||
}
|
||||
if (@samemaint) {
|
||||
print(STDERR
|
||||
" -- Packages specifying same maintainer as override file: --\n",
|
||||
@samemaint,
|
||||
"\n") || die $!;
|
||||
}
|
||||
if (@spuriousover) {
|
||||
print(STDERR
|
||||
" -- Packages in override file but not in archive: --\n",
|
||||
@spuriousover,
|
||||
"\n") || die $!;
|
||||
}
|
||||
|
||||
print(STDERR " Wrote $written entries to output Packages file.\n") || die $!;
|
||||
|
|
@ -1,238 +0,0 @@
|
|||
#!/bin/sh
|
||||
|
||||
# Copyright 1999 Raphaël Hertzog <hertzog@debian.org>
|
||||
# See the README file for the license
|
||||
|
||||
# This script will create the Packages.gz and the Packages.cd files
|
||||
# First arg = "scan" or "install"
|
||||
# Second arg = directory of the CD
|
||||
|
||||
#set -e
|
||||
|
||||
CDPACKAGES=1
|
||||
DPKG_SCANPACKAGES=$BASEDIR/tools/my-dpkg-scanpackages
|
||||
|
||||
if [ "$1"x = "-noPackages.cd"x ] ; then
|
||||
shift 1
|
||||
CDPACKAGES=0
|
||||
fi
|
||||
|
||||
BDIR=$TDIR/$CODENAME-$ARCH
|
||||
|
||||
PREFIX=`echo $2 | sed "s?$BDIR/CD?$BDIR/?"`
|
||||
|
||||
NUM=${PREFIX##$BDIR/}
|
||||
NUM=`echo $NUM | sed 's/_NONUS//g'`
|
||||
if [ -n "$NONFREE" -o -n "$EXTRANONFREE" ]; then
|
||||
SECTIONS="main contrib non-free"
|
||||
SECTIONSNONUS="non-US/main non-US/contrib non-US/non-free"
|
||||
else
|
||||
SECTIONS="main contrib"
|
||||
SECTIONSNONUS="non-US/main non-US/contrib"
|
||||
fi
|
||||
|
||||
cd "$2"
|
||||
|
||||
if [ "$1" = "install" ]; then
|
||||
|
||||
if [ -e "$MIRROR/dists/$CODENAME/Release" ]; then
|
||||
# Strip the MD5Sum and SHA1 fields
|
||||
# Update some other information as well
|
||||
sed -e "s/^Architectures: .*$/Architectures: $ARCH/" \
|
||||
$MIRROR/dists/$CODENAME/Release | \
|
||||
sed -e "s|^Components: .*$|Components: $SECTIONS|" | \
|
||||
perl -ne 'if (/^(MD5Sum|SHA1):/i) { $f=1; next }
|
||||
if ($f) {
|
||||
unless (/^ /) { print; $f=0 }
|
||||
} else { print }' > dists/$CODENAME/Release
|
||||
fi
|
||||
if [ -n "$NONUS" -a -e "$NONUS/dists/$CODENAME/non-US/Release" ]; then
|
||||
# Strip the MD5Sum and SHA1 fields
|
||||
# Update some other information as well
|
||||
sed -e "/^ /d" -e "s/^Architectures: .*$/Architectures: $ARCH/" \
|
||||
$NONUS/dists/$CODENAME/non-US/Release | \
|
||||
sed -e "s|^Components: .*$|Components: $SECTIONSNONUS|" | \
|
||||
perl -ne 'if (/^(MD5Sum|SHA1):/i) { $f=1; next }
|
||||
if ($f) {
|
||||
unless (/^ /) { print; $f=0 }
|
||||
} else { print }' > dists/$CODENAME/non-US/Release
|
||||
fi
|
||||
|
||||
for SECT in $SECTIONS; do
|
||||
# Install the release files
|
||||
cp $MIRROR/dists/$CODENAME/$SECT/binary-$ARCH/Release \
|
||||
dists/$CODENAME/$SECT/binary-$ARCH/
|
||||
if [ -n "$NONUS" -a "$CODENAME" != "slink" ]; then
|
||||
cp $NONUS/dists/$CODENAME/non-US/$SECT/binary-$ARCH/Release \
|
||||
dists/$CODENAME/non-US/$SECT/binary-$ARCH/
|
||||
fi
|
||||
# Install the Packages and Packages.gz files
|
||||
grep -v ^X-Medium $PREFIX.Packages-$SECT \
|
||||
>dists/$CODENAME/$SECT/binary-$ARCH/Packages
|
||||
grep -v ^X-Medium $PREFIX.Packages-$SECT | gzip --best \
|
||||
>dists/$CODENAME/$SECT/binary-$ARCH/Packages.gz
|
||||
if [ -n "$NONUS" -a "$CODENAME" != "slink" ]; then
|
||||
grep -v ^X-Medium $PREFIX.Packages-non-US-$SECT \
|
||||
>dists/$CODENAME/non-US/$SECT/binary-$ARCH/Packages
|
||||
grep -v ^X-Medium $PREFIX.Packages-non-US-$SECT | gzip --best \
|
||||
>dists/$CODENAME/non-US/$SECT/binary-$ARCH/Packages.gz
|
||||
fi
|
||||
# Install the Packages.cd and Packages.cd.gz files
|
||||
# Each CD know about all prior CDs
|
||||
# We use "?.packages" here so that we always use US-safe
|
||||
# packages files only - we don't want later (supposedly
|
||||
# common) CDs having dependencies on a non-US CD#1...
|
||||
if [ $CDPACKAGES -eq 1 ] ; then
|
||||
for i in $TDIR/$CODENAME-$ARCH/?.packages; do
|
||||
dir=${i%%.packages}
|
||||
n=${dir##$TDIR/$CODENAME-$ARCH/}
|
||||
if [ $n -le $NUM ]; then
|
||||
cat $dir.Packages-$SECT \
|
||||
>>dists/$CODENAME/$SECT/binary-$ARCH/Packages.cd
|
||||
cat $dir.Packages-$SECT | gzip --best \
|
||||
>>dists/$CODENAME/$SECT/binary-$ARCH/Packages.cd.gz
|
||||
if [ -n "$NONUS" -a "$CODENAME" != "slink" ]; then
|
||||
cat $dir.Packages-non-US-$SECT \
|
||||
>>dists/$CODENAME/non-US/$SECT/binary-$ARCH/Packages.cd
|
||||
cat $dir.Packages-non-US-$SECT | gzip --best \
|
||||
>>dists/$CODENAME/non-US/$SECT/binary-$ARCH/Packages.cd.gz
|
||||
fi
|
||||
fi
|
||||
done
|
||||
fi
|
||||
done
|
||||
|
||||
if [ -n "$NONUS" -a "$CODENAME" = "slink" ]; then
|
||||
cp $NONUS/dists/$CODENAME/non-US/binary-$ARCH/Release \
|
||||
dists/$CODENAME/non-US/binary-$ARCH/
|
||||
grep -v ^X-Medium $PREFIX.Packages-non-US \
|
||||
>dists/$CODENAME/non-US/binary-$ARCH/Packages
|
||||
grep -v ^X-Medium $PREFIX.Packages-non-US | gzip --best \
|
||||
>dists/$CODENAME/non-US/binary-$ARCH/Packages.gz
|
||||
for i in $TDIR/$CODENAME-$ARCH/?.packages; do
|
||||
dir=${i%%.packages}
|
||||
n=${dir##$TDIR/$CODENAME-$ARCH/}
|
||||
if [ $n -le $NUM ]; then
|
||||
cat $dir.Packages-non-US \
|
||||
>>dists/$CODENAME/non-US/binary-$ARCH/Packages.cd
|
||||
cat $dir.Packages-non-US | gzip --best \
|
||||
>>dists/$CODENAME/non-US/binary-$ARCH/Packages.cd.gz
|
||||
fi
|
||||
done
|
||||
fi
|
||||
|
||||
if [ -n "$LOCAL" ]; then
|
||||
if [ -e ${LOCALDEBS:-$MIRROR}/dists/$CODENAME/local/binary-$ARCH/Release ]; then
|
||||
cp ${LOCALDEBS:-$MIRROR}/dists/$CODENAME/local/binary-$ARCH/Release \
|
||||
dists/$CODENAME/local/binary-$ARCH/
|
||||
fi
|
||||
grep -v ^X-Medium $PREFIX.Packages-local \
|
||||
>dists/$CODENAME/local/binary-$ARCH/Packages
|
||||
grep -v ^X-Medium $PREFIX.Packages-local | gzip --best \
|
||||
>dists/$CODENAME/local/binary-$ARCH/Packages.gz
|
||||
|
||||
for i in $TDIR/$CODENAME-$ARCH/?.packages; do
|
||||
dir=${i%%.packages}
|
||||
n=${dir##$TDIR/$CODENAME-$ARCH/}
|
||||
if [ $n -le $NUM ]; then
|
||||
cat $dir.Packages-local \
|
||||
>>dists/$CODENAME/local/binary-$ARCH/Packages.cd
|
||||
cat $dir.Packages-local | gzip --best \
|
||||
>>dists/$CODENAME/local/binary-$ARCH/Packages.cd.gz
|
||||
fi
|
||||
done
|
||||
fi
|
||||
|
||||
|
||||
fi
|
||||
|
||||
# Creates the temp Packages-$SECT files
|
||||
if [ "$1" != "scan" ]; then exit 0; fi
|
||||
|
||||
|
||||
if [ ! -e "../overrides" ]; then
|
||||
# Create an override file with all sections
|
||||
for SECT in $SECTIONS; do
|
||||
zcat $MIRROR/indices/override.$CODENAME.$SECT.gz >> ../overrides
|
||||
if [ -n "$NONUS" -a "$CODENAME" != "slink" ]; then
|
||||
zcat $NONUS/indices-non-US/override.$CODENAME.$SECT.gz \
|
||||
>> ../overrides
|
||||
fi
|
||||
done
|
||||
fi
|
||||
|
||||
#
|
||||
# Create a Packages file for all packages on the CD
|
||||
#
|
||||
if [ -d pool ]; then
|
||||
$DPKG_SCANPACKAGES -m "`cat .disk/info`" -a $ARCH pool ../overrides \
|
||||
> $PREFIX.Packages-BOTH
|
||||
fi
|
||||
# We have to scan all possible dists where packages can be
|
||||
DISTS=""
|
||||
DISTSNONUS=""
|
||||
for i in `cd dists; echo *; cd ..`; do
|
||||
if [ ! -L "dists/$i" -a -d "dists/$i" ]; then
|
||||
if [ -d "dists/$i/main/binary-$ARCH" -o \
|
||||
-d "dists/$i/non-free/binary-$ARCH" -o \
|
||||
-d "dists/$i/contrib/binary-$ARCH" ]; then
|
||||
DISTS="$DISTS $i"
|
||||
fi
|
||||
if [ -d "dists/$i/non-US/main/binary-$ARCH" -o \
|
||||
-d "dists/$i/non-US/non-free/binary-$ARCH" -o \
|
||||
-d "dists/$i/non-US/contrib/binary-$ARCH" ]; then
|
||||
DISTSNONUS="$DISTSNONUS $i"
|
||||
fi
|
||||
fi
|
||||
done
|
||||
for SECT in $SECTIONS; do
|
||||
for DIST in $DISTS; do
|
||||
$DPKG_SCANPACKAGES -m "`cat .disk/info`" -a $ARCH dists/$DIST/$SECT/binary-$ARCH \
|
||||
../overrides >> $PREFIX.Packages-BOTH
|
||||
done
|
||||
for DIST in $DISTSNONUS; do
|
||||
if [ -n "$NONUS" -a "$CODENAME" != "slink" ]; then
|
||||
$DPKG_SCANPACKAGES -m "`cat .disk/info`" -a $ARCH \
|
||||
dists/$DIST/non-US/$SECT/binary-$ARCH \
|
||||
../overrides >> $PREFIX.Packages-BOTH
|
||||
fi
|
||||
done
|
||||
done
|
||||
# Separate non-US from the rest
|
||||
grep-dctrl -FFilename -e '/non-[Uu][Ss]/' $PREFIX.Packages-BOTH \
|
||||
> $PREFIX.Packages-ALLNONUS
|
||||
grep-dctrl -v -FFilename -e '/non-[Uu][Ss]/' $PREFIX.Packages-BOTH \
|
||||
> $PREFIX.Packages-ALL
|
||||
|
||||
# Split the Packages file by section
|
||||
for SECT in $SECTIONS; do
|
||||
grep-dctrl -FFilename -e "/$SECT/" $PREFIX.Packages-ALL \
|
||||
> $PREFIX.Packages-$SECT
|
||||
|
||||
if [ -n "$NONUS" -a "$CODENAME" != "slink" ]; then
|
||||
grep-dctrl -FFilename -e "/$SECT/" $PREFIX.Packages-ALLNONUS \
|
||||
> $PREFIX.Packages-non-US-$SECT
|
||||
fi
|
||||
done
|
||||
|
||||
# Slink special case
|
||||
if [ -n "$NONUS" -a "$CODENAME" = "slink" ]; then
|
||||
$DPKG_SCANPACKAGES -m "`cat .disk/info`" -a $ARCH \
|
||||
dists/$CODENAME/non-US/binary-$ARCH \
|
||||
$NONUS/indices-non-US/override.$CODENAME.gz \
|
||||
> $PREFIX.Packages-non-US
|
||||
fi
|
||||
|
||||
if [ -n "$LOCAL" ]; then
|
||||
$DPKG_SCANPACKAGES -m "`cat .disk/info`" -a $ARCH \
|
||||
dists/$CODENAME/local/binary-$ARCH \
|
||||
/dev/null > $PREFIX.Packages-local
|
||||
|
||||
if [ -d pool/local ]
|
||||
then
|
||||
$DPKG_SCANPACKAGES -m "`cat .disk/info`" -a $ARCH \
|
||||
pool/local /dev/null >> $PREFIX.Packages-local
|
||||
fi
|
||||
fi
|
||||
|
||||
exit 0
|
||||
|
|
@ -1,100 +0,0 @@
|
|||
#!/bin/sh
|
||||
|
||||
# Copyright 1999 Raphaël Hertzog <hertzog@debian.org>
|
||||
# See the README file for the license
|
||||
|
||||
# This script will create the Sources.gz files
|
||||
# First arg = directory of the CD
|
||||
|
||||
set -e
|
||||
|
||||
PREFIX=$1
|
||||
if [ -n "$NONFREE" -o -n "$EXTRANONFREE" ]; then
|
||||
SECTIONS="main contrib non-free"
|
||||
else
|
||||
SECTIONS="main contrib"
|
||||
fi
|
||||
|
||||
cd $PREFIX
|
||||
|
||||
# We have to scan all possible dists where sources can be
|
||||
DISTS=""
|
||||
DISTSNONUS=""
|
||||
for i in `cd dists; echo *; cd ..`; do
|
||||
if [ ! -L "dists/$i" -a -d "dists/$i" ]; then
|
||||
if [ -d "dists/$i/main/source" -o \
|
||||
-d "dists/$i/non-free/source" -o \
|
||||
-d "dists/$i/contrib/source" ]; then
|
||||
DISTS="$DISTS $i"
|
||||
fi
|
||||
if [ -d "dists/$i/non-US/main/source" -o \
|
||||
-d "dists/$i/non-US/non-free/source" -o \
|
||||
-d "dists/$i/non-US/contrib/source" ]; then
|
||||
DISTSNONUS="$DISTSNONUS $i"
|
||||
fi
|
||||
fi
|
||||
done
|
||||
|
||||
if [ -e "$MIRROR/dists/$CODENAME/Release" ]; then
|
||||
# Strip the MD5Sum and SHA1 field
|
||||
perl -ne 'if (/^(MD5Sum|SHA1):/) { $f=1; next; }
|
||||
if ($f) {
|
||||
unless (/^ /) { print; $f=0 }
|
||||
} else { print }' \
|
||||
$MIRROR/dists/$CODENAME/Release > dists/$CODENAME/Release
|
||||
fi
|
||||
if [ -n "$NONUS" -a -e "$NONUS/dists/$CODENAME/non-US/Release" ]; then
|
||||
# Strip the MD5Sum and SHA1 field
|
||||
perl -ne 'if (/^(MD5Sum|SHA1):/) { $f=1; next; }
|
||||
if ($f) {
|
||||
unless (/^ /) { print; $f=0 }
|
||||
} else { print }' \
|
||||
$NONUS/dists/$CODENAME/non-US/Release \
|
||||
> dists/$CODENAME/non-US/Release
|
||||
fi
|
||||
|
||||
for SECT in $SECTIONS; do
|
||||
|
||||
if [ -d "pool/$SECT" ]; then
|
||||
dpkg-scansources pool/$SECT > dists/$CODENAME/$SECT/source/Sources
|
||||
fi
|
||||
for DIST in $DISTS; do
|
||||
if [ -d "dists/$DIST/$SECT/source" ] ; then
|
||||
dpkg-scansources dists/$DIST/$SECT/source \
|
||||
>> dists/$CODENAME/$SECT/source/Sources
|
||||
fi
|
||||
done
|
||||
if [ -f dists/$CODENAME/$SECT/source/Sources ] ; then
|
||||
gzip --best dists/$CODENAME/$SECT/source/Sources
|
||||
fi
|
||||
|
||||
if [ -n "$NONUS" -a "$CODENAME" != "slink" ]; then
|
||||
if [ -d "pool/non-US/$SECT" ]; then
|
||||
dpkg-scansources pool/non-US/$SECT \
|
||||
> dists/$CODENAME/non-US/$SECT/source/Sources
|
||||
fi
|
||||
for DIST in $DISTSNONUS; do
|
||||
if [ -d "dists/$DIST/non-US/$SECT/source" ] ; then
|
||||
dpkg-scansources dists/$DIST/non-US/$SECT/source \
|
||||
>> dists/$CODENAME/non-US/$SECT/source/Sources
|
||||
fi
|
||||
done
|
||||
if [ -f dists/$CODENAME/non-US/$SECT/source/Sources ] ; then
|
||||
gzip --best dists/$CODENAME/non-US/$SECT/source/Sources
|
||||
fi
|
||||
fi
|
||||
|
||||
done
|
||||
|
||||
# Slink special case
|
||||
if [ -n "$NONUS" -a "$CODENAME" = "slink" ]; then
|
||||
dpkg-scansources dists/$CODENAME/non-US/source \
|
||||
| gzip --best > dists/$CODENAME/non-US/source/Sources.gz
|
||||
fi
|
||||
|
||||
if [ -n "$LOCAL" ]; then
|
||||
dpkg-scansources dists/$CODENAME/local/source \
|
||||
| gzip --best > dists/$CODENAME/local/source/Sources.gz
|
||||
fi
|
||||
|
||||
exit 0
|
||||
Loading…
Reference in New Issue