root/trunk/gsdl/perllib/unbuildutil.pm @ 7589

Revision 7589, 1.6 KB (checked in by kjdon, 15 years ago)

some util stuff for the two unbuild scripts (though only v2 uses it at present

  • Property svn:keywords set to Author Date Id Revision
Line 
1###########################################################################
2#
3# unbuildutil.pm -- common methods for the two unbuilding scripts
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 unbuildutil;
27
28sub read_gdbm {
29    my ($filename, $infodb) = @_;
30
31    open (PIPEIN, "db2txt \"$filename\" |") || die "couldn't open pipe from db2txt\n";
32    my $line = ""; my $key = ""; my $value = "";
33    while (defined ($line = <PIPEIN>)) {
34    if ($line =~ /^\[([^\]]+)\]$/) {
35        $key = $1;
36    } elsif ($line =~ /^-{70}$/) {
37        $infodb->{$key} = $value;
38        #print STDERR "adding key $key, value $value\n";
39        $value = "";
40        $key = "";
41    } else {
42        $value .= $line;
43    }
44    }
45    close PIPEIN;
46}
47
481;
Note: See TracBrowser for help on using the browser.