Changeset 26760 for gs3-extensions

Timestamp:

2013-01-20T16:43:15+13:00 (11 years ago)

Author:

davidb

Message:

Checks for an export directory before trying to write to it. Then checks for an existing subdirectory within exports for writing Expeditee frames to. If neither of these exist, they will be created.

File:

• gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm (modified) (1 diff)

gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm

@@ -115 +115 @@
     my $json_str_utf8 = Encode::encode("utf8",$json_str_unicode);
     my $exp_frame_tree = decode_json $json_str_utf8;
+
+    #if (!-d $output_dir) {
+    #&util::mk_dir($output_dir);
+    #}
     
-    #output frameset to a subfolder within export directory.
+    #Check for export directory. If it doesn't exist, create it.
+    my $export_dir = &util::filename_cat($collect_dir,$collect,"export");
+    
+    if(!-d $export_dir){
+        &util::mk_dir($export_dir);
+    }
+    
+    #create output subdirectory within export directory.
     my $output_dir = &util::filename_cat($collect_dir,$collect,"export",$collect);
-    #my $output_dir = &util::filename_cat($collect_dir,$collect,"export");
-
-    if (!-d $output_dir) {
-    &util::mk_dir($output_dir);
-    }
+    
+    if(!-d $output_dir){
+        &util::mk_dir($output_dir);
+    }
 
     my $expeditee_frame_io = new ExpediteeFrameIO($output_dir);