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

Last change on this file since 26731 was 26731, checked in by davidb, 10 years ago

Can now correctly obtain colours and size of text when generating Expeditee frames. Also accounted for when the web browser being used is Firefox (FF uses "700" instead of the word "bold" for font-weight). The width of text items is also calculated and written to Expeditee. Parameters have also been provided so the user can decide whether they want the correct font information and text width used or to just use default values.

File size: 3.0 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
67sub generate_frame
68{
69 my $self = shift @_;
70
71 my $username = $self->{'username'};
72 my $collect = $self->{'collect'};
73 my $gsdl_cgi = $self->{'gsdl_cgi'};
74 my $gsdlhome = $self->{'gsdlhome'};
75
76 my $site = $self->{'site'};
77 my $collect_dir = $gsdl_cgi->get_collection_dir($site);
78
79 my $fn = $self->{'fn'};
80
81 my $assoc = $self->{'assoc'};
82
83 my $compute_font = $self->{'compute-font'};
84 print STDERR "Wil send compute_font... $compute_font\n\n";
85
86 # no need to lock collection (??), the operation is read only
87
88 my $json_str_unicode = $self->{'json'};
89 my $json_str_utf8 = Encode::encode("utf8",$json_str_unicode);
90 my $exp_frame_tree = decode_json $json_str_utf8;
91
92 my $output_dir = &util::filename_cat($collect_dir,$collect,"export");
93
94 if (!-d $output_dir) {
95 &util::mk_dir($output_dir);
96 }
97
98 my $expeditee_frame_io = new ExpediteeFrameIO($output_dir);
99
100 $expeditee_frame_io->buildFrame($exp_frame_tree,$compute_font);
101
102 if ($expeditee_frame_io->saveFrame("$fn.exp",$assoc)) {
103
104 # write out next free frame num
105 $expeditee_frame_io->saveLastFrameNumber($fn,$collect);
106
107 $gsdl_cgi->generate_message("html-to-expeditee saved frame $fn");
108 }
109 else {
110 $gsdl_cgi->generate_error("Failed to save frame number $fn");
111 }
112}
113
114
1151;
Note: See TracBrowser for help on using the repository browser.