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

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.
master
freesource 24 years ago
parent
854d5971f6
commit
b1e21e5bc1
2 changed files with 1012 additions and 0 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 775
      add-ons/yard/make-debian-X11/make_debian-X11
  2. 237
      add-ons/yard/make-debian-X11/make_debian-X11_pkg

775
add-ons/yard/make-debian-X11/make_debian-X11
View 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
View 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
Write Preview
Loading…
Cancel
Save