Changeset 19616 for gsdl/trunk

Timestamp:

2009-05-27T13:52:35+12:00 (15 years ago)

Author:

kjdon

Message:

added tidy_up_oid method, which deals with periods, numeric ids and trailing and leading spaces

File:

• gsdl/trunk/perllib/util.pm (modified) (1 diff)

gsdl/trunk/perllib/util.pm

@@ -635 +635 @@
 }
 
-
+sub tidy_up_oid {
+    my ($OID) = @_;
+    if ($OID =~ /\./) {
+    print STDERR "Warning, identifier $OID contains periods (.), removing them\n";
+    $OID =~ s/\.//g; #remove any periods
+    }
+    if ($OID =~ /^\s.*\s$/) {
+    print STDERR "Warning, identifier $OID starts or ends with whitespace. Removing it\n";
+    # remove starting and trailing whitespace
+    $OID =~ s/^\s+//;
+    $OID =~ s/\s+$//;
+    }
+    if ($OID =~ /^[\d]*$/) {
+    print STDERR "Warning, identifier $OID contains only digits. Prepending 'D'.\n";
+    $OID = "D" . $OID;
+    }       
+    
+    return $OID;
+}
 sub envvar_prepend {
     my ($var,$val) = @_;