debian-cd-clone/tools/add_packages

100 lines
2.9 KiB
Plaintext
Raw Normal View History

1999-11-11 16:10:37 -01:00
#!/usr/bin/perl -w
use strict;
my $dir = shift;
if (! -d $dir) {
die "$dir is not a directory ...";
}
my $mirror = $ENV{'MIRROR'} || die "Set the MIRROR var ...\n";
my $localdebs = $ENV{'LOCALDEBS'} || $mirror;
my $security = $ENV{'SECURITY'} || $mirror;
1999-11-11 16:10:37 -01:00
my $nonus = $ENV{'NONUS'} || '';
my $basedir = $ENV{'BASEDIR'} || die "Set the BASEDIR var ...\n";
my $codename = $ENV{'CODENAME'} || die "Set the CODENAME var ...\n";
1999-11-11 16:10:37 -01:00
require "$basedir/tools/link.pl";
open (LIST, "$basedir/tools/apt-selection cache show @ARGV |")
|| die "Can't fork : $!\n";
$/ = ''; # Browse by paragraph
my ($p, $file, $arch, $d, $realfile, $source, $section, $name, $pkgfile, $dist, $pdir);
1999-11-11 16:10:37 -01:00
while (defined($_ = <LIST>)) {
m/^Package: (\S+)/m and $p = $1;
m/^Filename: (\S+)/mi and $file = $1;
1999-11-11 16:10:37 -01:00
m/^Architecture: (\S+)/m and $arch = $1;
m/^Section: (\S+)/m and $section = $1;
if ($file =~ /\/main\//) {
$dist = "main";
} elsif ($file =~ /\/contrib\//) {
$dist = "contrib";
} elsif ($file =~ /\/non-free\//) {
$dist = "non-free";
} elsif ($file =~ /\/local\//) {
$dist = "local";
}
$pdir = "$dir/dists/$codename/$dist/binary-$ENV{'ARCH'}";
if ($section eq "debian-installer") {
$pdir = "$dir/dists/$codename/$dist/debian-installer/binary-$ENV{'ARCH'}";
}
$pkgfile = "$pdir/Packages";
if (! -d $pdir) {
system("mkdir -p $pdir");
}
open(PFILE, ">>$pkgfile");
print PFILE $_;
close(PFILE);
$source = ($section =~ /non-US/i) ? $nonus : $mirror;
1999-11-11 16:10:37 -01:00
# This is a hack to allow the local debs to be located elsewhere.
$source=$localdebs if $file=~m:local/:;
$source=$security if $file=~m:updates/:;
# If arch=all and filename points to binary-all then create
# a symbolic link in binary-$ARCH or if arch=all and filename is a
# symbolic link we suppose that the link points to
# .../binary-all/... and we reproduce a similar setup on the CD
if ($arch eq "all" and (-l "$source/$file" or
$file =~ m#/binary-all/#)) {
$file =~ s#/binary-all/#/binary-$ENV{'ARCH'}/#g;
# Check that the directory where the link will be created does
# exist
$pdir = "$dir/$file";
$pdir =~ s#[^/]+$##g;
if (! -d $pdir)
{
system("mkdir -p $pdir");
}
# Create the symlink from binary-$arch to binary-all
if ($section =~ /non-US/ || $file =~ /updates/ ) {
$file =~ m#/([^/]+)$# and $name = $1;
symlink ("../binary-all/$name", "$dir/$file") ||
die "Can't symlink $dir/$file to ../binary-all/$name: $!";
} else {
$file =~ m#/([^/]+/[^/]+)$# and $name = $1;
symlink ("../../binary-all/$name", "$dir/$file") ||
die "Can't symlink $dir/$file to ../../binary-all/$name: $!";
}
$file =~ s#/binary-$ENV{'ARCH'}/#/binary-all/#g;
1999-11-11 16:10:37 -01:00
}
# And we put the file in the CD tree (with a (hard) link)
$realfile = real_file ("$source/$file");
good_link ($realfile, "$dir/$file");
1999-11-11 16:10:37 -01:00
}
close LIST or die "Something went wrong with apt-cache : $@ ($!)\n";