source: gs3-extensions/html-to-expeditee/trunk/src/perllib/cgiactions/HtmlToExpediteeAction.pm@ 26752

Last change on this file since 26752 was 26752, checked in by davidb, 9 years ago

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

File size: 3.8 KB
Line 
1###########################################################################
2#
3# HtmlToExpediteeAction.pm --
4# A component of the Greenstone digital library software
5# from the New Zealand Digital Library Project at the
6# University of Waikato, New Zealand.
7#
8# Copyright (C) 2009 New Zealand Digital Library Project
9#
10# This program is free software; you can redistr te it and/or modify
11# it under the terms of the GNU General Public License as published by
12# the Free Software Foundation; either version 2 of the License, or
13# (at your option) any later version.
14#
15# This program is distributed in the hope that it will be useful,
16# but WITHOUT ANY WARRANTY; without even the implied warranty of
17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18# GNU General Public License for more details.
19#
20# You should have received a copy of the GNU General Public License
21# along with this program; if not, write to the Free Software
22# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
23#
24###########################################################################
25
26package HtmlToExpediteeAction;
27
28use strict;
29
30use cgiactions::baseaction;
31
32use ExpediteeFrameIO;
33use JSON;
34
35
36BEGIN {
37# unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/perl-5.8");
38}
39
40
41@HtmlToExpediteeAction::ISA = ('baseaction');
42
43
44
45# c=collect and site=xxxx implicitly handled by code
46# 'c' is handled by baseaction, site is tested for only if greenstone3
47
48
49my $action_table =
50{
51 "generate-frame" => { 'compulsory-args' => [ "fn", "json" ],
52 'optional-args' => ["assoc", "compute-font"] },
53};
54
55
56sub new
57{
58 my $class = shift (@_);
59 my ($gsdl_cgi,$iis6_mode) = @_;
60
61 my $self = new baseaction($action_table,$gsdl_cgi,$iis6_mode);
62
63 return bless $self, $class;
64}
65
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}
92
93sub generate_frame
94{
95 my $self = shift @_;
96
97 my $username = $self->{'username'};
98 my $collect = $self->{'collect'};
99 my $gsdl_cgi = $self->{'gsdl_cgi'};
100 my $gsdlhome = $self->{'gsdlhome'};
101
102 my $site = $self->{'site'};
103 my $collect_dir = $gsdl_cgi->get_collection_dir($site);
104
105 my $fn = $self->{'fn'};
106
107 my $assoc = $self->{'assoc'};
108
109 my $compute_font = $self->{'compute-font'};
110 print STDERR "Wil send compute_font... $compute_font\n\n";
111
112 # no need to lock collection (??), the operation is read only
113
114 my $json_str_unicode = $self->{'json'};
115 my $json_str_utf8 = Encode::encode("utf8",$json_str_unicode);
116 my $exp_frame_tree = decode_json $json_str_utf8;
117
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");
121
122 if (!-d $output_dir) {
123 &util::mk_dir($output_dir);
124 }
125
126 my $expeditee_frame_io = new ExpediteeFrameIO($output_dir);
127
128 $expeditee_frame_io->buildFrame($exp_frame_tree,$compute_font);
129
130 if ($expeditee_frame_io->saveFrame("$fn.exp",$assoc)) {
131
132 # write out next free frame num
133 $expeditee_frame_io->saveLastFrameNumber($fn,$collect);
134
135 # TODO: Have a parameter so that this file is only written out if requested.
136 write_collection_info($output_dir,$collect);
137
138 $gsdl_cgi->generate_message("html-to-expeditee saved frame $fn");
139 }
140 else {
141 $gsdl_cgi->generate_error("Failed to save frame number $fn");
142 }
143}
144
145
1461;
Note: See TracBrowser for help on using the repository browser.