Changeset 136 for trunk/gsdl/perllib/plugins/RecPlug.pm
- Timestamp:
- 1999-02-02T22:59:55+13:00 (25 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/RecPlug.pm
r4 r136 6 6 use BasPlug; 7 7 use plugin; 8 use util; 8 9 9 10 … … 37 38 38 39 # see if this is a directory 39 if (-d "$base_dir$file") { 40 $dirname = &util::filename_cat ($base_dir, $file); 41 if (-d $dirname) { 40 42 41 43 # read all the files in the directory 42 opendir (DIR, "$base_dir$file") ||43 die "ERROR - couldn't read directory $ base_dir$file\n";44 opendir (DIR, $dirname) || 45 die "ERROR - couldn't read directory $dirname\n"; 44 46 @dir = readdir (DIR); 45 47 closedir (DIR); … … 49 51 if ($subfile !~ /^\.\.?$/) { 50 52 # note: metadata is not carried on to the next level 51 my $tmp = "$file/$subfile"; 52 $tmp =~ s/^[\\\/]+|[\\\/]+$//g; # remove extra slashes 53 &plugin::read ($pluginfo, $base_dir, $tmp, {}, $processor); 53 &plugin::read ($pluginfo, $base_dir, &util::filename_cat($file, $subfile), 54 {}, $processor); 54 55 } 55 56 }
Note:
See TracChangeset
for help on using the changeset viewer.