Changeset 18441 for gsdl/trunk/perllib/arcinfo.pm

Timestamp:

2009-02-01T14:36:22+13:00 (15 years ago)

Author:

davidb

Message:

Modifications for incremental building to support files that need to be deleted

File:

• gsdl/trunk/perllib/arcinfo.pm (modified) (4 diffs)

gsdl/trunk/perllib/arcinfo.pm

@@ -42 +42 @@
 use strict;
 
+use dbutil;
 
 # File format read in: OID <tab> Filename <tab> Optional-Index-Status
@@ -60 +61 @@
 }
 
-sub load_info {
-    my $self = shift (@_);
-    my ($filename) = @_;
-
-    $self->{'info'} = {};
- 
+sub _load_info_txt 
+{
+    my $self = shift (@_);
+    my ($filename) = @_;
+
     if (defined $filename && -e $filename) {
     open (INFILE, $filename) || 
@@ -80 +80 @@
     close (INFILE);
     }
-}
-
-sub save_info {
+
+
+}
+
+sub _load_info_gdbm
+{
+    my $self = shift (@_);
+    my ($filename) = @_;
+
+    my $infodb_map = {};
+
+    &dbutil::read_infodb_file_gdbm($filename,$infodb_map);
+
+    foreach my $oid ( keys %$infodb_map ) {
+    my $vals = $infodb_map->{$oid};
+    # interested in doc-file and index-status
+
+    my ($doc_file) = ($vals=~/^<doc-file>(.*)$/m);
+    my ($index_status) = ($vals=~/^<index-status>(.*)$/m);
+    $self->add_info ($oid,$doc_file,$index_status);
+    }
+}
+
+sub load_info {
+    my $self = shift (@_);
+    my ($filename) = @_;
+
+    $self->{'info'} = {};
+
+    if ((defined $filename) && (-e $filename)) {
+    if ($filename =~ m/\.inf$/) {
+        $self->_load_info_txt($filename);
+    }
+    else {
+        $self->_load_info_gdbm($filename);
+    }
+    }
+}
+
+sub _load_filelist_gdbm
+{
+    my $self = shift (@_);
+    my ($filename) = @_;
+
+    my $infodb_map = {};
+
+    &dbutil::read_infodb_keys_gdbm($filename,$infodb_map);
+
+    foreach my $file ( keys %$infodb_map ) {
+    $self->{'import_filelist'}->{$file} = 1;
+    }
+}
+
+
+sub load_import_filelist {
+    my $self = shift (@_);
+    my ($filename) = @_;
+
+    $self->{'import-filelist'} = {};
+
+    if ((defined $filename) && (-e $filename)) {
+    if ($filename =~ m/\.inf$/) {
+        # e.g. 'archives-src.inf' (which includes complete list of file
+        # from last time import.pl was run)
+        $self->_load_info_txt($filename);
+    }
+    else {
+        $self->_load_filelist_gdbm($filename);
+    }
+    }
+}
+
+sub _save_info_txt {
     my $self = shift (@_);
     my ($filename) = @_;
@@ -97 +167 @@
     }
     close (OUTFILE);
+}
+
+sub _save_info_gdbm {
+    my $self = shift (@_);
+    my ($filename) = @_;
+
+    # Not the most efficient operation, but will do for now
+
+    # read it in
+    my $infodb_map = {};
+    &dbutil::read_infodb_file_gdbm($filename,$infodb_map);
+
+    # change index-status values
+    foreach my $info (@{$self->get_OID_list()}) {
+    if (defined $info) {
+        my ($oid,$doc_file,$index_status) = @$info;
+        if (defined $infodb_map->{$oid}) {
+        my $vals_ref = \$infodb_map->{$oid};
+        $$vals_ref =~ s/^<index-status>(.*)$/<index-status>$index_status/m;
+        }
+        else {
+        print STDERR "Warning: $filename does not have key $oid\n";
+        }
+    }
+    }
+
+
+    # write out again
+    my $infodb_handle = &dbutil::open_infodb_write_handle_gdbm($filename);
+    foreach my $oid ( keys %$infodb_map ) {
+    # consider making the following a method in dbutil
+    # e.g. write_infodb_rawentry_gdbm($infodb_handle,$oid,$vals);
+
+    # no need to escape, as $infodb_map->{$oid} hasn't been unescaped
+    print $infodb_handle "[$oid]\n";
+    print $infodb_handle $infodb_map->{$oid};
+    print $infodb_handle '-' x 70, "\n";
+    }
+    &dbutil::close_infodb_write_handle_gdbm($infodb_handle);
+
+}
+
+sub save_info {
+    my $self = shift (@_);
+    my ($filename) = @_;
+
+    if ($filename =~ m/\.inf$/) {
+    $self->_save_info_txt($filename);
+    }
+    else {
+    $self->_save_info_gdbm($filename);
+    }
 }