Commit 248593cc authored by Leigh B Stoller's avatar Leigh B Stoller

Minor package fix; move Register up into GeniUser.

parent dfa4606e
#!/usr/bin/perl -wT
#
# Copyright (c) 2008-2012 University of Utah and the Flux Group.
# Copyright (c) 2008-2013 University of Utah and the Flux Group.
#
# {{{GENIPUBLIC-LICENSE
#
......@@ -589,6 +589,21 @@ sub ListAll($$)
return 0;
}
#
# Register this local user at the ClearingHouse.
#
sub Register($)
{
my ($self) = @_;
my $clearinghouse = GeniRegistry::ClearingHouse->Create();
return -1
if (!defined($clearinghouse));
return $clearinghouse->RegisterUser($self->name(), $self->email(),
$self->cert());
}
############################################################################
#
# Wrapper for local users.
......@@ -659,21 +674,6 @@ sub urn($)
return GeniHRN::Generate("@OURDOMAIN@", "user", $self->uid());
}
#
# Register this local user at the ClearingHouse.
#
sub Register($)
{
my ($self) = @_;
my $clearinghouse = GeniRegistry::ClearingHouse->Create();
return -1
if (!defined($clearinghouse));
return $clearinghouse->RegisterUser($self->name(), $self->email(),
$self->cert());
}
#
# Get the key bundle for a local user, which are just sshkeys.
# This function is intended to be used only by the SA to get the
......
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