Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
emulab-devel
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
116
Issues
116
List
Board
Labels
Milestones
Merge Requests
4
Merge Requests
4
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Commits
Issue Boards
Open sidebar
emulab
emulab-devel
Commits
5feec976
Commit
5feec976
authored
Feb 04, 2019
by
Leigh Stoller
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Some temporary changes to reflect DB changes, until I get my
image changes done (push pop push push pop push push).
parent
4813d37b
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
18 additions
and
4 deletions
+18
-4
Image.pm.in
db/Image.pm.in
+18
-4
No files found.
db/Image.pm.in
View file @
5feec976
#
!/usr/bin/perl -wT
#
#
Copyright
(
c
)
2007
-
201
8
University
of
Utah
and
the
Flux
Group
.
#
Copyright
(
c
)
2007
-
201
9
University
of
Utah
and
the
Flux
Group
.
#
#
{{{
EMULAB
-
LICENSE
#
...
...
@@ -983,7 +983,7 @@ sub NewVersion($$$$)
" parent_imageid=$parent_imageid,".
" parent_version=$parent_version, ".
" origin_neednotify=0,origin_needupdate=0, ".
" origin_uuid=NULL,origin_name=NULL,
credential_string=NULL,
".
" origin_uuid=NULL,origin_name=NULL, ".
" hash=null,deltahash=null,size=0,deltasize=0, ".
" updater='
$
uid
',updater_idx='
$
uid_idx
' $updater_urn ".
"where imageid='
$
osid
'")
...
...
@@ -2817,11 +2817,25 @@ sub GetCredential($)
sub
SetCredential
($$)
{
my
($
self
,
$
credstr
)
=
@
_
;
if
(
defined
($
credstr
))
{
$
credstr
=
DBQuoteSpecial
($
credstr
);
}
else
{
$
credstr
=
"NULL"
;
}
#
Must
be
a
real
reference
.
return
-
1
if
(
!
$PGENISUPPORT
);
if
(
!
ref($self)
);
return
$
self
->
Update
({
"credential_string"
=>
$
credstr
});
my
$
imageid
=
$
self
->
imageid
();
return
-
1
if
(
! DBQueryWarn("update images set credential_string=$credstr " .
"where imageid='$imageid'"
));
$
self
->{
'IMAGE'
}->{
'credential_string'
}
=
$
credstr
;
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