bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-21 16:13:24 -05:00
Code Issues Projects Releases Wiki Activity

Added some more packages, and a README in /home/user, more informational text

Browse Source 
in the script, and empty directories and things not found directly in the
package but made by the scripts.  Apt is working, how cool does it get?
This commit is contained in:
freesource 2001-08-22 23:37:58 +00:00
parent a94c7537c3
commit 8ade471c3e
1 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
yard/scripts/make_debian
View File

@ -11,12 +11,20 @@ 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,
# ofcourse, if you add stuff, and empty directories and special conf files.
# Swim provides excellent information.
my @extra_packages = qw(file-rc swim apt nvi sysklogd klogd netbase tcpd
net-tools portmap netkit-ping netkit-inetd ifupdown less perl perl-modules
libwrap0 debconf ipchains);
# chosen for woody, so you may need something different. If you add stuff,
# check for dependencies, empty directories and special configuration files
# created by the package scripts.
#
# You may have to edit the text below STUFF.
#
# Swim provides excellent information for this task. swim -qT packagename &
# swim -ql --df packagename & swim -qc packagename (not all conf files can
# be found this way .. read above).
my @extra_packages = qw(file-rc swim apt apt-utils debconf nvi sysklogd
klogd netbase tcpd net-tools portmap netkit-ping netkit-inetd ifupdown less
perl perl-modules libwrap0 ipchains whiptail libnewt0 libpopt0 slang1
debconf-utils);
# And tests will be ran here for file-rc and swim
# swim has to have its databases made.
@ -115,6 +123,8 @@ sub status_info {
$/ = "";
open(STATUS,"$status") or die "Can't find /var/lib/dpkg/status: $!\n";
home_builder("$home_yard_replacements/var/lib/dpkg");
system "touch $home_yard_replacements/var/lib/dpkg/available"
or die "Couldn't create Replacements/var/lib/dpkg/available: $!\n";
open(NEW_STATUS,">$home_yard_replacements/var/lib/dpkg/status")
or die "Couldn't open $home_yard_replacements/var/lib/dpkg/status: $!\n";
while (<STATUS>) { # keep the order
@ -136,7 +146,7 @@ $/ = "\n";
my @info;
foreach my $rp (@required_packages) {
$rp = (split(/_/,$rp))[0];
# Get rid of the escape from the previous invocation.
# Get rid of the escapes from the previous invocation.
$rp =~ s/\\//g if $rp =~ /\\+/g;
# Figure out info/* .. this covers it for now.
@ -216,6 +226,7 @@ $stuff = << "STUFF";
/root/.profile <= Replacements/root/.profile.debian
/home/user/.bashrc <= Replacements/home/user/.bashrc.debian
/home/user/.bash_profile <= Replacements/home/user/.bash_profile.debian
/home/user/README <= Replacements/home/user/README # permissions issue
/etc/hostname <= Replacements/etc/hostname
/etc/motd <= Replacements/etc/motd
@ -240,6 +251,7 @@ $stuff = << "STUFF";
/var/lib/dpkg/info
/var/lib/dpkg/updates
/var/lib/dpkg/alternatives
/var/lib/dpkg/available <= Replacements/var/lib/dpkg/available
# Stuff needed by apt.
/var/cache/apt/archives/lock
@ -284,6 +296,9 @@ $stuff = << "STUFF";
/var/lock
/var/log
# Stuff so ldconfig doesn't complain.
/etc/ld.so.conf <= Replacements/etc/ld.so.conf
## ALL the REQUIRED files generated by make-debian.
## This is stuff from the required packages, so some files may be
## removed, or some files can be replaced with stuff from say .. busybox.