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

-p options have unecessary warnings supressed.

Browse Source
This commit is contained in:
freesource 2001-10-14 19:15:41 +00:00
parent 110589ac75
commit 3762885480
3 changed files with 197 additions and 191 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Makefile
View File

@ -13,11 +13,11 @@ install:
cp -f swimrc /etc/swim cp -f swimrc /etc/swim
remove: remove:
rm /usr/lib/perl5/SWIM/* rm /usr/share/perl5/SWIM/*
rmdir /usr/lib/perl5/SWIM rmdir /usr/share/perl5/SWIM
rm /usr/bin/swim rm /usr/bin/swim
rm /usr/lib/SWIM/* rm /usr/lib/SWIM/*swim
rmdir /usr/lib/SWIM rm -rf /usr/lib/SWIM

294
SWIM/Deb.pm
View File

File diff suppressed because it is too large Load Diff

80
swim
View File

@ -784,29 +784,44 @@ sub command {
initndb(\%commands); initndb(\%commands);
} }
# Automatic rebuilding - assuming the first time # Automatic rebuilding - assuming the first time
if (!-f "$main::home$parent$library/status") { # Could test the db, too.
system "cp -fa $parent$library/status $main::home$parent$library";
my $dpkg_status = "$parent$library/status";
my $my_status = "$main::home$parent$library/status";
if (!-f $my_status) {
$commands{"check"} = 1;
require SWIM::DB;
SWIM::DB->import(qw(db));
db(\%commands);
require SWIM::DB_Init;
$commands{"rebuilddb"} = 1;
SWIM::DB_Init->import(qw(database));
database(\%commands);
system "cp -fa $dpkg_status $my_status";
} }
else { else {
if ( $no_rebuilddb == 0 ) { if ( $no_rebuilddb == 0 ) {
my $diff = `diff $parent$library/status $main::home$parent$library/status`; if ( (stat($dpkg_status))[9] != (stat($my_status))[9] ) {
if ( $diff ) { my $diff = `diff $dpkg_status $my_status`;
$commands{"check"} = 1; if ( $diff ) {
require SWIM::DB; $commands{"check"} = 1;
SWIM::DB->import(qw(db)); require SWIM::DB;
db(\%commands); SWIM::DB->import(qw(db));
require SWIM::DB_Init; db(\%commands);
require SWIM::DB_Init;
$commands{"rebuilddb"} = 1; $commands{"rebuilddb"} = 1;
SWIM::DB_Init->import(qw(database)); SWIM::DB_Init->import(qw(database));
database(\%commands); database(\%commands);
system "cp -fa $parent$library/status $main::home$parent$library"; system "cp -fa $dpkg_status $my_status";
}
} }
} }
} }
@ -1699,15 +1714,13 @@ Usage: swim [--nopager -n]
swim {--search ? (--research || --refinesearch) <pattern(s)>} swim {--search ? (--research || --refinesearch) <pattern(s)>}
[-g] [-n] [--dbpath <dir>] [--root <dir>] [--no] [-g] [-n] [--dbpath <dir>] [--root <dir>] [--no]
[--arch <architecture>] [--dists <distribution>] [--arch <architecture>] [--dists <distribution>]
[--ftp ? --source | --source_only ? <[--diff]>] [-xyrz --remove ? <[--nz]>] [--stdin]
[-xyrz --remove ? <[--nz]>] [--stdin] [--apt2df] [--purge] [<\\d{1,}>]
[--df2apt] [--purge] [<\\d{1,}>]
swim {--powersearch --ps ? (--research || --refinesearch) <pattern(s)>} swim {--powersearch --ps ? (--research || --refinesearch) <pattern(s)>}
[-n] [--dir] [--dbpath <dir>] [--root <dir>] [--no] [-n] [--dir] [--dbpath <dir>] [--root <dir>] [--no]
[--arch <architecture>] [--dists <distribution>] [--arch <architecture>] [--dists <distribution>]
[--ftp ? --source | --source_only ? <[--diff]>] [-xyrz --remove ? <[--nz]>] [--stdin]
[-xyrz --remove ? <[--nz]>] [--stdin] [--apt2df] [--purge] [<\\d{1,}>]
[--df2apt] [--purge] [<\\d{1,}>]
swim {--query -q} [-afpgn --dir] [--total -t] [-i] [-l ? <[--df]>] swim {--query -q} [-afpgn --dir] [--total -t] [-i] [-l ? <[--df]>]
[-d] [-c] [--scripts] [--preinst] [--postinst] [-d] [-c] [--scripts] [--preinst] [--postinst]
[--prerm] [--postrm] [--config] [--templates] [--prerm] [--postrm] [--config] [--templates]
@ -1718,8 +1731,8 @@ Usage: swim [--nopager -n]
[--copyright] [--changelog] [--allgroups] [--copyright] [--changelog] [--allgroups]
[--arch <architecture>] [--dists <distribution>] [--arch <architecture>] [--dists <distribution>]
[--stdin] [--extract <ALL|archive|PWD!archive>] [--stdin] [--extract <ALL|archive|PWD!archive>]
[-xyrz --remove ? <[--nz]>] [--purge] [--apt2df] [-xyrz --remove ? <[--nz]>] [--purge]
[--df2apt] [targets | -S ? <\\d{1,}>] [targets | -S ? <\\d{1,}>]
swim {--audit --status -C} swim {--audit --status -C}
swim {--apt} [--update] [--clean] [--autoclean] [--check] swim {--apt} [--update] [--clean] [--autoclean] [--check]
swim {--apt} [-xyz] [--upgrade] [--dist_upgrade] swim {--apt} [-xyz] [--upgrade] [--dist_upgrade]
@ -1773,15 +1786,13 @@ Usage: swim [--nopager -n]
swim {--search ? (--research || --refinesearch) <pattern(s)>} swim {--search ? (--research || --refinesearch) <pattern(s)>}
[-g] [-n] [--dbpath <dir>] [--root <dir>] [--no] [-g] [-n] [--dbpath <dir>] [--root <dir>] [--no]
[--arch <architecture>] [--dists <distribution>] [--arch <architecture>] [--dists <distribution>]
[--ftp ? --source | --source_only ? <[--diff]>] [-xyrz --remove ? <[--nz]>] [--stdin]
[-xyrz --remove ? <[--nz]>] [--stdin] [--apt2df] [--purge] [<\\d{1,}>]
[--df2apt] [--purge] [<\\d{1,}>]
swim {--powersearch --ps ? (--research || --refinesearch) <pattern(s)>} swim {--powersearch --ps ? (--research || --refinesearch) <pattern(s)>}
[-n] [--dir] [--dbpath <dir>] [--root <dir>] [--no] [-n] [--dir] [--dbpath <dir>] [--root <dir>] [--no]
[--arch <architecture>] [--dists <distribution>] [--arch <architecture>] [--dists <distribution>]
[--ftp ? --source | --source_only <[--diff]>] [-xyrz --remove ? <[--nz]>] [--stdin]
[-xyrz --remove ? <[--nz]>] [--stdin] [--apt2df] [--purge] [<\\d{1,}>]
[--df2apt] [--purge] [<\\d{1,}>]
swim {--query -q} [-afpgn --dir] [--total -t] [-i] [-l ? <[--df]>] swim {--query -q} [-afpgn --dir] [--total -t] [-i] [-l ? <[--df]>]
[-d] [-c] [--scripts] [--preinst] [--postinst] [-d] [-c] [--scripts] [--preinst] [--postinst]
[--prerm] [--postrm] [--config] [--templates] [--prerm] [--postrm] [--config] [--templates]
@ -1792,8 +1803,8 @@ Usage: swim [--nopager -n]
[--copyright] [--changelog] [--allgroups] [--copyright] [--changelog] [--allgroups]
[--arch <architecture>] [--dists <distribution>] [--arch <architecture>] [--dists <distribution>]
[--stdin] [--extract <ALL|archive|PWD!archive>] [--stdin] [--extract <ALL|archive|PWD!archive>]
[-xyrz --remove ? <[--nz]>] [--purge] [--apt2df] [-xyrz --remove ? <[--nz]>] [--purge]
[--df2apt] [targets | -S ? <\\d{1,}>] [targets | -S ? <\\d{1,}>]
swim {--audit --status -C} swim {--audit --status -C}
swim {--apt} [--update] [--clean] [--autoclean] [--check] swim {--apt} [--update] [--clean] [--autoclean] [--check]
swim {--apt} [-xyz] [--upgrade] [--dist_upgrade] swim {--apt} [-xyz] [--upgrade] [--dist_upgrade]
@ -1902,8 +1913,6 @@ usage:
--remove --remove
-r - remove the installed package, but not the -r - remove the installed package, but not the
package's configuration files package's configuration files
--apt2df - not implemented
--df2apt - not implemented
Editing Option Editing Option
--stdin - allows readline editing capabilities when --stdin - allows readline editing capabilities when
used with virtual options used with virtual options
@ -1944,8 +1953,6 @@ usage:
--remove --remove
-r - remove the installed package, but not the -r - remove the installed package, but not the
package's configuration files package's configuration files
--apt2df - not implemented
--df2apt - not implemented
Editing Option Editing Option
--stdin - allows readline editing capabilities when --stdin - allows readline editing capabilities when
used with virtual options used with virtual options
@ -2023,7 +2030,6 @@ sub pager {
close PAGER; close PAGER;
} # end sub pager } # end sub pager
# Pulled this from *_pkg from the gbootroot project. # Pulled this from *_pkg from the gbootroot project.
sub home_builder { sub home_builder {
@ -2046,8 +2052,6 @@ sub home_builder {
} # end home_builder } # end home_builder
=pod =pod
# Will be returned someday when apt cache control is added. # Will be returned someday when apt cache control is added.