Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
emulab-devel
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
143
Issues
143
List
Boards
Labels
Service Desk
Milestones
Merge Requests
6
Merge Requests
6
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
emulab
emulab-devel
Commits
7a623c9a
Commit
7a623c9a
authored
Oct 07, 2013
by
Leigh B Stoller
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add all nonlocalusers (login) to the services element.
parent
61140507
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
6 deletions
+14
-6
protogeni/lib/GeniSliver.pm.in
protogeni/lib/GeniSliver.pm.in
+14
-6
No files found.
protogeni/lib/GeniSliver.pm.in
View file @
7a623c9a
...
...
@@ -843,13 +843,20 @@ sub AnnotateManifest($)
$services = GeniXML::AddElement("services", $rspec);
}
my $login = GeniXML::FindFirst("n:login", $services);
if (! defined($login)) {
while (defined($login)) {
$services->RemoveChild($login);
$login = GeniXML::FindFirst("n:login", $services);
}
my $nonlocalusers;
$experiment->NonLocalUsers(\$nonlocalusers);
foreach my $localuser (@$nonlocalusers) {
$login = GeniXML::AddElement("login", $services);
GeniXML::SetText("authentication", $login, "ssh-keys");
GeniXML::SetText("hostname", $login, $sshdhost);
GeniXML::SetText("port", $login, $sshdport);
GeniXML::SetText("username", $login, $localuser->{"login"});
}
GeniXML::SetText("authentication", $login, "ssh-keys");
GeniXML::SetText("hostname", $login, $sshdhost);
GeniXML::SetText("port", $login, $sshdport);
GeniXML::SetText("username", $login, $user->uid());
}
if ($self->UpdateRspec($rspec)) {
...
...
@@ -1410,7 +1417,8 @@ sub UnProvision($)
my $aggregate = $self->GetAggregate();
if (!defined($aggregate)) {
print STDERR "Could not find aggregate for $self\n";
return -1;
$self->ClearAggregate();
return 0;
}
#
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment