mirror of
https://git.freebsd.org/ports.git
synced 2025-06-17 18:50:33 -04:00
a56a8c6935
Some work/cleanup here would probably be desirable. I'm committing them now to give others the ability to reproduce these package splits and help with making these scripts better. The README should have some more documentation in the future. A better solution to the package set size problem would be to teach sysinstall to ask for the CD on which a particular package is when it needs to add it, but for now this will do. Requested by: murray Written by: steve Discussed with: steve, kris (some time ago)
23 lines
342 B
Perl
Executable file
23 lines
342 B
Perl
Executable file
#!/usr/bin/perl
|
|
# $FreeBSD$
|
|
|
|
die "$0 <pkgdir> <indexfile>\n" if ($#ARGV != 1);
|
|
|
|
$xdep = 'XFree86-3\.3\.6_10';
|
|
$pkgdir = shift(@ARGV);
|
|
|
|
LOOP:
|
|
while (<>) {
|
|
s/$xdep//g;
|
|
s/ */ /g;
|
|
s/\| /\|/g;
|
|
|
|
@f = split('\|');
|
|
next if (! -f "$pkgdir/$f[0].tgz");
|
|
|
|
foreach $dep (split(' ', $f[8])) {
|
|
next LOOP if (! -f "$pkgdir/$dep.tgz");
|
|
}
|
|
|
|
print;
|
|
}
|