bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-02-21 08:04:27 -05:00
Code Issues Projects Releases Wiki Activity

Changes user visible copylet somewhat, adds /usr/share/per5 to @INC and /usr/sbin

Browse Source 
to %ENV.
This commit is contained in:
freesource 2001-10-12 15:52:50 +00:00
parent 37d03ecaa5
commit 40b98f3f6b
1 changed files with 30 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
swim
View File

@ -1,13 +1,5 @@
#!/usr/bin/perl -w
require 5.004;
use strict;
use Getopt::Long;
use SWIM::Conf;
use SWIM::Global;
use SWIM::Library;
my $version = "0.3.7";
############################################################################
#
# Package administration and research tool for Debian
@ -81,12 +73,37 @@ capabilities. This information will come from the ThE_* Project
database, and will be able to be used by other packaging systems or
programs. Swim will have editing capabilities, and will be linked via
cgi to html files. And that's just the beginning, the possiblities
are enormous! Goal: Guru knowledge about an Open Source system for
are enormous! Goal: Guru knowledge about a Free Software system for
anyone, find the program to do the job easily.
=cut
# For distributions that don't adhere to the most recent FHS.
BEGIN {
my $fhs = grep(/\/usr\/share\/perl5/,@INC);
if ($fhs == 0) {
unshift(@INC,"/usr/share/perl5");
}
my $sbin = grep(/\/usr\/sbin/,$ENV{'PATH'});
if ($sbin == 0) {
$ENV{'PATH'} = "/usr/sbin:" . $ENV{'PATH'};
}
}
require 5.004;
use strict;
use Getopt::Long;
use SWIM::Conf;
use SWIM::Global;
use SWIM::Library;
my $version = "0.3.7";
# The MAIN
# First let's determine what options are being used.
@ -1630,11 +1647,11 @@ sub usage {
# Shameless publication of the ThE_* Project, and also shameless self
# agrandizing....
print "SWIM version $version
Copyright (C) 2000 - by Jonathan Rosenbaum for ThE_* Project
Copyright (C) 2000 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net>
This may be freely redistributed under the terms of the GNU General Public License\n";
$save = "SWIM version $version
Copyright (C) 2000 - by Jonathan Rosenbaum for ThE_* Project
Copyright (C) 2000 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net>
This may be freely redistributed under the terms of the GNU General Public License
Usage: swim [--nopager -n]
@ -1729,7 +1746,7 @@ Quit?:press q here\n";
sub nusage {
$save = "SWIM version $version
Copyright (C) 2000 - by Jonathan Rosenbaum for ThE_* Project
Copyright (C) 2000 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net>
This may be freely redistributed under the terms of the GNU General Public License
Usage: swim [--nopager -n]
@ -1822,7 +1839,7 @@ Hints: Searches - equiv. negated [^...]
sub help {
$save = "SWIM version $version
Copyright (C) 2000 - by Jonathan Rosenbaum for ThE_* Project
Copyright (C) 2000 - by Jonathan Rosenbaum <freesource\@users.sourceforge.net>
This may be freely redistributed under the terms of the GNU General Public License
usage: