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
32d7d504
Commit
32d7d504
authored
May 05, 2008
by
Leigh B. Stoller
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Minor tweaks for protogeni
parent
bf7c10c6
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
27 additions
and
0 deletions
+27
-0
db/Experiment.pm.in
db/Experiment.pm.in
+2
-0
db/User.pm.in
db/User.pm.in
+25
-0
No files found.
db/Experiment.pm.in
View file @
32d7d504
...
...
@@ -191,6 +191,8 @@ sub pid_idx($) { return field($_[0], 'pid_idx'); }
sub
gid_idx
($)
{
return
field
($
_
[
0
],
'gid_idx'
);
}
sub
eid
($)
{
return
field
($
_
[
0
],
'eid'
);
}
sub
idx
($)
{
return
field
($
_
[
0
],
'idx'
);
}
sub
uuid
($)
{
return
field
($
_
[
0
],
'eid_uuid'
);
}
sub
eid_uuid
($)
{
return
field
($
_
[
0
],
'eid_uuid'
);
}
sub
description
($)
{
return
field
($
_
[
0
],
'expt_name'
);
}
sub
path
($)
{
return
field
($
_
[
0
],
'path'
);
}
sub
state
($)
{
return
field
($
_
[
0
],
'state'
);
}
...
...
db/User.pm.in
View file @
32d7d504
...
...
@@ -995,6 +995,31 @@ sub SetStatus($$)
return
$
self
->
Update
(\%
args
);
}
#
#
Get
user
ssl
certificate
(
pubkey
).
#
sub
SSLCert
($$$)
{
my
($
self
,
$
encrypted
,
$
pref
)
=
@
_
;
$
encrypted
=
($
encrypted
?
1
:
0
);
#
Must
be
a
real
reference
.
return
-
1
if
(
! ref($self));
my
$
uid_idx
=
$
self
->
uid_idx
();
my
$
query_result
=
DBQueryWarn
(
"select cert from user_sslcerts "
.
"where uid_idx='$uid_idx' and encrypted=$encrypted"
);
return
-
1
if
(
!defined($query_result) || !$query_result->numrows);
my
($
cert
)
=
$
query_result
->
fetchrow_array
();
$$
pref
=
$
cert
;
return
0
;
}
#
#
Set
password
for
user
.
#
...
...
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