bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-22 00:23:28 -05:00
Code Issues Projects Releases Wiki Activity

Now finds all the info/* files.

Browse Source
This commit is contained in:
freesource 2001-08-21 17:10:10 +00:00
parent 566c178f8f
commit 122e2fdffc
1 changed files with 34 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
yard/scripts/make_debian
View File

@ -8,6 +8,7 @@ my $home_yard_replacements = "$home_yard/Replacements";
my $nodename = `uname -n`; chomp $nodename;
my $debian_yard = "Debian-$nodename.yard";
my $status = "/var/lib/dpkg/status";
my $info = "/var/lib/dpkg/info";
# You need file-rc, and you may add other extra stuff. These packages were
# chosen for woody, so you may need something different. Check dependencies,
@ -72,6 +73,10 @@ foreach (@required_files) {
}
}
}
print DEBIAN "\n# Scripts associated with packages found in info/*\n";
print DEBIAN status_info();
close(DEBIAN);
@ -100,18 +105,22 @@ close(MY_FILERC);
#
# Conffiles would have to be handled both before and after Root Filesystem
# creation so that their md5sums could be accounted for in status.
#
# And this finds all the scripts associated with a package in info/*.
sub status_info {
$/ = "";
open(STATUS,"$status") or die "Can't find /var/lib/dpkg/status: $!\n";
my @status = <STATUS>;
close(STATUS);
home_builder("$home_yard_replacements/var/lib/dpkg");
open(NEW_STATUS,">$home_yard_replacements/var/lib/dpkg/status")
or die "Couldn't open $home_yard_replacements/var/lib/dpkg/status: $!\n";
foreach my $stat (@status) { # keep the order
while (<STATUS>) { # keep the order
$stat = $_;
my $stat2 = (split(/\n/,$stat))[0]; # might as well
foreach my $rp (@required_packages) {
$rp = (split(/_/,$rp))[0];
# Deal with names with +
$rp =~ s/\+/\\+/g if $rp !~ /\\+/g;
if ($stat2 =~ /^Package: $rp$/) {
print NEW_STATUS $stat;
@ -119,14 +128,32 @@ foreach my $stat (@status) { # keep the order
}
}
close(NEW_STATUS);
close(STATUS);
$/ = "\n";
# This figures out all the info/* files shipped with the package.
# Swim is more efficient here because info directories can get huge.
foreach (@required_packages) {
my @info;
foreach my $rp (@required_packages) {
$rp = (split(/_/,$rp))[0];
# Figure out info/*
if (-f "$info/$rp.preinst") {
push(@info,"$info/$rp.preinst\n");
}
if (-f "$info/$rp.postinst") {
push(@info,"$info/$rp.postinst\n");
}
if (-f "$info/$rp.prerm") {
push(@info,"$info/$rp.prerm\n");
}
if (-f "$info/$rp.postrm") {
push(@info,"$info/$rp.postrm\n");
}
}
return @info;
} # end sub status_info
sub stuff {
$stuff = << "STUFF";