Changeset 27509 for main/trunk/greenstone2/perllib/plugins/BaseMediaConverter.pm

Timestamp:

2013-05-29T20:41:13+12:00 (11 years ago)

Author:

ak19

Message:

Using the recommended FileUtils.pm methods in place of the deprecated utils.pm methods.

File:

• main/trunk/greenstone2/perllib/plugins/BaseMediaConverter.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugins/BaseMediaConverter.pm

@@ -117 +117 @@
     }
 
-    my $base_output_dir = &util::filename_cat($collect_dir,"cached",$dirname);
+    my $base_output_dir = &FileUtils::filenameConcatenate($collect_dir,"cached",$dirname);
 
     if (!-e $base_output_dir ) {
@@ -123 +123 @@
         if ($verbosity>2);
 
-    &util::mk_all_dir($base_output_dir);
-    }
-
-    my $output_dir = &util::filename_cat($base_output_dir,$file_root);
+    &FileUtils::makeAllDirectories($base_output_dir);
+    }
+
+    my $output_dir = &FileUtils::filenameConcatenate($base_output_dir,$file_root);
 
     if (!-e $output_dir) {
@@ -132 +132 @@
         if ($verbosity>2);
 
-    &util::mk_dir($output_dir);
+    &FileUtils::makeAllDirectories($output_dir);
     }