source: trunk/gsdl/perllib/colcfg.pm@ 810

Last change on this file since 810 was 810, checked in by sjboddie, 24 years ago

plugins now take options, files are associated at build time as
well as import time

  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 3.1 KB
Line 
1###########################################################################
2#
3# colcfg.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# reads in a collection configuration file
27
28package colcfg;
29
30use cfgread;
31
32
33# the collection configuration file data is stored in the form
34#
35# {'creator'}->string
36# {'public'}->string
37# {'beta'}->string
38# {'defaultindex'}->string
39# {'importdir'}->string
40# {'archivedir'}->string
41# {'cachedir'}->string
42# {'builddir'}->string
43# {'removeold'}->string
44
45# {'maintainer'}->array of strings
46# {'languages'}->array of strings
47# {'indexsubcollections'}->array of strings
48# {'indexes'}->array of strings
49# {'dontbuild'}->array of strings
50# {'dontgdbm'}->array of strings
51
52# {'subcollection'}->hash of key-value pairs
53# {'collectionmeta'}->hash of key-value pairs
54
55# {'plugin'}->array of arrays of strings
56# {'classify'}->array of arrays of strings
57
58sub read_collect_cfg {
59 my ($filename) = @_;
60
61 return &cfgread::read_cfg_file ($filename,
62 q/^(creator|public|beta|defaultindex|importdir|/ .
63 q/archivedir|cachedir|builddir|removeold)$/,
64 q/(maintainer|languages|indexsubcollections|/ .
65 q/indexes|dontbuild|dontgdbm)$/,
66 q/^(subcollection|collectionmeta)$/,
67 q/^(plugin|classify)$/);
68}
69
70sub write_collect_cfg {
71 my ($filename, $data) = @_;
72
73 &cfgread::write_cfg_file($filename, $data,
74 q/^(creator|public|beta|defaultindex|importdir|/ .
75 q/archivedir|cachedir|builddir|removeold)$/,
76 q/^(maintainer|languages|indexsubcollections|/ .
77 q/indexes|dontbuild|dontgdbm)$/,
78 q/^(subcollection|collectionmeta)$/,
79 q/^(plugin|classify)$/);
80}
81
82
83# the build configuration file data is stored in the form
84#
85# {'builddate'}->string
86# {'metadata'}->array of strings
87# {'languages'}->array of strings
88# {'numdocs'}->string
89# {'numwords'}->string
90# {'numbytes'}->string
91
92sub read_build_cfg {
93 my ($filename) = @_;
94
95 return &cfgread::read_cfg_file ($filename,
96 q/^(builddate|numdocs|numwords|numbytes)$/,
97 q/^(metadata|languages)$/);
98}
99
100sub write_build_cfg {
101 my ($filename, $data) = @_;
102
103 &cfgread::write_cfg_file($filename, $data,
104 q/^(builddate|numdocs|numwords|numbytes)$/,
105 q/^(metadata|languages)$/);
106}
107
108
1091;
Note: See TracBrowser for help on using the repository browser.