root/main/trunk/greenstone2/perllib/docproc.pm @ 26536

Revision 26536, 2.2 KB (checked in by davidb, 7 years ago)

Introduction of two new OIDtype values (hash_on_full_filename and full_filename) designed to help provide more stable document IDs for collections that are rebuilt over time, including rebuilt after the Greenstone install has been upgraded

  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
Line 
1###########################################################################
2#
3# docproc.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) 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
26# document processors are used by the document reader plugins
27# to do some processing on some documents
28
29package docproc;
30
31use strict;
32
33
34sub new {
35    my ($class) = @_;
36    my $self = {};
37
38    $self->{'OIDtype'} = "hash";
39    $self->{'saveas'} = "GreenstoneXML";  # default
40
41    return bless $self, $class;
42}
43
44sub process {
45    my $self = shift (@_);
46    my ($doc_obj) = @_;
47
48    die "docproc::process function must be implemented in sub classes\n";
49}
50
51# OIDtype may be "hash" or "incremental" or "dirname" or "assigned"
52sub set_OIDtype {
53    my $self = shift (@_);
54    my ($type, $metadata) = @_;
55
56    if ($type =~ /^(hash|hash_on_full_filename|incremental|dirname|full_filename|assigned)$/) {
57    $self->{'OIDtype'} = $type;
58    } else {
59    $self->{'OIDtype'} = "hash";
60    }
61    if ($type =~ /^assigned$/) {
62    if (defined $metadata) {
63        $self->{'OIDmetadata'} = $metadata;
64    } else {
65        $self->{'OIDmetadata'} = "dc.Identifier";
66    }
67    }
68}
69
70sub set_saveas {
71    my $self = shift (@_);
72    my ($saveas) = @_;
73
74    $self->{'saveas'} = $saveas;
75
76}
77
78sub set_saveas_version {
79    my $self = shift (@_);
80    my ($saveas_version) = @_;
81
82    $self->{'saveas_version'} = $saveas_version;
83
84}
85
86
871;
88
89
90
91
92
93
94
Note: See TracBrowser for help on using the browser.