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

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