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

Slight help clarification, defined removed, and rebuildflatndb stuff.

Browse Source
This commit is contained in:
freesource 2001-10-20 02:38:42 +00:00
parent c6e0099f51
commit 10868d0230
3 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
SWIM/NDB.pm
View File

@ -1100,7 +1100,7 @@ alternative directory and --dbpath and/or --root used.
# From here on we can start putting stuff in the databases # From here on we can start putting stuff in the databases
elsif (defined $ok) { elsif (defined $ok) {
# first the package relationships # first the package relationships
if (defined @REPLACE) { if (@REPLACE) {
my %relationship = @REPLACE; my %relationship = @REPLACE;
foreach (keys %relationship) { foreach (keys %relationship) {
$ping->put($_,$relationship{$_}); $ping->put($_,$relationship{$_});
@ -1108,7 +1108,7 @@ alternative directory and --dbpath and/or --root used.
undef @REPLACE; undef @REPLACE;
} }
# second the groups # second the groups
if (defined %group) { if ( %group ) {
if (!defined $gb{$group}) { if (!defined $gb{$group}) {
$ging->put($group,$package[1]); $ging->put($group,$package[1]);
} }
@ -1120,7 +1120,7 @@ alternative directory and --dbpath and/or --root used.
undef %group; undef %group;
} }
# third Filename # third Filename
if (defined @FILENAME) { if (@FILENAME) {
my %filename = @FILENAME; my %filename = @FILENAME;
foreach (keys %filename) { foreach (keys %filename) {
$ping->put($_,$filename{$_}); $ping->put($_,$filename{$_});
@ -1606,7 +1606,7 @@ alternative directory and --dbpath and/or --root used.
unlink("$place/.packagesdiff$arch$dist.deb"); unlink("$place/.packagesdiff$arch$dist.deb");
rename("$place/.packagesdiff$arch$dist.deb.bk", rename("$place/.packagesdiff$arch$dist.deb.bk",
"$place/.packagesdiff$arch$dist.deb"); "$place/.packagesdiff$arch$dist.deb");
if (defined @PDbk) { if (@PDbk) {
print "\n"; $x = 1; print "\n"; $x = 1;
# now we get to add a few more seconds checking to see if packages # now we get to add a few more seconds checking to see if packages
# which haven't changed can now be found in Contents, so # which haven't changed can now be found in Contents, so

2
SWIM/NDB_File.pm
View File

@ -89,7 +89,7 @@ sub find_contents {
############### ###############
# this doesn't work to well for anything less simple than ../../ # this doesn't work to well for anything less simple than ../../
if (m,^\.\./|^\.\.$,) { if (m,^\.\./|^\.\.$,) {
if ($_ !~ m,/[\w-+]+/[\.\$\^\+\?\*\[\]\w-]*$,) { if ($_ !~ m,/[\w\+-]+/[\.\$\^\+\?\*\[\]\w-]*$,) {
my $dd; tr/\/// ? ($dd = tr/\///) : ($dd = 1); my $dd; tr/\/// ? ($dd = tr/\///) : ($dd = 1);
my @pwd = split(m,/,,$pwd); my @pwd = split(m,/,,$pwd);
s,\.\./,,g; s,\.\./,,g;

12
swim
View File

@ -1734,14 +1734,14 @@ Usage: swim [--nopager -n]
[-g] [-n] [--dbpath <dir>] [--root <dir>] [--no] [-g] [-n] [--dbpath <dir>] [--root <dir>] [--no]
[--arch <architecture>] [--dists <distribution>] [--arch <architecture>] [--dists <distribution>]
[-xyz ? < [--download-only] [-r --remove] [--purge] [-xyz ? < [--download-only] [-r --remove] [--purge]
[--source <[-b] | [--diff-only] | [--tar-only]>] [--source <[-b] | [--diff-only] [--tar-only]>]
[--reinstall] [--build-dep] >] [--stdin] [--reinstall] [--build-dep] >] [--stdin]
[<\\d{1,}>] [<\\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>]
[-xyz ? < [--download-only] [-r --remove] [--purge] [-xyz ? < [--download-only] [-r --remove] [--purge]
[--source <[-b] | [--diff-only] | [--tar-only]>] [--source <[-b] | [--diff-only] [--tar-only]>]
[--reinstall] [--build-dep] >] [--stdin] [--reinstall] [--build-dep] >] [--stdin]
[<\\d{1,}>] [<\\d{1,}>]
swim {--query -q} [-afpgn --dir] [--total -t] [-i] [-l ? <[--df]>] swim {--query -q} [-afpgn --dir] [--total -t] [-i] [-l ? <[--df]>]
@ -1755,7 +1755,7 @@ Usage: swim [--nopager -n]
[--arch <architecture>] [--dists <distribution>] [--arch <architecture>] [--dists <distribution>]
[--stdin] [--extract <ALL|archive|PWD!archive>] [--stdin] [--extract <ALL|archive|PWD!archive>]
[-xyz ? < [--download-only] [-r --remove] [--purge] [-xyz ? < [--download-only] [-r --remove] [--purge]
[--source <[-b] | [--diff-only] | [--tar-only]>] [--source <[-b] | [--diff-only] [--tar-only]>]
[--reinstall] [--build-dep] >] [--reinstall] [--build-dep] >]
[targets | -S ? <\\d{1,}>] [targets | -S ? <\\d{1,}>]
swim {--audit --status -C} swim {--audit --status -C}
@ -1812,14 +1812,14 @@ Usage: swim [--nopager -n]
[-g] [-n] [--dbpath <dir>] [--root <dir>] [--no] [-g] [-n] [--dbpath <dir>] [--root <dir>] [--no]
[--arch <architecture>] [--dists <distribution>] [--arch <architecture>] [--dists <distribution>]
[-xyz ? < [--download-only] [-r --remove] [--purge] [-xyz ? < [--download-only] [-r --remove] [--purge]
[--source <[-b] | [--diff-only] | [--tar-only]>] [--source <[-b] | [--diff-only] [--tar-only]>]
[--reinstall] [--build-dep] >] [--stdin] [--reinstall] [--build-dep] >] [--stdin]
[<\\d{1,}>] [<\\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>]
[-xyz ? < [--download-only] [-r --remove] [--purge] [-xyz ? < [--download-only] [-r --remove] [--purge]
[--source <[-b] | [--diff-only] | [--tar-only]>] [--source <[-b] | [--diff-only] [--tar-only]>]
[--reinstall] [--build-dep] >] [--stdin] [--reinstall] [--build-dep] >] [--stdin]
[<\\d{1,}>] [<\\d{1,}>]
swim {--query -q} [-afpgn --dir] [--total -t] [-i] [-l ? <[--df]>] swim {--query -q} [-afpgn --dir] [--total -t] [-i] [-l ? <[--df]>]
@ -1833,7 +1833,7 @@ Usage: swim [--nopager -n]
[--arch <architecture>] [--dists <distribution>] [--arch <architecture>] [--dists <distribution>]
[--stdin] [--extract <ALL|archive|PWD!archive>] [--stdin] [--extract <ALL|archive|PWD!archive>]
[-xyz ? < [--download-only] [-r --remove] [--purge] [-xyz ? < [--download-only] [-r --remove] [--purge]
[--source <[-b] | [--diff-only] | [--tar-only]>] [--source <[-b] | [--diff-only] [--tar-only]>]
[--reinstall] [--build-dep] >] [--reinstall] [--build-dep] >]
[targets | -S ? <\\d{1,}>] [targets | -S ? <\\d{1,}>]
swim {--audit --status -C} swim {--audit --status -C}