Changeset 18528 for gsdl/trunk/perllib/inexport.pm

Timestamp:

2009-02-17T15:36:44+13:00 (15 years ago)

Author:

davidb

Message:

OIDmetadata wasn't supported in collect.cfg, but OIDtype was. Now rectified. Also introduced OIDcount as a file saved in the archives folder to help doc.pm use the correct value when working incrementally

File:

• gsdl/trunk/perllib/inexport.pm (modified) (2 diffs)

gsdl/trunk/perllib/inexport.pm

@@ -32 +32 @@
 use util;
 use GDBMUtils;
+
+
+sub prime_doc_oid_count
+{
+    my ($archivedir) = @_;
+    my $oid_count_filename = &util::filename_cat ($archivedir, "OIDcount");
+
+    if (-e $oid_count_filename) {
+    if (open(OIDIN,"<$oid_count_filename")) {
+        my $OIDcount = <OIDIN>;
+        chomp $OIDcount;        
+        close(OIDIN);
+
+        $doc::OIDcount = $OIDcount;     
+    }
+    else {
+        
+        print STDERR "Warning: unable to read document OID count from $oid_count_filename\n";
+        print STDERR "Setting value to 0\n";
+    }
+    }
+    
+}
+
+sub store_doc_oid_count
+{
+    # Use the file "OIDcount" in the archives directory to record
+    # what value doc.pm got up to
+
+    my ($archivedir) = @_;
+    my $oid_count_filename = &util::filename_cat ($archivedir, "OIDcount");
+
+
+    if (open(OIDOUT,">$oid_count_filename")) {
+    print OIDOUT $doc::OIDcount, "\n";
+        
+    close(OIDOUT);
+    }
+    else {
+    print STDERR "Warning: unable to store document OID count\n";
+    }
+}
+
+
 
 sub new_vs_old_import_diff
@@ -160 +204 @@
     
         if ($verbosity>1) {
-            print STDERR "$oid marked to be deleted from index on next buildcol.pl\n";
+            print STDERR "$oid ($file) marked to be deleted from index on next buildcol.pl\n";
         }
         $archive_info->set_status_info($oid,"D");