Changeset 17057

Timestamp:

2008-08-28T13:29:45+12:00 (16 years ago)

Author:

kjdon

Message:

added some more warnings when tidying up assigned OIDs

File:

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

gsdl/trunk/perllib/doc.pm

@@ -283 +283 @@
     
     my $use_hash_oid = 0;
-    # if an OID wasn't provided claculate one
+    # if an OID wasn't provided calculate one
     if (!defined $OID) {
     $OID = "NULL";
@@ -313 +313 @@
         if (defined $identifier && $identifier ne "") {
         $OID = $identifier;
-        $OID =~ s/\.//; #remove any periods
+        if ($OID =~ /\./) {
+            print STDERR "Warning, assigned identifier $identifier contains periods (.), removing them\n";
+            $OID =~ s/\.//g; #remove any periods
+        }
+        if ($OID =~ /^\d*$/) {
+            print STDERR "Warning, assigned identifier $identifier contains only digits. Prepending 'D'.\n";
+            $OID = "D" . $OID;
+        }
         if ($OID =~ /^[\d]*$/) {
             $OID = "D" . $OID;