Changeset 19616

Show
Ignore:
Timestamp:
27.05.2009 13:52:35 (10 years ago)
Author:
kjdon
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r19056 r19616  
    635635} 
    636636 
    637  
     637sub tidy_up_oid { 
     638    my ($OID) = @_; 
     639    if ($OID =~ /\./) { 
     640    print STDERR "Warning, identifier $OID contains periods (.), removing them\n"; 
     641    $OID =~ s/\.//g; #remove any periods 
     642    } 
     643    if ($OID =~ /^\s.*\s$/) { 
     644    print STDERR "Warning, identifier $OID starts or ends with whitespace. Removing it\n"; 
     645    # remove starting and trailing whitespace 
     646    $OID =~ s/^\s+//; 
     647    $OID =~ s/\s+$//; 
     648    } 
     649    if ($OID =~ /^[\d]*$/) { 
     650    print STDERR "Warning, identifier $OID contains only digits. Prepending 'D'.\n"; 
     651    $OID = "D" . $OID; 
     652    }        
     653     
     654    return $OID; 
     655} 
    638656sub envvar_prepend { 
    639657    my ($var,$val) = @_;