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