bike
/
gbootroot
mirror of https://github.com/fspc/gbootroot.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
Browse Source

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

ldconfig explanation.
master
freesource 24 years ago
parent
cf3d4b6ad5
commit
c1408c656d
1 changed files with 14 additions and 14 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 28
      add-ons/yard/make-debian-X11/make_debian-X11

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] && !/^#.*/ ) {

Write Preview
Loading…
Cancel
Save