mirror of
https://github.com/fspc/gbootroot.git
synced 2025-02-22 16:43:23 -05:00
The script which creates a template yard uses to make a minimalistic Debian X11
root filesystem, and the script to make the add-on package to gbootroot to accomplish this.
This commit is contained in:
freesource
parent
854d5971f6
commit
b1e21e5bc1
775
add-ons/yard/make-debian-X11/make_debian-X11
Executable file
775
add-ons/yard/make-debian-X11/make_debian-X11
Executable file
@ -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
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
237
add-ons/yard/make-debian-X11/make_debian-X11_pkg
Executable file
237
add-ons/yard/make-debian-X11/make_debian-X11_pkg
Executable file
@ -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…
x
Reference in New Issue
Block a user