diff --git a/yard/scripts/make_debian b/yard/scripts/make_debian index a57305b..ba0fe39 100755 --- a/yard/scripts/make_debian +++ b/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 () { # 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.