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

Some defined an [+] should be [\+] fixes, althought ndb is probably history.

Browse Source
This commit is contained in:
freesource 2001-10-20 02:41:54 +00:00
parent 10868d0230
commit 43fe9b20bf
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
SWIM/NDB_Init.pm
View File

@ -432,7 +432,7 @@ sub initndb {
# to find if there is a change, otherwise check against
# themselves.
my ($section,$site,$scount,%CHECK);
if (defined %what) {
if ( %what ) {
foreach $section (keys %what) {
foreach $scount (0 .. $#{ $what{$section} }) {
if (defined $what{$section}[$scount]) {
@ -480,7 +480,7 @@ sub initndb {
$subsite = "Site"; $subdate = "Date"; $subsize = "Size (bytes)";
$number = "###"; $subrelease = "Release";
my $ex;
defined %what ?
%what ?
write STDOUT :
($ex = 0);
if (defined $ex) {
@ -620,7 +620,7 @@ sub initndb {
$~ = "SUBJECT";
$subsite = "Site"; $subdate = "Date"; $subsize = "Size (bytes)";
$number = "###";
defined @what ?
@what ?
write STDOUT :
($ex = 0);
if (defined $ex) {
@ -707,7 +707,7 @@ sub initndb {
# PACKAGES #
############
my ($section,$site,$scount,%TIME);
if (defined %what) {
if ( %what ) {
foreach $section (keys %what) {
foreach $scount (0 .. $#{ $what{$section} }) {
if (defined $what{$section}[$scount]) {
@ -784,7 +784,7 @@ sub initndb {
# SITUATION 0 #
###############
if (m,\.\./|^\.\.$,) {
if ($_ !~ m,/[\w-+]+/[\.\$\^\+\?\*\[\]\w-]*$,) {
if ($_ !~ m,/[\w\+-]+/[\.\$\^\+\?\*\[\]\w-]*$,) {
my $dd; tr/\/// ? ($dd = tr/\///) : ($dd = 1);
my @pwd = split(m,/,,$pwd);
s,\.\./,,g;
@ -902,7 +902,7 @@ sub initndb {
###############
# this doesn't work to well for anything less simple than ../../
elsif (m,^\.\./|^\.\.$,) {
if ($_ !~ m,/[\w-+]+/[\.\$\^\+\?\*\[\]\w-]*$,) {
if ($_ !~ m,/[\w\+-]+/[\.\$\^\+\?\*\[\]\w-]*$,) {
my $dd; tr/\/// ? ($dd = tr/\///) : ($dd = 1);
my @pwd = split(m,/,,$pwd);
s,\.\./,,g;
@ -1602,10 +1602,10 @@ sub not_installed {
undef $priority if defined $priority;
undef $section if defined $section;
undef $group if defined $group;
undef @essential if defined @essential;
undef @essential if @essential;
undef $maintainer if defined $maintainer;
# undef $version if defined $version;
# undef @package if defined @package;
# undef @package if @package;
###print "GONE $package[1]\n";
#print "$things\n";
$goon = "yes";
@ -1792,10 +1792,10 @@ sub not_installed {
undef $priority if defined $priority;
undef $section if defined $section ;
undef $group if defined $group;
undef @essential if defined @essential;
undef @essential if @essential;
undef $maintainer if defined $maintainer;
# undef $version if defined $version;
# undef @package if defined @package;
# undef @package if @package;
###print "GONE $package[1]\n";
#print "$things\n";
next;