Changeset 26752 for gs3-extensions

Show
Ignore:
Timestamp:
19.01.2013 15:25:13 (6 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.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm

    r26731 r26752  
    6464} 
    6565 
     66## 
     67# Subroutine for writing a collection.inf file - 
     68# this is just so that when we load GlamED, it will 
     69# only try to process framesets containing this file. 
     70## 
     71sub write_collection_info 
     72{ 
     73    my ($output_dir,$collect) = @_; 
     74     
     75    my $filename = &util::filename_cat($output_dir,"collection.inf"); 
     76    my $status = undef; 
     77     
     78    if(open(FNOUT,">$filename")){ 
     79        binmode(FNOUT,":utf8"); 
     80         
     81        print FNOUT "$collect"; 
     82        close(FNOUT); 
     83        $status =1; 
     84    }else{ 
     85        print STDERR "Failed to open $filename for outputting collection info\n"; 
     86         
     87        $status = 0; 
     88    } 
     89     
     90    return $status; 
     91} 
    6692 
    6793sub generate_frame 
     
    90116    my $exp_frame_tree = decode_json $json_str_utf8; 
    91117     
    92     my $output_dir = &util::filename_cat($collect_dir,$collect,"export"); 
     118    #output frameset to a subfolder within export directory. 
     119    my $output_dir = &util::filename_cat($collect_dir,$collect,"export",$collect); 
     120    #my $output_dir = &util::filename_cat($collect_dir,$collect,"export"); 
    93121 
    94122    if (!-d $output_dir) { 
     
    104132    # write out next free frame num 
    105133    $expeditee_frame_io->saveLastFrameNumber($fn,$collect); 
    106  
     134     
     135    # TODO: Have a parameter so that this file is only written out if requested. 
     136    write_collection_info($output_dir,$collect); 
     137     
    107138    $gsdl_cgi->generate_message("html-to-expeditee saved frame $fn"); 
    108139    }