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

Last change on this file since 1572 was 1572, checked in by paynter, 24 years ago

phind <data> command for use with phind.

  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 3.3 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# {'textcompress'}->string
45
46# {'maintainer'}->array of strings
47# {'languages'}->array of strings
48# {'indexsubcollections'}->array of strings
49# {'indexes'}->array of strings
50# {'dontbuild'}->array of strings
51# {'dontgdbm'}->array of strings
52# {'mirror'}->array of strings
53# {'phind'}->array of strings
54
55# {'subcollection'}->hash of key-value pairs
56# {'collectionmeta'}->hash of key-value pairs
57
58# {'plugin'}->array of arrays of strings
59# {'classify'}->array of arrays of strings
60
61sub read_collect_cfg {
62 my ($filename) = @_;
63
64 return &cfgread::read_cfg_file ($filename,
65 q/^(creator|public|beta|defaultindex|importdir|/ .
66 q/archivedir|cachedir|builddir|removeold|textcompress)$/,
67 q/(maintainer|languages|indexsubcollections|/ .
68 q/indexes|dontbuild|dontgdbm|mirror|phind)$/,
69 q/^(subcollection|collectionmeta)$/,
70 q/^(plugin|classify)$/);
71}
72
73sub write_collect_cfg {
74 my ($filename, $data) = @_;
75
76 &cfgread::write_cfg_file($filename, $data,
77 q/^(creator|public|beta|defaultindex|importdir|/ .
78 q/archivedir|cachedir|builddir|removeold|textcompress)$/,
79 q/^(maintainer|languages|indexsubcollections|/ .
80 q/indexes|dontbuild|dontgdbm)$/,
81 q/^(subcollection|collectionmeta)$/,
82 q/^(plugin|classify)$/);
83}
84
85
86# the build configuration file data is stored in the form
87#
88# {'builddate'}->string
89# {'buildtype'}->string
90# {'metadata'}->array of strings
91# {'languages'}->array of strings
92# {'numdocs'}->string
93# {'numwords'}->string
94# {'numbytes'}->string
95# {'indexfields'}->array of strings
96
97sub read_build_cfg {
98 my ($filename) = @_;
99
100 return &cfgread::read_cfg_file ($filename,
101 q/^(builddate|buildtype|numdocs|numwords|numbytes)$/,
102 q/^(metadata|languages|indexfields)$/);
103}
104
105sub write_build_cfg {
106 my ($filename, $data) = @_;
107
108 &cfgread::write_cfg_file($filename, $data,
109 q/^(builddate|numdocs|numwords|numbytes)$/,
110 q/^(metadata|languages)$/);
111}
112
113
1141;
Note: See TracBrowser for help on using the repository browser.