Browse Source

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

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?
master
freesource 24 years ago
parent
commit
8ade471c3e
  1. 29
      yard/scripts/make_debian

29
yard/scripts/make_debian

@ -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.

Loading…
Cancel
Save