Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Projets publics
Ravada-Mirror
Commits
c0beecd8
Commit
c0beecd8
authored
Jun 19, 2017
by
Francesc Guasch
Browse files
[#260] fixed missing rows when upgrading
parent
8718e413
Changes
1
Hide whitespace changes
Inline
Side-by-side
lib/Ravada.pm
View file @
c0beecd8
...
...
@@ -20,6 +20,9 @@ use Ravada::Request;
use
Ravada::VM::
KVM
;
use
Ravada::VM::
Void
;
no
warnings
"
experimental::signatures
";
use
feature
qw(signatures)
;
=head1 NAME
Ravada - Remove Virtual Desktop Manager
...
...
@@ -213,25 +216,70 @@ sub _update_isos {
);
$self
->
_update_table
(
$table
,
$field
,
\
%data
);
}
sub
_update_domain_drivers_types
($self) {
my
$data
=
{
image
=>
{
id
=>
4
,
,
name
=>
'
image
'
,
description
=>
'
Graphics Options
'
,
vm
=>
'
qemu
'
},
jpeg
=>
{
id
=>
5
,
,
name
=>
'
jpeg
'
,
description
=>
'
Graphics Options
'
,
vm
=>
'
qemu
'
},
zlib
=>
{
id
=>
6
,
,
name
=>
'
zlib
'
,
description
=>
'
Graphics Options
'
,
vm
=>
'
qemu
'
},
playback
=>
{
id
=>
7
,
,
name
=>
'
playback
'
,
description
=>
'
Graphics Options
'
,
vm
=>
'
qemu
'
},
streaming
=>
{
id
=>
8
,
,
name
=>
'
streaming
'
,
description
=>
'
Graphics Options
'
,
vm
=>
'
qemu
'
}
};
$self
->
_update_table
('
domain_drivers_types
','
id
',
$data
);
}
sub
_update_table
($self, $table, $field, $data) {
my
$sth_search
=
$CONNECTOR
->
dbh
->
prepare
("
SELECT id FROM
$table
WHERE
$field
= ?
");
for
my
$name
(
keys
%data
)
{
my
$row
=
$data
{
$name
};
for
my
$name
(
keys
%
$
data
)
{
my
$row
=
$data
->
{
$name
};
$sth_search
->
execute
(
$row
->
{
$field
});
my
(
$id
)
=
$sth_search
->
fetchrow
;
next
if
$id
;
warn
("
INFO: updating
$table
:
$row
->{
$field
}
\n
")
if
$
0
!~
/\.t$/
;
my
$sql
=
"
INSERT INTO
iso_images
"
"
INSERT INTO
$table
"
.
"
(
"
.
join
("
,
",
sort
keys
%
{
$data
{
$name
}})
.
join
("
,
",
sort
keys
%
{
$data
->
{
$name
}})
.
"
)
"
.
"
VALUES (
"
.
join
("
,
",
map
{
"
?
"
}
keys
%
{
$data
{
$name
}})
.
join
("
,
",
map
{
"
?
"
}
keys
%
{
$data
->
{
$name
}})
.
"
)
"
;
my
$sth
=
$CONNECTOR
->
dbh
->
prepare
(
$sql
);
$sth
->
execute
(
map
{
$data
{
$name
}
->
{
$_
}
}
sort
keys
%
{
$data
{
$name
}});
$sth
->
execute
(
map
{
$data
->
{
$name
}
->
{
$_
}
}
sort
keys
%
{
$data
->
{
$name
}});
$sth
->
finish
;
}
}
...
...
@@ -241,6 +289,7 @@ sub _update_data {
$self
->
_update_isos
();
$self
->
_update_user_grants
();
$self
->
_update_domain_drivers_types
();
}
sub
_upgrade_table
{
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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