########################################################################### # # unbuildutil.pm -- common methods for the two unbuilding scripts # A component of the Greenstone digital library software # from the New Zealand Digital Library Project at the # University of Waikato, New Zealand. # # Copyright (C) 1999 New Zealand Digital Library Project # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # ########################################################################### package unbuildutil; sub read_gdbm { my ($filename, $infodb) = @_; open (PIPEIN, "db2txt \"$filename\" |") || die "couldn't open pipe from db2txt\n"; my $line = ""; my $key = ""; my $value = ""; while (defined ($line = )) { if ($line =~ /^\[([^\]]+)\]$/) { $key = $1; } elsif ($line =~ /^-{70}$/) { $infodb->{$key} = $value; #print STDERR "adding key $key, value $value\n"; $value = ""; $key = ""; } else { $value .= $line; } } close PIPEIN; } 1;