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

Edited swim to dswim in necessary places.

Browse Source
This commit is contained in:
freesource 2001-10-14 20:58:00 +00:00
parent 240bf66693
commit 205c77d4d2
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,7 +27,7 @@ if ($sbin == 0) {
$ENV{'PATH'} = "/usr/sbin:" . $ENV{'PATH'};
}
# You will need to get swim at http://www.sourceforge.net/projects/avd
# You will need to get dswim at http://www.sourceforge.net/projects/avd
my $home = "$ENV{HOME}/.gbootroot";
my $home_yard = "$home/yard";
my $template_dir = "$home_yard/templates/";
@ -64,7 +64,7 @@ flwm libfltk1 xnest make-debian-x11 ash);
# NEXT EDIT TEMPLATE
# Before starting make sure swim and file-rc are present.
# Before starting make sure dswim and file-rc are present.
start_up();
system "swim --search \"Priority: required\" --no";
@ -107,7 +107,7 @@ my $stuff = << "STUFF";
# than the base.tgz used for normal installations with the addition of X11.
# 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
# dswim 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.
@ -462,12 +462,12 @@ map { [ (split(/\s/,$_))[0], $_ ] }
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
# This creates a status file for use by dpkg and dswim.
# Although dswim 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:
# needed when using dswim to query:
#
# Package, Status, Priority, Section, Installed-Size, Maintainer, Source,
# Version, Replaces, Provides, Depends, Pre-Depends, Recommends, Suggests,
@ -677,7 +677,7 @@ sub inetd_out {
# This catches mistakes.
# 1. dpkg-reconfigure for xfonts-base
# 2. make permissions correct for directory /home/user and all files * & .*.
# 3. run swim --initdb .. this is done by make-debian-x11.
# 3. run dswim --initdb .. this is done by make-debian-x11.
# 4. run /etc/cron.daily/find
# ...................................................................
# debian_x11 sourceforge release preparation
@ -728,11 +728,11 @@ sub start_up {
# 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" .
die "Dswim 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" .
"Then do `apt-get update` and `apt-get install dswim`\n" .
"";
}
@ -743,11 +743,11 @@ sub start_up {
if (/Status:/) {
if (!/\s+installed/) {
if (/purge|deinstall/) {
die "Swim needs to be reinstalled:\n\n" .
die "Dswim 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" .
"Then do `apt-get update` and `apt-get install dswim`\n" .
"";
}
}
@ -757,11 +757,11 @@ sub start_up {
# 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";
open(SWIM,$swim) or die "Had trouble using dswim: $!\n";
while (<SWIM>) {
if ($_ eq "file init is not owned by any package\n") {
my $db_reply = "nothing";
print STDERR "It appears that swim has never had its database " .
print STDERR "It appears that dswim has never had its database " .
"generated. Would you like me to do this for you? " .
"[yes or no]: ";
while (<STDIN>) {
@ -769,7 +769,7 @@ sub start_up {
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 " .
print "It appears that dswim has never had its database " .
"generated. Would you like me to do this for you? " .
"[yes or no]: ";
}
@ -799,7 +799,7 @@ sub start_up {
home_builder("$home_yard_replacements/etc");
}
#print STDERR "Everything is in order, but it never hurts to rebuild swim "
#print STDERR "Everything is in order, but it never hurts to rebuild dswim "
# . "with --rebuilddb if you haven't done it in awhile\n";