mirror of https://github.com/fspc/gbootroot.git
Browse Source
root filesystem, and the script to make the add-on package to gbootroot to accomplish this.master
freesource
24 years ago
2 changed files with 1012 additions and 0 deletions
@ -0,0 +1,775 @@ |
|||||
|
#!/usr/bin/perl -w |
||||
|
|
||||
|
# make_debian Copyright (C) 2001 from gBootRoot |
||||
|
# Lead Developer and Project Coordinator |
||||
|
# Jonathan Rosenbaum <freesource@users.sourceforge.net> |
||||
|
# |
||||
|
# http://gbootroot.sourceforge.net |
||||
|
|
||||
|
# This program is free software; you can redistribute it and/or modify |
||||
|
# it under the terms of the GNU General Public License as published by |
||||
|
# the Free Software Foundation; either version 2 of the License, or |
||||
|
# (at your option) any later version. |
||||
|
|
||||
|
# This program is distributed in the hope that it will be useful, |
||||
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
||||
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
||||
|
# GNU General Public License for more details. |
||||
|
|
||||
|
# You should have received a copy of the GNU General Public License |
||||
|
# along with this program; if not, write to the Free Software |
||||
|
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. |
||||
|
|
||||
|
use strict; |
||||
|
use File::Basename; |
||||
|
|
||||
|
# You will need to get swim at http://www.sourceforge.net/projects/avd |
||||
|
my $home = "$ENV{HOME}/.gbootroot"; |
||||
|
my $home_yard = "$home/yard"; |
||||
|
my $template_dir = "$home_yard/templates/"; |
||||
|
my $home_yard_replacements = "$home_yard/Replacements"; |
||||
|
my $nodename = `uname -n`; chomp $nodename; |
||||
|
my $debian_yard = "Debian-X112.yard"; |
||||
|
my $status = "/var/lib/dpkg/status"; |
||||
|
my $info = "/var/lib/dpkg/info"; |
||||
|
my (%alternatives, @alternatives); # for checking for alternatives |
||||
|
my %inetd; # checks for inetd binaries. |
||||
|
|
||||
|
# You need file-rc, and you may add other extra stuff. These packages were |
||||
|
# 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(s) & |
||||
|
# swim -ql --df packagename(s) & swim -qc packagename(s) (not all conf files |
||||
|
# can be found this way .. read above) so you will want to use |
||||
|
# swim -q --scripts packagename(s) or |
||||
|
# swim -q --preinst --postinst packagenames(s). |
||||
|
|
||||
|
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 debconf-utils |
||||
|
binutils bzip2 file libbz2-1.0 libfreetype6 libglib1.2 libgtk-perl |
||||
|
libgtk1.2 make xfonts-base xfree86-common xlibmesa3 xlibs |
||||
|
xserver-common xterm xutils zlib1g libgdbmg1 libxaw7 gbootroot); |
||||
|
|
||||
|
# -------------------------------------------------------------------- |
||||
|
# DIRECTIONS |
||||
|
# This creates a X11 filesystem. |
||||
|
# These replacements are unique and not found in CVS: |
||||
|
# add sources.list to this, too. |
||||
|
|
||||
|
#/usr/X11R6/bin/startx <= Replacements/usr/X11R6/bin/startx |
||||
|
#/root/README <= Replacements/root/README |
||||
|
#/root/make_swapfile <= Replacements/root/make_swapfile |
||||
|
#/root/umlnet <= Replacements/root/umlnet |
||||
|
#/etc/apt/sources.list <= Replacements/etc/sources.list .. for adm. |
||||
|
|
||||
|
# 0. run dpkg-reconfigure for xfree86-common and xserver-common |
||||
|
# This catches mistakes |
||||
|
# 0.1 dpkg-reconfigure for xfonts-base |
||||
|
# 1. make permissions correct for directory /home/user and all files * & .* |
||||
|
# and remove README. |
||||
|
# ................................................................... |
||||
|
# 2. xnest & flwm are installed with apt-update |
||||
|
# 3. Clean out sources.list, /var/cache/archives /var/lib/apt/lists, |
||||
|
# /etc/network/interface should be commented in again. |
||||
|
# 4. run swim --initdb |
||||
|
# 4.5. remove linux uml_* |
||||
|
# 5. run /etc/cron.daily/find |
||||
|
# 6. run /etc/cron.daily/sysklogd & /etc/cron.daily.weekly/sysklogd |
||||
|
# and clean out *.0 |
||||
|
# 7. halt and mount filesystem on loop and remove all .bash_history. |
||||
|
# -------------------------------------------------------------------- |
||||
|
|
||||
|
# Before starting make sure swim and file-rc are present. |
||||
|
start_up(); |
||||
|
|
||||
|
system "swim --search \"Priority: required\" --no"; |
||||
|
my $swim_packages = "swim -qS|"; |
||||
|
my $swim_list = "swim -qSl|"; # Not using --df for empty directories. |
||||
|
$, = " "; |
||||
|
my $extra_files = "swim -ql @extra_packages|"; # Not using --df. |
||||
|
$, = ""; |
||||
|
|
||||
|
# All the packages |
||||
|
open(SWIM,$swim_packages) or die "Couldn't open swim_packages: $?\n"; |
||||
|
my @required_packages = <SWIM>; chomp @required_packages; |
||||
|
close(SWIM); |
||||
|
|
||||
|
# All the files |
||||
|
open(SWIM,$swim_list) or die "Couldn't open swim_list: $!\n"; |
||||
|
my @required_files = <SWIM>; chomp @required_files; |
||||
|
close(SWIM); |
||||
|
|
||||
|
open(SWIM,$extra_files) or die "Couldn't open extra_files: $!\n"; |
||||
|
my @extra_files = <SWIM>; chomp @extra_files; |
||||
|
close(SWIM); |
||||
|
|
||||
|
push(@required_files,@extra_files); |
||||
|
|
||||
|
|
||||
|
################################################################# |
||||
|
################################################################# |
||||
|
# |
||||
|
# EDIT |
||||
|
# BELOW |
||||
|
# |
||||
|
# Edit below $stuff = << "STUFF" to make changes to the template. |
||||
|
sub stuff { |
||||
|
|
||||
|
my $stuff = << "STUFF"; |
||||
|
# Generated by make_debian-X11. |
||||
|
|
||||
|
# This template creates a complete Debian system which is more streamlined |
||||
|
# than the base.tgz used for normal installations. Once everything is made, |
||||
|
# you can use user-mode-linux and apt to tweak the system. |
||||
|
# Make-debian generates all the information you need. You will need swim and |
||||
|
# file-rc installed, and you will have to be running a Debian system to make |
||||
|
# this template. Make_debian ditches info, man, and doc files by default |
||||
|
# and timezone info not found on the host system, but gives you the choice |
||||
|
# to decide otherwise. |
||||
|
|
||||
|
# Characteristics: user: root passwd: root |
||||
|
# user: user passwd: user |
||||
|
# Uses devfs. |
||||
|
|
||||
|
# IMPORTANT NOTE: Things slow down noticeably when the buffer gets too big in |
||||
|
# the verbosity box so consider closing it with the slider for faster |
||||
|
# generation. Look at /tmp/verbose instead. |
||||
|
# |
||||
|
# The windows will appear to freeze up while using this template, this is |
||||
|
# natural, be patient, because it will complete. If you want to create |
||||
|
# another filesystem concurrently, open up another invocation of gBootRoot. |
||||
|
|
||||
|
# Todays Quote: Creating a root filesystem is all about stuff. |
||||
|
|
||||
|
# The STUFF NEEDED in order for init to work. |
||||
|
/etc/runlevel.conf <= Replacements/etc/runlevel.conf # made by make_debian |
||||
|
/etc/init.d/rc |
||||
|
/etc/init.d/rcS |
||||
|
/etc/inittab <= Replacements/etc/inittab.debian # specific to devfs |
||||
|
/etc/default/rcS |
||||
|
|
||||
|
# Stuff needed to return init to its state prior to installing file-rc. |
||||
|
/etc/init.d/rc.links |
||||
|
/etc/init.d/rcS.links |
||||
|
/usr/sbin/update-rc.d.links |
||||
|
|
||||
|
# Login stuff |
||||
|
/etc/securetty <= Replacements/etc/securetty.debian # devfs needs this |
||||
|
/root/.bashrc <= Replacements/root/.bashrc.debian |
||||
|
/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 |
||||
|
|
||||
|
# Important stuff .. you will need to edit the login files if you add packages |
||||
|
# which require other users/groups. The default fstab mounts /dev/ubd/0. |
||||
|
#/etc/fstab <= Replacements/etc/fstab.new # Made from Yard Box menu |
||||
|
/etc/fstab <= Replacements/etc/fstab.debian # devfs specific |
||||
|
/etc/passwd <= Replacements/etc/passwd.debian |
||||
|
/etc/passwd- <= Replacements/etc/passwd-debian |
||||
|
/etc/group <= Replacements/etc/group.debian |
||||
|
/etc/group- <= Replacements/etc/group-debian |
||||
|
/etc/shadow <= Replacements/etc/shadow.debian |
||||
|
|
||||
|
# The stuff required by dpkg. |
||||
|
/var/lib/dpkg/diversions <= Replacements/var/lib/dpkg/diversions |
||||
|
/var/lib/dpkg/cmethopt |
||||
|
/var/lib/dpkg/lock |
||||
|
/var/lib/dpkg/status <= Replacements/var/lib/dpkg/status |
||||
|
/var/lib/dpkg/methods/disk |
||||
|
/var/lib/dpkg/methods/floppy |
||||
|
/var/lib/dpkg/methods/mnt |
||||
|
/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 |
||||
|
/var/cache/apt/archives/partial |
||||
|
/var/lib/apt/lists/lock |
||||
|
/var/lib/apt/lists/partial |
||||
|
/etc/apt/* |
||||
|
|
||||
|
# Timezone data from libc6 |
||||
|
/usr/share/zoneinfo/localtime |
||||
|
|
||||
|
# Debconf stuff |
||||
|
/var/cache/debconf |
||||
|
|
||||
|
# Ipchains stuff |
||||
|
/etc/default/ipchains |
||||
|
|
||||
|
# Netkit-inetd stuff |
||||
|
/etc/inetd.conf <= Replacements/etc/inetd.conf |
||||
|
|
||||
|
# Tcpd stuff |
||||
|
/etc/hosts.allow |
||||
|
/etc/hosts.deny |
||||
|
|
||||
|
# Network stuff |
||||
|
# You will want to edit the interfaces file. |
||||
|
# Remember to load any needed modules on the host system, for instance |
||||
|
# if tap is used, you will want to do this: |
||||
|
# modprobe ethertap |
||||
|
# modprobe netlink_dev |
||||
|
# And when you start your creation with the uml box you will want to add |
||||
|
# something like this to the options where HWaddr (see ifconfig) belongs |
||||
|
# to your network device: |
||||
|
# eth0=ethertap,tap0,HWaddr,192.168.1.5 |
||||
|
/etc/resolv.conf |
||||
|
/etc/hosts <= Replacements/etc/hosts |
||||
|
/root/umlnet <= Replacements/root/umlnet # Example network setup script |
||||
|
/etc/networks <= Replacements/etc/networks |
||||
|
/etc/network/if-down.d # empty |
||||
|
/etc/network/if-post-down.d # "" |
||||
|
/etc/network/if-pre-up.d # "" |
||||
|
/etc/network/if-up.d # "" |
||||
|
/etc/network/interfaces <= Replacements/etc/network/interfaces |
||||
|
/etc/network/options |
||||
|
/etc/network/spoof-protect |
||||
|
|
||||
|
# X stuff |
||||
|
/usr/X11R6/bin/xsetroot |
||||
|
/usr/X11R6/bin/startx <= Replacements/usr/X11R6/bin/startx-debian-X11 |
||||
|
/root/README <= Replacements/root/README-debian-X11 |
||||
|
/root/make_swapfile <= Replacements/root/make_swapfile |
||||
|
/usr/bin/X11 -> ../X11R6/bin |
||||
|
/usr/include/X11 -> ../X11R6/include/X11 |
||||
|
/usr/lib/X11 -> ../X11R6/lib/X11 |
||||
|
/usr/X11R6/lib/X11/rgb.txt -> /etc/X11/rgb.txt |
||||
|
/usr/bin/X11/xsetroot |
||||
|
/usr/X11R6/lib/X11/xserver -> /etc/X11/xserver |
||||
|
/etc/X11/Xwrapper.config |
||||
|
/etc/X11/xkb/xkbcomp -> /usr/X11R6/bin/xkbcomp |
||||
|
/usr/X11R6/bin/xkbcomp |
||||
|
|
||||
|
# Devices - optional stuff which can be picked up by devfsd. |
||||
|
/dev/MAKEDEV # a link |
||||
|
/dev/mem |
||||
|
/dev/kmem |
||||
|
/dev/null |
||||
|
/dev/zero |
||||
|
/dev/ram* |
||||
|
/dev/console |
||||
|
/dev/tty[0-9] |
||||
|
/dev/hd[abcd]* |
||||
|
/dev/ttyS[0-9] |
||||
|
/dev/fd0* |
||||
|
/dev/sd* |
||||
|
#/dev/cdrom |
||||
|
#/dev/modem |
||||
|
/dev/pts* |
||||
|
/dev/ptmx |
||||
|
/dev/initctl |
||||
|
/dev/urandom |
||||
|
/dev/ubd0 <= Replacements/dev/ubd0 |
||||
|
|
||||
|
# Empty directories with no stuff. |
||||
|
/mnt |
||||
|
/proc |
||||
|
/tmp |
||||
|
/var/tmp |
||||
|
/var/run |
||||
|
/var/lock |
||||
|
/var/log/news |
||||
|
/var/lib/locate |
||||
|
/var/backups |
||||
|
|
||||
|
# 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. |
||||
|
STUFF |
||||
|
|
||||
|
return $stuff; |
||||
|
} # end sub stuff |
||||
|
################################################################# |
||||
|
################################################################# |
||||
|
|
||||
|
################### |
||||
|
## Package Check ## |
||||
|
################### |
||||
|
|
||||
|
# Better tell the user what required and extra packages don't exist. |
||||
|
|
||||
|
# It is 100% unlikely that a required package is missing because |
||||
|
# the information is taken directly from the system. But it is fun |
||||
|
# to test for anyways, weirder things have been known to happen. |
||||
|
|
||||
|
my $required_packages_check = "swim -q @required_packages|"; |
||||
|
open (CHECK,$required_packages_check) |
||||
|
or die "Couldn't find any required packages: $?\n"; |
||||
|
my @rpc; |
||||
|
while (<CHECK>) { |
||||
|
if (/^package/) { |
||||
|
my $rpc = (split(/\s/))[1]; |
||||
|
push(@rpc,$rpc); |
||||
|
|
||||
|
} |
||||
|
} |
||||
|
close (CHECK); |
||||
|
|
||||
|
if (@rpc) { |
||||
|
print "There are the required packages which were specified:\n\n"; |
||||
|
$, = " "; |
||||
|
print @required_packages, "\n\n"; |
||||
|
print "This is what wasn't installed on your system:\n\n"; |
||||
|
print @rpc , "\n\n"; |
||||
|
$, = ""; |
||||
|
} |
||||
|
|
||||
|
my $extra_packages_check = "swim -q @extra_packages|"; |
||||
|
open (CHECK,$extra_packages_check) |
||||
|
or die "Couldn't find any required packages: $?\n"; |
||||
|
my @epc; |
||||
|
while (<CHECK>) { |
||||
|
if (/^package/) { |
||||
|
my $epc = (split(/\s/))[1]; |
||||
|
push(@epc,$epc); |
||||
|
} |
||||
|
} |
||||
|
close (CHECK); |
||||
|
|
||||
|
if (@epc) { |
||||
|
print "There are the extra packages which were specified:\n\n"; |
||||
|
$, = " "; |
||||
|
print @extra_packages, "\n\n"; |
||||
|
print "This is what wasn't installed on your system:\n\n"; |
||||
|
print @epc , "\n\n"; |
||||
|
$, = ""; |
||||
|
} |
||||
|
|
||||
|
push(@required_packages,@extra_packages); |
||||
|
|
||||
|
|
||||
|
####################### |
||||
|
## Template Creation ## |
||||
|
####################### |
||||
|
|
||||
|
# Ask some questions first. |
||||
|
my $doc_reply = "nothing"; |
||||
|
print "The default is to remove /usr/share/{doc,man,info}? [yes or no]: "; |
||||
|
while (<STDIN>) { |
||||
|
$doc_reply = $_; |
||||
|
last if $doc_reply eq "yes\n"; |
||||
|
last if $doc_reply eq "no\n"; |
||||
|
if ($doc_reply eq "\n") { $doc_reply = "yes\n"; last; } |
||||
|
if ($doc_reply ne "yes\n" || $doc_reply ne "no\n") { |
||||
|
print "The default is to remove /usr/share/{doc,man,info}? [yes or no]: "; |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
print "\nThe default is to remove everything in /usr/share/zoneinfo\n" . |
||||
|
"except for your local settings found in /etc/locatime? [yes or no]: "; |
||||
|
my $localtime_reply = "nothing"; |
||||
|
while (<STDIN>) { |
||||
|
$localtime_reply = $_; |
||||
|
last if $localtime_reply eq "yes\n"; |
||||
|
last if $localtime_reply eq "no\n"; |
||||
|
if ($localtime_reply eq "\n") { $localtime_reply = "yes\n"; last; } |
||||
|
if ($localtime_reply ne "yes\n" || $localtime_reply ne "no\n") { |
||||
|
print "The default is to remove everything in /usr/share/zoneinfo\n" . |
||||
|
"except for your local settings found in /etc/locatime? [yes or no]: "; |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
open(DEBIAN,">$template_dir/$debian_yard") |
||||
|
or die "Couldn't open $template_dir$debian_yard: $!\n"; |
||||
|
open(FILERC,"/etc/runlevel.conf") or die "No runlevel.conf: $!\n"; |
||||
|
my @filerc = <FILERC>; |
||||
|
close(FILERC); |
||||
|
|
||||
|
print DEBIAN stuff(); |
||||
|
|
||||
|
my @file_rc; |
||||
|
alternatives(); |
||||
|
inetd_in(); |
||||
|
foreach (@required_files) { |
||||
|
if (-e && !-d) { |
||||
|
if ($doc_reply eq "no\n") { |
||||
|
if ($alternatives{$_}) { |
||||
|
push(@alternatives,$_); |
||||
|
} |
||||
|
if ($inetd{$_}) { |
||||
|
$inetd{$_} = 1; |
||||
|
} |
||||
|
if ($localtime_reply eq "yes\n") { |
||||
|
print DEBIAN "$_\n" if ! m,/usr/share/zoneinfo,; |
||||
|
} |
||||
|
else { |
||||
|
print DEBIAN "$_\n"; |
||||
|
} |
||||
|
} |
||||
|
else { |
||||
|
if (! m,/usr/share/info|/usr/share/man|/usr/share/doc|/usr/X11R6/man,) { |
||||
|
if ($alternatives{$_}) { |
||||
|
push(@alternatives,$_); |
||||
|
} |
||||
|
if ($inetd{$_}) { |
||||
|
$inetd{$_} = 1; |
||||
|
} |
||||
|
if ($localtime_reply eq "yes\n") { |
||||
|
print DEBIAN "$_\n" if ! m,/usr/share/zoneinfo,; |
||||
|
} |
||||
|
else { |
||||
|
print DEBIAN "$_\n"; |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
if (m,/etc/init\.d,) { |
||||
|
foreach my $filerc (@filerc) { |
||||
|
push(@file_rc,$filerc) if $filerc =~ /$_/; |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
inetd_out(); |
||||
|
|
||||
|
print DEBIAN "\n# Scripts associated with packages found in info/*\n"; |
||||
|
print DEBIAN status_info_divert(); |
||||
|
|
||||
|
# alternatives |
||||
|
print DEBIAN "\n# Alternative stuff.\n"; |
||||
|
foreach (@alternatives) { |
||||
|
if ($alternatives{$_}) { |
||||
|
foreach my $alt ( 0 .. $#{ $alternatives{$_} } ) { |
||||
|
print DEBIAN "/etc/alternatives/", |
||||
|
$alternatives{$_}[$alt], "\n"; |
||||
|
print DEBIAN "/var/lib/dpkg/alternatives/", |
||||
|
$alternatives{$_}[$alt], "\n"; |
||||
|
print DEBIAN dirname($_), "/", |
||||
|
$alternatives{$_}[$alt], "\n"; |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
close(DEBIAN); |
||||
|
print "All done making your $debian_yard template.\n"; |
||||
|
|
||||
|
######################### |
||||
|
# END TEMPLATE CREATION # |
||||
|
######################### |
||||
|
|
||||
|
# This creates a tweaked runlevel.conf which is easier then trying to figure |
||||
|
# out which symlinks to use in /etc/rc?d. |
||||
|
|
||||
|
open(MY_FILERC,">$home_yard_replacements/etc/runlevel.conf") |
||||
|
or die "Couldn't open $home_yard_replacements/etc/runlevel.conf: $!\n"; |
||||
|
my @sortedrc = map { $_->[1] } |
||||
|
sort { $a->[0] <=> $b->[0] } |
||||
|
map { [ (split(/\s/,$_))[0], $_ ] } |
||||
|
@file_rc; |
||||
|
print MY_FILERC @sortedrc; |
||||
|
close(MY_FILERC); |
||||
|
|
||||
|
# This creates a status file for use by dpkg and swim. |
||||
|
# Although swim could be used to do this, it is more efficient just to |
||||
|
# parse the status file. But because this is a good exercise for |
||||
|
# using this script to create a status file found from packages on a system |
||||
|
# which doesn't actually have a status file .. here would be the order |
||||
|
# needed when using swim to query: |
||||
|
# |
||||
|
# Package, Status, Priority, Section, Installed-Size, Maintainer, Source, |
||||
|
# Version, Replaces, Provides, Depends, Pre-Depends, Recommends, Suggests, |
||||
|
# Conflicts, Conffiles, Description. |
||||
|
# |
||||
|
# Conffiles would have to be handled both before and after Root Filesystem |
||||
|
# creation so that their md5sums could be accounted for in status. |
||||
|
# |
||||
|
# And this finds all the scripts associated with a package in info/*, |
||||
|
# creates an empty available file, and creates the diversions file. |
||||
|
|
||||
|
sub status_info_divert { |
||||
|
|
||||
|
$/ = ""; |
||||
|
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 |
||||
|
my $stat = $_; |
||||
|
my $stat2 = (split(/\n/,$stat))[0]; # might as well |
||||
|
foreach my $rp (@required_packages) { |
||||
|
$rp = (split(/_/,$rp))[0]; |
||||
|
# Deal with names with + |
||||
|
$rp =~ s/\+/\\+/g if $rp !~ /\\+/g; |
||||
|
if ($stat2 =~ /^Package: $rp$/) { |
||||
|
print NEW_STATUS $stat; |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
close(NEW_STATUS); |
||||
|
close(STATUS); |
||||
|
$/ = "\n"; |
||||
|
|
||||
|
my %dpkg_divert; |
||||
|
my $dpkg_divert = "dpkg-divert --list|"; |
||||
|
open(DIVERT,"$dpkg_divert") |
||||
|
or die "Couldn't find the dpkg-divert command: $!\n"; |
||||
|
while (<DIVERT>) { |
||||
|
|
||||
|
my($original,$diversion,$package) = (split(" "))[2,4,6]; |
||||
|
chomp $package; |
||||
|
if (!$dpkg_divert{$package}) { # Just add to the array |
||||
|
$dpkg_divert{$package} = [$original,$diversion]; |
||||
|
} |
||||
|
else { |
||||
|
push @{ $dpkg_divert {$package} }, $original, $diversion; |
||||
|
} |
||||
|
|
||||
|
} |
||||
|
close(DIVERT) or die "Couldn't close: $!\n"; |
||||
|
|
||||
|
open(DIVERT,">$home_yard_replacements/var/lib/dpkg/diversions") |
||||
|
or die "Couldn't open Replacements/var/lib/dpkg/diversions: $!\n"; |
||||
|
my @info; |
||||
|
foreach my $rp (@required_packages) { |
||||
|
$rp = (split(/_/,$rp))[0]; |
||||
|
# Get rid of the escapes from the previous invocation. |
||||
|
$rp =~ s/\\//g if $rp =~ /\\+/g; |
||||
|
|
||||
|
my $count = 0; my @divert; |
||||
|
if ($dpkg_divert{$rp}) { |
||||
|
foreach my $dv ( @{ $dpkg_divert{$rp} } ) { |
||||
|
push(@divert,$dv); |
||||
|
if ($count == 1) { |
||||
|
print DIVERT "$divert[0]\n"; |
||||
|
print DIVERT "$divert[1]\n"; |
||||
|
print DIVERT "$rp\n"; |
||||
|
$count = -1; undef @divert; |
||||
|
} |
||||
|
$count++; |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
# Figure out info/* .. this covers it for now. |
||||
|
if (-f "$info/$rp.preinst") { |
||||
|
push(@info,"$info/$rp.preinst\n"); |
||||
|
} |
||||
|
if (-f "$info/$rp.postinst") { |
||||
|
push(@info,"$info/$rp.postinst\n"); |
||||
|
} |
||||
|
if (-f "$info/$rp.prerm") { |
||||
|
push(@info,"$info/$rp.prerm\n"); |
||||
|
} |
||||
|
if (-f "$info/$rp.postrm") { |
||||
|
push(@info,"$info/$rp.postrm\n"); |
||||
|
} |
||||
|
if (-f "$info/$rp.list") { |
||||
|
push(@info,"$info/$rp.list\n"); |
||||
|
} |
||||
|
if (-f "$info/$rp.shlibs") { |
||||
|
push(@info,"$info/$rp.shlibs\n"); |
||||
|
} |
||||
|
if (-f "$info/$rp.conffiles") { |
||||
|
push(@info,"$info/$rp.conffiles\n"); |
||||
|
} |
||||
|
if (-f "$info/$rp.md5sums") { |
||||
|
push(@info,"$info/$rp.md5sums\n"); |
||||
|
} |
||||
|
if (-f "$info/$rp.config") { |
||||
|
push(@info,"$info/$rp.config\n"); |
||||
|
} |
||||
|
} |
||||
|
close(DIVERT); |
||||
|
|
||||
|
return @info; |
||||
|
|
||||
|
} # end sub status_info_divert |
||||
|
|
||||
|
sub alternatives { |
||||
|
|
||||
|
my $ls = "ls -l /etc/alternatives|"; |
||||
|
my @ls; |
||||
|
open(LS,$ls) or die "No ls?: $!\n"; |
||||
|
while (<LS>) { |
||||
|
if (/->/) { |
||||
|
my($left,$right) = split(" -> "); |
||||
|
chomp $right; |
||||
|
# Yard adds this stuff. |
||||
|
$right =~ s/\.\.\/\.\.//g; |
||||
|
|
||||
|
$left =~ s/^.*\d+\s//g; |
||||
|
if (!$alternatives{$right}) { |
||||
|
$alternatives{$right} = [$left]; |
||||
|
} |
||||
|
else { |
||||
|
push @{ $alternatives {$right} }, $left; |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
close(LS); |
||||
|
|
||||
|
} # end sub alternatives |
||||
|
|
||||
|
sub inetd_in { |
||||
|
|
||||
|
my $inetd = "/etc/inetd.conf"; |
||||
|
open(INETD,"$inetd") or return "Couldn't open /etc/inetd.conf: $!\n"; |
||||
|
# Basically will ignore anything with less than 7 columns, and |
||||
|
# will comment lines where the executables don't exist. |
||||
|
while (<INETD>) { |
||||
|
if ( (split(/\s+/))[6] && !/^#.*/ ) { |
||||
|
my $seventh_column = (split(/\s+/))[6]; |
||||
|
chomp $seventh_column; |
||||
|
$inetd{ basename($seventh_column) } = 0; |
||||
|
} |
||||
|
} |
||||
|
close(INETD); |
||||
|
|
||||
|
} |
||||
|
|
||||
|
sub inetd_out { |
||||
|
|
||||
|
my $inetd = "/etc/inetd.conf"; |
||||
|
open(REP_INETD,">$home_yard_replacements/etc/inetd.conf") |
||||
|
or return "Couldn't open Replacements/etc/inetd.conf: $!\n"; |
||||
|
open(INETD,"$inetd") or return "Couldn't open /etc/inetd.conf: $!\n"; |
||||
|
while (<INETD>) { |
||||
|
if ( (split(/\s+/))[6] && !/^#.*/ ) { |
||||
|
my $seventh_column = (split(/\s+/))[6]; |
||||
|
chomp $seventh_column; |
||||
|
if ( $inetd{ basename($seventh_column) } == 1 ) { |
||||
|
print REP_INETD $_; |
||||
|
} |
||||
|
else { |
||||
|
print REP_INETD "# $_"; |
||||
|
} |
||||
|
} |
||||
|
else { |
||||
|
print REP_INETD $_; |
||||
|
} |
||||
|
} |
||||
|
close(REP_INETD); |
||||
|
close(INETD); |
||||
|
|
||||
|
} |
||||
|
|
||||
|
sub home_builder { |
||||
|
|
||||
|
my ($home_builder) = @_; |
||||
|
|
||||
|
if (!-d $home_builder) { |
||||
|
if (-e $home_builder) { |
||||
|
print "ERROR: A file exists where $home_builder should be.\n"; |
||||
|
} |
||||
|
else { |
||||
|
my @directory_parts = split(m,/,,$home_builder); |
||||
|
my $placement = "/"; |
||||
|
for (1 .. $#directory_parts) { |
||||
|
$_ == 1 ? ($placement = "/$directory_parts[$_]") |
||||
|
: ($placement = $placement . "/" . $directory_parts[$_]); |
||||
|
-d $placement or mkdir $placement; |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
} # end home_builder |
||||
|
|
||||
|
# The least important function, |
||||
|
# so therefore probably the most important function. |
||||
|
sub start_up { |
||||
|
|
||||
|
# existence of dpkg |
||||
|
if (!-f "/usr/bin/dpkg") { |
||||
|
die "You are not using a Debian system, in the future this " . |
||||
|
"may be supported, but for now you need living Debian.\n"; |
||||
|
} |
||||
|
|
||||
|
# Swim has never been installed before? |
||||
|
my $dpkg_result = system "dpkg -l swim >/dev/null 2>&1"; |
||||
|
if ($dpkg_result !=0) { |
||||
|
die "Swim is required:\n\n" . |
||||
|
"Add one of these lines to your /etc/apt/sources.list:\n" . |
||||
|
"deb http://prdownloads.sourceforge.net/avd ./ or\n" . |
||||
|
"deb http://download.sourceforge.net/avd ./\n\n" . |
||||
|
"Then do `apt-get update` and `apt-get install swim`\n" . |
||||
|
""; |
||||
|
} |
||||
|
|
||||
|
# Swim has been installed but is removed or purged |
||||
|
my $dpkg_s = "dpkg -s swim|"; |
||||
|
open(DPKG,"$dpkg_s") or die "Couldn't find dpkg: $!\n"; |
||||
|
while (<DPKG>) { |
||||
|
if (/Status:/) { |
||||
|
if (!/\s+installed/) { |
||||
|
if (/purge|deinstall/) { |
||||
|
die "Swim needs to be reinstalled:\n\n" . |
||||
|
"Add one of these lines to your /etc/apt/sources.list:\n" . |
||||
|
"deb http://prdownloads.sourceforge.net/avd ./ or\n" . |
||||
|
"deb http://download.sourceforge.net/avd ./\n\n" . |
||||
|
"Then do `apt-get update` and `apt-get install swim`\n" . |
||||
|
""; |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
close(DPKG); |
||||
|
|
||||
|
# Swim is installed but the databases need to be initialized. |
||||
|
my $swim = "swim -qf /sbin/init|"; |
||||
|
open(SWIM,$swim) or die "Had trouble using swim: $!\n"; |
||||
|
while (<SWIM>) { |
||||
|
if ($_ eq "file init is not owned by any package\n") { |
||||
|
my $db_reply = "nothing"; |
||||
|
print "It appears that swim has never had its database " . |
||||
|
"generated. Would you like me to do this for you? " . |
||||
|
"[yes or no]: "; |
||||
|
while (<STDIN>) { |
||||
|
$db_reply = $_; |
||||
|
last if $db_reply eq "yes\n"; |
||||
|
last if $db_reply eq "no\n"; |
||||
|
if ($db_reply ne "yes\n" || $db_reply ne "no\n") { |
||||
|
print "It appears that swim has never had its database " . |
||||
|
"generated. Would you like me to do this for you? " . |
||||
|
"[yes or no]: "; |
||||
|
} |
||||
|
} |
||||
|
system "swim --initdb" if $db_reply eq "yes\n"; |
||||
|
die "Sorry, can't continue until database is " . |
||||
|
"generated\n" if $db_reply eq "no\n"; |
||||
|
} |
||||
|
} |
||||
|
close(SWIM); |
||||
|
|
||||
|
# Does file-rc exit? |
||||
|
$dpkg_s = "dpkg -s file-rc|"; |
||||
|
open(DPKG,"$dpkg_s") or die "Couldn't find dpkg: $!\n"; |
||||
|
while (<DPKG>) { |
||||
|
if (/Status:/) { |
||||
|
if (!/\s+installed/) { |
||||
|
die "The script requires that file-rc be installed. " . |
||||
|
"Please install it first.\n"; |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
close(DPKG); |
||||
|
|
||||
|
if (!-d $home) { |
||||
|
home_builder($template_dir); |
||||
|
home_builder("$home_yard_replacements/etc"); |
||||
|
} |
||||
|
|
||||
|
print "Everything is in order, but it never hurts to rebuild swim " . |
||||
|
"with --rebuilddb\n"; |
||||
|
|
||||
|
|
||||
|
} # end start_up |
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
@ -0,0 +1,237 @@ |
|||||
|
#!/usr/bin/perl |
||||
|
|
||||
|
use File::Basename; |
||||
|
use File::Find; |
||||
|
|
||||
|
# The Lazy Guy's packaging tool for gBootRoot. |
||||
|
# This program sets-up the archive which will be turned into a package and |
||||
|
# needs to be run as root. The advantage of this program is that the |
||||
|
# archive will always represent the Makefile which is being tested |
||||
|
# when development isn't being done with perl -I . ./gbootroot. |
||||
|
# This program can be adapted for other packages. |
||||
|
|
||||
|
# This program uses dh-make, and copies your own defaults to |
||||
|
# $packaging_place/debian from your $packaging_defaults, and updates |
||||
|
# to the proper date/times and data in changelog and copyright. |
||||
|
# After this debuild from devscripts (this uses lintian) runs. |
||||
|
# Now all you do is finish stuff off with dpkg-scxanpackages .. |
||||
|
# something like this: |
||||
|
# dpkg-scanpackages . override | gzip > Packages.gz |
||||
|
|
||||
|
# User defined variables for directories and package |
||||
|
# Makefile.pkg in $gbootroot_cvs in used as the packages Makefile. |
||||
|
|
||||
|
my $user_home = "/home/mttrader"; |
||||
|
my $prog = "gbootroot"; |
||||
|
my $revision = 1; |
||||
|
my $dist = "unstable"; |
||||
|
my $urgency = "low"; |
||||
|
#my $arch = "all"; |
||||
|
#my $group = "utils"; |
||||
|
#my $priority = "optional"; |
||||
|
my $gbootroot_cvs = "$user_home/gbootroot/gbootroot"; |
||||
|
my $packaging_place = "$user_home/gbootroot/PACKAGING"; |
||||
|
my $packaging_defaults = "$gbootroot_cvs/pkg/dpkg"; |
||||
|
my $email = "freesource\@users.sourceforge.net"; |
||||
|
my $name = "Jonathan Rosenbaum"; |
||||
|
|
||||
|
# Other vars |
||||
|
my ($real_uid, $real_gid) = (stat($user_home))[4,5]; |
||||
|
|
||||
|
# Find the version |
||||
|
|
||||
|
my $version; |
||||
|
open(CVS, "$gbootroot_cvs/$prog") or |
||||
|
die "Couldn't find $prog in $gbootroot_cvs: $!\n"; |
||||
|
while (<CVS>) { |
||||
|
if (/\my \$version/) { |
||||
|
$version = (split(/=/,$_))[1]; |
||||
|
chomp $version; |
||||
|
$version =~ s/ //; |
||||
|
$version =~ s/"//g; |
||||
|
$version =~ s/;//; |
||||
|
} |
||||
|
|
||||
|
} |
||||
|
close(CVS); |
||||
|
|
||||
|
|
||||
|
$packaging_place = "$packaging_place/$prog-$version"; |
||||
|
|
||||
|
# Make sure the directory exists. |
||||
|
|
||||
|
home_builder($packaging_place); |
||||
|
|
||||
|
# Because I am too lazy to clean out CVS, I only want the stuff copied over |
||||
|
# which is in the Makefile, I'll also have to clean out any CVS directories. |
||||
|
|
||||
|
$/ = ""; |
||||
|
my @make_paragraph; |
||||
|
open(CVS, "$gbootroot_cvs/Makefile") or |
||||
|
die "Couldn't find Makefile in $gbootroot_cvs: $!\n"; |
||||
|
|
||||
|
while (<CVS>) { |
||||
|
push(@make_paragraph,$_); |
||||
|
} |
||||
|
close(CVS); |
||||
|
$/ = "\n"; |
||||
|
|
||||
|
chomp $make_paragraph[1]; |
||||
|
my @make_lines = split(/\n/,$make_paragraph[1]); |
||||
|
shift(@make_lines); |
||||
|
|
||||
|
chdir($gbootroot_cvs) or die "Couldn't change to $gbootroot_cvs: $?\n"; |
||||
|
|
||||
|
# Basically we are just concerned with the first part of cp and will |
||||
|
# use home_builder to make sure the directory exists. |
||||
|
|
||||
|
foreach (@make_lines) { |
||||
|
s/\t//; |
||||
|
if (/cp/) { |
||||
|
my $dir = ((split))[2]; |
||||
|
my $base; |
||||
|
if ($dir =~ m,/,) { |
||||
|
$base = dirname($dir); |
||||
|
home_builder("$packaging_place/$base"); |
||||
|
} |
||||
|
system "cp -fa $dir $packaging_place/$base"; |
||||
|
} |
||||
|
else { |
||||
|
if (!/mknod|dev/) { |
||||
|
system "$_"; |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
system "cp -fa Makefile.pkg $packaging_place/Makefile"; |
||||
|
|
||||
|
# Now we get to clean out any CVS directories and make sure that the |
||||
|
# permissions are all for the user who will be creating the package. |
||||
|
if (-d $packaging_place) { |
||||
|
finddepth sub { |
||||
|
|
||||
|
my($uid,$gid) = (stat($File::Find::name))[4,5]; |
||||
|
if ($real_uid != $uid) { |
||||
|
system "chown $real_uid $File::Find::name"; |
||||
|
} |
||||
|
if ($real_gid != $gid) { |
||||
|
system "chgrp $real_gid $File::Find::name"; |
||||
|
} |
||||
|
if (/CVS/) { |
||||
|
chdir(dirname($File::Find::name)); |
||||
|
system "rm -rf CVS"; |
||||
|
} |
||||
|
|
||||
|
} , $packaging_place ; |
||||
|
} |
||||
|
|
||||
|
|
||||
|
# Now we to the dh_make thing, and setup the time, version, and defaults. |
||||
|
|
||||
|
chdir($packaging_place) or die "Can't change to $packaging_place: $?\n"; |
||||
|
system "dh_make -e $email"; |
||||
|
|
||||
|
# Here we ask the user what changes to add to the changelog and set the proper |
||||
|
# time using 822-date. If it is the initial release we don't do anything. |
||||
|
|
||||
|
open(CHANGELOG,"$packaging_defaults/changelog") |
||||
|
or die "Couldn't open $packagaging_place/changelog: $?\n"; |
||||
|
my @changelog = <CHANGELOG>; |
||||
|
close (CHANGELOG); |
||||
|
|
||||
|
my $stop; |
||||
|
foreach (@changelog) { |
||||
|
if (/$version-$revision/) { |
||||
|
print "\nThe changelog for $version-$revision already exists, this may mean\n" . |
||||
|
"that this is the first invocation or that you haven't changed the\n" . |
||||
|
"version in the $prog program.\n"; |
||||
|
$stop = 1; |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
# Ask some questions first. |
||||
|
if (!$stop) { |
||||
|
print "\nWrite what you want to be put in the changelog, and I'll\n" . |
||||
|
"prettify everything. End with a newline and .\n"; |
||||
|
print " * "; |
||||
|
my $save_doc; |
||||
|
$save_doc = " * "; |
||||
|
$count = 0; |
||||
|
while (<STDIN>) { |
||||
|
my $doc_reply = $_; |
||||
|
if ($doc_reply) { |
||||
|
print " "; |
||||
|
$doc_reply = " $doc_reply" if $count != 0; |
||||
|
} |
||||
|
last if $doc_reply =~ /^\s*\.\s*$/; |
||||
|
if ($doc_reply) { |
||||
|
$save_doc = $save_doc . $doc_reply; |
||||
|
} |
||||
|
$count++; |
||||
|
} |
||||
|
|
||||
|
open(CHANGELOG,">$packaging_defaults/changelog") |
||||
|
or die "Couldn't open check: $?\n"; |
||||
|
for my $ct (0 .. ($#changelog - 3)) { |
||||
|
print CHANGELOG $changelog[$ct]; |
||||
|
} |
||||
|
print CHANGELOG "$prog ($version-$revision) $dist; urgency=$urgency\n\n"; |
||||
|
print CHANGELOG "$save_doc\n"; |
||||
|
print CHANGELOG " -- $name <$email> " . `822-date`; |
||||
|
for my $ct (($#changelog - 3) .. $#changelog) { |
||||
|
print CHANGELOG $changelog[$ct]; |
||||
|
} |
||||
|
close(CHANGELOG); |
||||
|
print "\n"; |
||||
|
|
||||
|
system "chown $real_uid $packaging_defaults/changelog"; |
||||
|
system "chgrp $real_gid $packaging_defaults/changelog"; |
||||
|
|
||||
|
} # end if !$stop |
||||
|
|
||||
|
# Set-up the copyright |
||||
|
open(COPYRIGHT,">$packaging_defaults/copyright") |
||||
|
or die "Couldn't open up $packaging_defaults/copyright: $?\n"; |
||||
|
print COPYRIGHT "This package was debianized by $name\n"; |
||||
|
print COPYRIGHT "$email on " , `822-date`, ".\n"; |
||||
|
print COPYRIGHT "Author: \n$name <$email>\n\n"; |
||||
|
print COPYRIGHT "Copyright:\n\n" . |
||||
|
"On Debian GNU/Linux systems, the complete text of the GNU General Public\n" . |
||||
|
"License can be found in /usr/share/common-licenses/GPL\n"; |
||||
|
close(COPYRIGHT); |
||||
|
system "chown $real_uid $packaging_defaults/copyright"; |
||||
|
system "chgrp $real_gid $packaging_defaults/copyright"; |
||||
|
|
||||
|
system "rm $packaging_place/debian/*"; |
||||
|
system "cp -fa $packaging_defaults/* $packaging_place/debian"; |
||||
|
|
||||
|
chdir($packaging_place); |
||||
|
system "debuild"; |
||||
|
|
||||
|
sub home_builder { |
||||
|
|
||||
|
my ($home_builder) = @_; |
||||
|
|
||||
|
if (!-d $home_builder) { |
||||
|
if (-e $home_builder) { |
||||
|
print "ERROR: A file exists where $home_builder should be.\n"; |
||||
|
} |
||||
|
else { |
||||
|
my @directory_parts = split(m,/,,$home_builder); |
||||
|
my $placement = "/"; |
||||
|
for (1 .. $#directory_parts) { |
||||
|
$_ == 1 ? ($placement = "/$directory_parts[$_]") |
||||
|
: ($placement = $placement . "/" . $directory_parts[$_]); |
||||
|
-d $placement or mkdir $placement; |
||||
|
system "chown $real_uid $placement"; |
||||
|
system "chgrp $real_gid $placement"; |
||||
|
} |
||||
|
} |
||||
|
} |
||||
|
|
||||
|
} # end home_builder |
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
Loading…
Reference in new issue