Changeset 26752

Timestamp:

2013-01-19T15:25:13+13:00 (11 years ago)

Author:

davidb

Message:

Added subroutine for writing a collection.inf file to the frameset directory. This is so that GlamED knows what framesets to load in.

File:

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

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

@@ -64 +64 @@
 }
 
+##
+# Subroutine for writing a collection.inf file -
+# this is just so that when we load GlamED, it will
+# only try to process framesets containing this file.
+##
+sub write_collection_info
+{
+    my ($output_dir,$collect) = @_;
+    
+    my $filename = &util::filename_cat($output_dir,"collection.inf");
+    my $status = undef;
+    
+    if(open(FNOUT,">$filename")){
+        binmode(FNOUT,":utf8");
+        
+        print FNOUT "$collect";
+        close(FNOUT);
+        $status =1;
+    }else{
+        print STDERR "Failed to open $filename for outputting collection info\n";
+        
+        $status = 0;
+    }
+    
+    return $status;
+}
 
 sub generate_frame
@@ -90 +116 @@
     my $exp_frame_tree = decode_json $json_str_utf8;
     
-    my $output_dir = &util::filename_cat($collect_dir,$collect,"export");
+    #output frameset to a subfolder 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) {
@@ -104 +132 @@
     # write out next free frame num
     $expeditee_frame_io->saveLastFrameNumber($fn,$collect);
-
+    
+    # TODO: Have a parameter so that this file is only written out if requested.
+    write_collection_info($output_dir,$collect);
+    
     $gsdl_cgi->generate_message("html-to-expeditee saved frame $fn");
     }