get domain display from frontend

lib/Ravada.pm

@@ -435,7 +435,7 @@ sub process_requests {
         my $req = Ravada::Request->open($id);
         warn "executing request ".$req." ".Dumper($req) if $DEBUG || $debug;
         $self->_execute($req);
-        warn $req->status() if $DEBUG;
+        warn "status: ".$req->status() if $DEBUG || $debug;
     }
     $sth->finish;
 }
@@ -480,7 +480,12 @@ sub _cmd_domdisplay {
     my $name = $request->args('name');
     confess "Unknown name for request ".Dumper($request)  if!$name;
     my $domain = $self->search_domain($request->args->{name});
-    return $domain->display;
+
+    my $display = $domain->display;
+    $request->result({display => $display});
+
+    $request->status('done');
+
 }
 
 sub _cmd_create {

lib/Ravada/Front.pm

@@ -217,10 +217,19 @@ sub domdisplay {
     my $name = shift;
 
     my $req = Ravada::Request->domdisplay($name);
-    $self->wait_request($req, 2);
+    $self->wait_request($req, 10);
 
-    return $req->result();
+    return if $req->status() ne 'done';
+
+    my $result = $req->result();
+    return $result->{display};
 }
 
+sub start_domain {
+    my $self = shift;
+    my $name = shift;
+
+    return Ravada::Request->start_domain($name);
+}
 
 1;

t/front/20_create_domain.t

@@ -127,5 +127,13 @@ for my $vm_name ('kvm','lxc') {
     ok($domain && $domain->{name} && 
         $domain->{name} eq $name,"Expecting domain name $name, got "
         .($domain->{name} or '<UNDEF>'));
+
+    $RVD_FRONT->start_domain($name);
+    $RVD_FRONT->wait_request($req,10);
+    ok($req->status('done'),"Request ".$req->status);
+
+    my $display = $RVD_FRONT->domdisplay($name);
+    ok($display,"No display for domain $name found. Is it active ?");
+    ok($display =~ m{\w+://.*?:\d+},"Expecting display a URL, it is '$display'");
 }
 done_testing();