source: trunk/gsdl/perllib/plugins/PDFPlug.pm@ 1954

Last change on this file since 1954 was 1954, checked in by jmt14, 23 years ago

* empty log message *

  • Property svn:keywords set to Author Date Id Revision
File size: 1.8 KB
Line 
1###########################################################################
2#
3# PDFPlug.pm -- reasonably with-it pdf plugin
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) 1999 New Zealand Digital Library Project
9#
10# This program is free software; you can redistribute 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 PDFPlug;
27
28use ConvertToPlug;
29
30sub BEGIN {
31 @ISA = ('ConvertToPlug');
32}
33
34use strict;
35
36
37sub new {
38 my $class = shift (@_);
39
40 my $self = new ConvertToPlug ($class, @_, "--", "-title_sub", 'Page\s+\d+');
41
42 return bless $self, $class;
43}
44
45
46sub get_default_block_exp {
47 my $self = shift (@_);
48
49 return q^(?i)\.(gif|jpe?g|png|rtf|css)$^;
50}
51
52sub get_default_process_exp {
53 my $self = shift (@_);
54
55 return q^(?i)\.pdf$^;
56}
57
58
59# do plugin specific processing of doc_obj for HTML type
60sub process {
61 my $self = shift (@_);
62
63 print STDERR "PDFPlug: passing $_[3] onto $self->{'convert_to'} Plug\n"
64 if $self->{'verbosity'} > 1;
65
66 return ConvertToPlug::process_type($self,"pdf",@_);
67}
68
69
701;
71
72
73
74
Note: See TracBrowser for help on using the repository browser.