All new accounts created on Gitlab now require administrator approval. If you invite any collaborators, please let Flux staff know so they can approve the accounts.

Commit c1502177 authored by Leigh B Stoller's avatar Leigh B Stoller

Tweaks to the HRN object.

parent 9d5233e5
......@@ -312,12 +312,15 @@ sub new($$)
print STDERR "GeniHRN::new: invalid urn $urn\n";
return undef;
}
my ($domain,$type,$id) = GeniHRN::Parse($urn);
my ($authority,$type,$id) = GeniHRN::Parse($urn);
my $self = {};
$self->{'urn'} = $urn;
$self->{'domain'} = $domain;
$self->{'type'} = $type;
$self->{'id'} = $id;
$self->{'urn'} = $urn;
$self->{'type'} = $type;
$self->{'id'} = $id;
$self->{'authority'} = $authority;
my ($domain,$subauth) = split(":", $authority);
$self->{'domain'} = $domain;
$self->{'subauth'} = $subauth;
bless($self, $class);
return $self;
......@@ -326,7 +329,9 @@ sub new($$)
sub field($$) { return ($_[0]->{$_[1]}); }
sub urn($) { return field($_[0], "urn"); }
sub asString($) { return $_[0]->urn(); }
sub authority($) { return field($_[0], "authority"); }
sub domain($) { return field($_[0], "domain"); }
sub subauth($) { return field($_[0], "subauth"); }
sub type($) { return field($_[0], "type"); }
sub id($) { return field($_[0], "id"); }
sub IsAuthority() { return $_[0]->type() =~ /^authority$/i ? 1 : 0; }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment