source: trunk/gsdl/perllib/plugins/RTFPlug.pm@ 10580

Last change on this file since 10580 was 10580, checked in by kjdon, 19 years ago

if created from pluginfo.pl (self->info_only == 1)then don't load up the secondary plugins

  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 3.4 KB
Line 
1###########################################################################
2#
3# RTFPlug.pm -- plugin for importing Rich Text Format files.
4#
5# A component of the Greenstone digital library software
6# from the New Zealand Digital Library Project at the
7# University of Waikato, New Zealand.
8#
9# Copyright (C) 2001 New Zealand Digital Library Project
10#
11# This program is free software; you can redistribute it and/or modify
12# it under the terms of the GNU General Public License as published by
13# the Free Software Foundation; either version 2 of the License, or
14# (at your option) any later version.
15#
16# This program is distributed in the hope that it will be useful,
17# but WITHOUT ANY WARRANTY; without even the implied warranty of
18# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19# GNU General Public License for more details.
20#
21# You should have received a copy of the GNU General Public License
22# along with this program; if not, write to the Free Software
23# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
24#
25###########################################################################
26
27# 12/05/02 Added usage datastructure - John Thompson
28
29package RTFPlug;
30
31use ConvertToPlug;
32use strict;
33no strict 'refs'; # allow filehandles to be variables and viceversa
34
35sub BEGIN {
36 @RTFPlug::ISA = ('ConvertToPlug');
37}
38
39my $arguments =
40 [ { 'name' => "process_exp",
41 'desc' => "{BasPlug.process_exp}",
42 'type' => "regexp",
43 'deft' => &get_default_process_exp(),
44 'reqd' => "no" },
45 { 'name' => "description_tags",
46 'desc' => "{HTMLPlug.description_tags}",
47 'type' => "flag" }
48];
49
50my $options = { 'name' => "RTFPlug",
51 'desc' => "{RTFPlug.desc}",
52 'abstract' => "no",
53 'inherits' => "yes",
54 'args' => $arguments };
55
56sub new {
57 my ($class) = shift (@_);
58 my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
59 push(@$pluginlist, $class);
60
61 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
62 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
63
64 my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
65
66 if ($self->{'info_only'}) {
67 # don't worry about any options etc
68 return bless $self, $class;
69 }
70
71 my $secondary_plugin_options = $self->{'secondary_plugin_options'};
72 if (!defined $secondary_plugin_options->{'TEXTPlug'}) {
73 $secondary_plugin_options->{'TEXTPlug'} = [];
74 }
75 if (!defined $secondary_plugin_options->{'HTMLPlug'}) {
76 $secondary_plugin_options->{'HTMLPlug'} = [];
77 }
78 my $text_options = $secondary_plugin_options->{'TEXTPlug'};
79 my $html_options = $secondary_plugin_options->{'HTMLPlug'};
80
81 #$self->{'input_encoding'} = "utf8";
82 #$self->{'extract_language'} = 1;
83 push(@$text_options, "-input_encoding", "utf8");
84 push(@$text_options,"-extract_language");
85 if ($self->{'description_tags'} == 1) {
86 push(@$html_options, "-description_tags");
87 }
88
89
90 $self = bless $self, $class;
91
92 $self->load_secondary_plugins($class,$secondary_plugin_options, $hashArgOptLists);
93
94 return $self;
95}
96
97sub get_default_process_exp {
98 my $self = shift (@_);
99 return q^(?i)\.rtf$^;
100}
101
102sub process {
103 my $self = shift (@_);
104 my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
105
106 return $self->process_type("rtf",$base_dir,$file,$doc_obj);
107}
108
1091;
Note: See TracBrowser for help on using the repository browser.