Changeset 2327 for trunk/gsdl/perllib/doc.pm

Timestamp:

2001-04-20T11:44:50+12:00 (23 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/gsdl/perllib/doc.pm (modified) (5 diffs)

trunk/gsdl/perllib/doc.pm

@@ -41 +41 @@
 # classification
 
+my $OIDcount = 0;
+
 sub new {
     my $class = shift (@_);
@@ -50 +52 @@
               'subsections'=>{},
               'metadata'=>[],
-              'text'=>""}, $class;
+              'text'=>"",
+              'OIDtype'=>"hash"}, $class;
 
     $self->set_source_filename ($source_filename) if defined $source_filename;
@@ -93 +96 @@
 }
 
+sub set_OIDtype {
+    my $self = shift (@_);
+    my ($type) = @_;
+
+    if ($type eq "incremental") {
+    $self->{'OIDtype'} = $type;
+    } else {
+    $self->{'OIDtype'} = "hash";
+    }
+}
 
 sub set_source_filename {
@@ -285 +298 @@
 }
 
+# calculate OID by hashing the contents of the document
 sub _calc_OID {
     my $self = shift (@_);
@@ -309 +323 @@
 # methods dealing with OID, not groups of them.
 
-# if $OID is not provided one is calculated from hashing the
-# current contents of the document
-# An OID are actually stored as metadata of the document
+# if $OID is not provided one is calculated
 sub set_OID {
     my $self = shift (@_);
     my ($OID) = @_;
 
-    # if an OID wasn't provided then feed this document to 
-    # hashfile.exe
+    # if an OID wasn't provided claculate one
     if (!defined $OID) {
     $OID = "NULL";
 
-    my $filename = $self->get_source_filename();
-    if (defined($filename) && -e $filename) {
-
-        $OID = $self->_calc_OID ($filename);
-
+    if ($self->{'OIDtype'} eq "incremental") {
+        $OID = "D" . $OIDcount;
+        $OIDcount ++;
+        
     } else {
-
-        # this warning causes more confusion than it's worth I think
-        # -- sorry Gordon.
-#       print STDERR "doc::set_OID source filename undefined/non-existant (continuing)\n";
+        # "hash" OID - feed file to hashfile.exe
+        my $filename = $self->get_source_filename();
+        if (defined($filename) && -e $filename) {
+
+        $OID = $self->_calc_OID ($filename);
+
+        } else {
+        $filename = &util::get_tmp_filename();
+        if (!open (OUTFILE, ">$filename")) {
+            print STDERR "doc::set_OID could not write to $filename\n";
+        } else {
+            $self->output_section('OUTFILE', $self->get_top_section(), 
+                      undef, 1);
+            close (OUTFILE);
+        }
         
-        $filename = &util::get_tmp_filename();
-        if (!open (OUTFILE, ">$filename")) {
-        print STDERR "doc::set_OID could not write to $filename\n";
-        } else {
-        $self->output_section('OUTFILE', $self->get_top_section(), 
-                      undef, 1);
-        close (OUTFILE);
+        $OID = $self->_calc_OID ($filename);
+        &util::rm ($filename);
         }
-        
-        $OID = $self->_calc_OID ($filename);
-        &util::rm ($filename);
     }
     }