bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-22 08:33:24 -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 $nodename = `uname -n`; chomp $nodename;
my $debian_yard = "Debian-$nodename.yard"; my $debian_yard = "Debian-$nodename.yard";
my $status = "/var/lib/dpkg/status"; 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 # 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, # 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); close(DEBIAN);
@ -100,18 +105,22 @@ close(MY_FILERC);
# #
# Conffiles would have to be handled both before and after Root Filesystem # Conffiles would have to be handled both before and after Root Filesystem
# creation so that their md5sums could be accounted for in status. # 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"; 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"); home_builder("$home_yard_replacements/var/lib/dpkg");
open(NEW_STATUS,">$home_yard_replacements/var/lib/dpkg/status") open(NEW_STATUS,">$home_yard_replacements/var/lib/dpkg/status")
or die "Couldn't open $home_yard_replacements/var/lib/dpkg/status: $!\n"; 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 my $stat2 = (split(/\n/,$stat))[0]; # might as well
foreach my $rp (@required_packages) { foreach my $rp (@required_packages) {
$rp = (split(/_/,$rp))[0]; $rp = (split(/_/,$rp))[0];
# Deal with names with +
$rp =~ s/\+/\\+/g if $rp !~ /\\+/g; $rp =~ s/\+/\\+/g if $rp !~ /\\+/g;
if ($stat2 =~ /^Package: $rp$/) { if ($stat2 =~ /^Package: $rp$/) {
print NEW_STATUS $stat; print NEW_STATUS $stat;
@ -119,14 +128,32 @@ foreach my $stat (@status) { # keep the order
} }
} }
close(NEW_STATUS); close(NEW_STATUS);
close(STATUS);
$/ = "\n"; $/ = "\n";
# This figures out all the info/* files shipped with the package. my @info;
# Swim is more efficient here because info directories can get huge. foreach my $rp (@required_packages) {
foreach (@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 { sub stuff {
$stuff = << "STUFF"; $stuff = << "STUFF";