Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Projets publics
Ravada-Mirror
Commits
e123664f
Commit
e123664f
authored
Jul 24, 2017
by
frankiejol
Committed by
Francesc Guasch
Jul 24, 2017
Browse files
Give up after 3 retries
parent
3aa8249c
Changes
1
Hide whitespace changes
Inline
Side-by-side
lib/Ravada.pm
View file @
e123664f
...
...
@@ -802,11 +802,8 @@ sub create_domain {
my
$domain
;
eval
{
$domain
=
$vm
->
create_domain
(
@
_
)
};
my
$error
=
$@
;
warn
"
ERROR AQUI:
$error
"
if
$error
;
$request
->
error
(
$error
)
if
$error
;
if
(
$error
=~
/has requests/
)
{
warn
"
hey
"
.
$request
->
id
;
$request
->
error
("
Waiting for other requests from base
");
if
(
$error
=~
/has \d+ requests/
)
{
$request
->
status
('
retry
');
}
return
$domain
;
...
...
@@ -1170,6 +1167,8 @@ sub process_requests {
if
(
$n_retry
<
3
)
{
warn
$req
->
id
.
"
"
.
$req
->
command
.
"
to retry
"
if
$DEBUG
;
$req
->
status
("
retry
"
.++
$n_retry
)
}
else
{
$req
->
status
("
done
");
}
}
next
if
!
$DEBUG
&&
!
$debug
;
...
...
@@ -1282,10 +1281,10 @@ sub _execute {
confess
"
Unknown command
"
.
$request
->
command
if
!
$sub
;
$request
->
error
('');
if
(
$dont_fork
||
!
$CAN_FORK
||
!
$LONG_COMMAND
{
$request
->
command
})
{
eval
{
$sub
->
(
$self
,
$request
)
};
warn
$request
->
id
.
"
"
.
$request
->
status
()
.
"
"
.
(
$request
->
error
or
'');
my
$err
=
(
$@
or
'');
$request
->
error
(
$err
)
if
$err
;
$request
->
status
('
done
')
if
$request
->
status
()
ne
'
done
'
...
...
Write
Preview
Supports
Markdown
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