bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-02-23 09:03:23 -05:00
Code Issues Projects Releases Wiki Activity

Makes the files created by this script have debian-X11 appended, and fixes a

Browse Source 
ldconfig explanation.
This commit is contained in:
freesource 2001-10-03 05:06:00 +00:00
parent cf3d4b6ad5
commit c1408c656d
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
add-ons/yard/make-debian-X11/make_debian-X11
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# make_debian Copyright (C) 2001 from gBootRoot # make_debian-X11 Copyright (C) 2001 from gBootRoot
# Lead Developer and Project Coordinator # Lead Developer and Project Coordinator
# Jonathan Rosenbaum <freesource@users.sourceforge.net> # Jonathan Rosenbaum <freesource@users.sourceforge.net>
# #
@ -149,7 +149,7 @@ my $stuff = << "STUFF";
# Todays Quote: Creating a root filesystem is all about stuff. # Todays Quote: Creating a root filesystem is all about stuff.
# The STUFF NEEDED in order for init to work. # The STUFF NEEDED in order for init to work.
/etc/runlevel.conf <= Replacements/etc/runlevel.conf # made by make_debian /etc/runlevel.conf <= Replacements/etc/runlevel.conf_debian-X11 # made by make_debian-X11
/etc/init.d/rc /etc/init.d/rc
/etc/init.d/rcS /etc/init.d/rcS
/etc/inittab <= Replacements/etc/inittab.debian # specific to devfs /etc/inittab <= Replacements/etc/inittab.debian # specific to devfs
@ -181,10 +181,10 @@ my $stuff = << "STUFF";
/etc/shadow <= Replacements/etc/shadow.debian /etc/shadow <= Replacements/etc/shadow.debian
# The stuff required by dpkg. # The stuff required by dpkg.
/var/lib/dpkg/diversions <= Replacements/var/lib/dpkg/diversions /var/lib/dpkg/diversions <= Replacements/var/lib/dpkg/diversions_debian-X11
/var/lib/dpkg/cmethopt /var/lib/dpkg/cmethopt
/var/lib/dpkg/lock /var/lib/dpkg/lock
/var/lib/dpkg/status <= Replacements/var/lib/dpkg/status /var/lib/dpkg/status <= Replacements/var/lib/dpkg/status_debian-X11
/var/lib/dpkg/methods/disk /var/lib/dpkg/methods/disk
/var/lib/dpkg/methods/floppy /var/lib/dpkg/methods/floppy
/var/lib/dpkg/methods/mnt /var/lib/dpkg/methods/mnt
@ -210,7 +210,7 @@ my $stuff = << "STUFF";
/etc/default/ipchains /etc/default/ipchains
# Netkit-inetd stuff # Netkit-inetd stuff
/etc/inetd.conf <= Replacements/etc/inetd.conf /etc/inetd.conf <= Replacements/etc/inetd.conf_debian-X11
# Tcpd stuff # Tcpd stuff
/etc/hosts.allow /etc/hosts.allow
@ -289,7 +289,7 @@ my $stuff = << "STUFF";
/var/lib/locate /var/lib/locate
/var/backups /var/backups
# Stuff so ldconfig doesn't complain. # Stuff so ldconfig creates all the proper dependencies.
/etc/ld.so.conf <= Replacements/etc/ld.so.conf /etc/ld.so.conf <= Replacements/etc/ld.so.conf
## ALL the REQUIRED files generated by make-debian. ## ALL the REQUIRED files generated by make-debian.
@ -470,8 +470,8 @@ print STDERR "All done making your $debian_yard template.\n";
# This creates a tweaked runlevel.conf which is easier then trying to figure # This creates a tweaked runlevel.conf which is easier then trying to figure
# out which symlinks to use in /etc/rc?d. # out which symlinks to use in /etc/rc?d.
open(MY_FILERC,">$home_yard_replacements/etc/runlevel.conf") open(MY_FILERC,">$home_yard_replacements/etc/runlevel.conf_debian-X11")
or die "Couldn't open $home_yard_replacements/etc/runlevel.conf: $!\n"; or die "Couldn't open $home_yard_replacements/etc/runlevel.conf_debian-X11: $!\n";
my @sortedrc = map { $_->[1] } my @sortedrc = map { $_->[1] }
sort { $a->[0] <=> $b->[0] } sort { $a->[0] <=> $b->[0] }
map { [ (split(/\s/,$_))[0], $_ ] } map { [ (split(/\s/,$_))[0], $_ ] }
@ -503,8 +503,8 @@ open(STATUS,"$status") or die "Can't find /var/lib/dpkg/status: $!\n";
home_builder("$home_yard_replacements/var/lib/dpkg"); home_builder("$home_yard_replacements/var/lib/dpkg");
system "touch $home_yard_replacements/var/lib/dpkg/available"; system "touch $home_yard_replacements/var/lib/dpkg/available";
#or die "Couldn't create Replacements/var/lib/dpkg/available: $!\n"; #or die "Couldn't create Replacements/var/lib/dpkg/available: $!\n";
open(NEW_STATUS,">$home_yard_replacements/var/lib/dpkg/status") open(NEW_STATUS,">$home_yard_replacements/var/lib/dpkg/status_debian-X11")
or die "Couldn't open $home_yard_replacements/var/lib/dpkg/status: $!\n"; or die "Couldn't open Replacements/var/lib/dpkg/status_debian-X11: $!\n";
while (<STATUS>) { # keep the order while (<STATUS>) { # keep the order
my $stat = $_; my $stat = $_;
my $stat2 = (split(/\n/,$stat))[0]; # might as well my $stat2 = (split(/\n/,$stat))[0]; # might as well
@ -539,8 +539,8 @@ while (<DIVERT>) {
} }
close(DIVERT) or die "Couldn't close: $!\n"; close(DIVERT) or die "Couldn't close: $!\n";
open(DIVERT,">$home_yard_replacements/var/lib/dpkg/diversions") open(DIVERT,">$home_yard_replacements/var/lib/dpkg/diversions_debian-X11")
or die "Couldn't open Replacements/var/lib/dpkg/diversions: $!\n"; or die "Couldn't open Replacements/var/lib/dpkg/diversions_debian-X11: $!\n";
my @info; my @info;
foreach my $rp (@required_packages) { foreach my $rp (@required_packages) {
$rp = (split(/_/,$rp))[0]; $rp = (split(/_/,$rp))[0];
@ -645,8 +645,8 @@ sub inetd_in {
sub inetd_out { sub inetd_out {
my $inetd = "/etc/inetd.conf"; my $inetd = "/etc/inetd.conf";
open(REP_INETD,">$home_yard_replacements/etc/inetd.conf") open(REP_INETD,">$home_yard_replacements/etc/inetd.conf_debian-X11")
or return "Couldn't open Replacements/etc/inetd.conf: $!\n"; or return "Couldn't open Replacements/etc/inetd.conf_debian-X11: $!\n";
open(INETD,"$inetd") or return "Couldn't open /etc/inetd.conf: $!\n"; open(INETD,"$inetd") or return "Couldn't open /etc/inetd.conf: $!\n";
while (<INETD>) { while (<INETD>) {
if ( (split(/\s+/))[6] && !/^#.*/ ) { if ( (split(/\s+/))[6] && !/^#.*/ ) {