- Timestamp:
- 2013-05-06T15:29:38+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm
r26867 r27306 34 34 use plugin; 35 35 use util; 36 use FileUtils; 36 37 use metadatautil; 37 38 … … 294 295 # that it is not explicitly blocked. 295 296 my $dirname = $file; 296 $dirname = & util::filename_cat($base_dir, $file) if $base_dir =~ /\w/;297 $dirname = &FileUtils::filenameConcatenate($base_dir, $file) if $base_dir =~ /\w/; 297 298 298 299 my $directory_ok = $self->check_directory_path($dirname); … … 329 330 330 331 my $this_file_base_dir = $base_dir; 331 my $raw_file_subfile = & util::filename_cat($file, $raw_subfile);332 my $raw_file_subfile = &FileUtils::filenameConcatenate($file, $raw_subfile); 332 333 333 334 # Recursively read each $raw_subfile … … 381 382 } else { 382 383 $dirname = $file; 383 $dirname = & util::filename_cat($base_dir, $file) if $base_dir =~ /\w/;384 $dirname = &FileUtils::filenameConcatenate($base_dir, $file) if $base_dir =~ /\w/; 384 385 } 385 386 … … 412 413 # Re-order the files in the list so any directories ending with .all are moved to the end 413 414 for (my $i = scalar(@dir) - 1; $i >= 0; $i--) { 414 if (-d & util::filename_cat($dirname, $dir[$i]) && $dir[$i] =~ /\.all$/) {415 if (-d &FileUtils::filenameConcatenate($dirname, $dir[$i]) && $dir[$i] =~ /\.all$/) { 415 416 push(@dir, splice(@dir, $i, 1)); 416 417 } … … 461 462 my $raw_subfile = &unicode::url_encoded_to_raw_filename($subfile); 462 463 463 my $raw_file_subfile = & util::filename_cat($file, $raw_subfile);464 my $raw_full_filename = & util::filename_cat($this_file_base_dir, $raw_file_subfile);464 my $raw_file_subfile = &FileUtils::filenameConcatenate($file, $raw_subfile); 465 my $raw_full_filename = &FileUtils::filenameConcatenate($this_file_base_dir, $raw_file_subfile); 465 466 466 467 if ($self->file_is_blocked($block_hash,$raw_full_filename)) { … … 542 543 my $raw_subfile = &unicode::url_encoded_to_raw_filename($subfile); 543 544 544 my $raw_file_subfile = & util::filename_cat($file, $raw_subfile);545 my $raw_file_subfile = &FileUtils::filenameConcatenate($file, $raw_subfile); 545 546 my $raw_full_filename 546 = & util::filename_cat($this_file_base_dir,$raw_file_subfile);547 = &FileUtils::filenameConcatenate($this_file_base_dir,$raw_file_subfile); 547 548 548 549 if ($self->file_is_blocked($block_hash,$raw_full_filename)) { … … 554 555 if ($raw_subfile =~ /(?i)\.lnk$/ && $ENV{'GSDLOS'} =~ /^windows$/i) { 555 556 require Win32::Shortcut; 556 my $shortcut = new Win32::Shortcut(& util::filename_cat($dirname, $raw_subfile));557 my $shortcut = new Win32::Shortcut(&FileUtils::filenameConcatenate($dirname, $raw_subfile)); 557 558 if ($shortcut) { 558 559 # The file to be processed is now the target of the shortcut
Note:
See TracChangeset
for help on using the changeset viewer.