show domain display from front

lib/Ravada.pm

@@ -471,6 +471,18 @@ sub _execute {
 
 }
 
+sub _cmd_domdisplay {
+    my $self = shift;
+    my $request = shift;
+
+    $request->status('working');
+
+    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;
+}
+
 sub _cmd_create {
     my $self = shift;
     my $request = shift;
@@ -574,6 +586,7 @@ sub _req_method {
         ,create => \&_cmd_create
         ,remove => \&_cmd_remove
       ,shutdown => \&_cmd_shutdown
+    ,domdisplay => \&_cmd_domdisplay
   ,ping_backend => \&_cmd_ping_backend
   ,prepare_base => \&_cmd_prepare_base
  ,list_vm_types => \&_cmd_list_vm_types

lib/Ravada/Front.pm

@@ -208,8 +208,18 @@ sub search_domain_by_id {
     return if !keys %$row;
 
     lock_hash(%$row);
+
     return $row;
+}
+
+sub domdisplay {
+    my $self = shift;
+    my $name = shift;
+
+    my $req = Ravada::Request->domdisplay($name);
+    $self->wait_request($req, 2);
 
+    return $req->result();
 }
 
 

lib/Ravada/Request.pm

@@ -242,6 +242,27 @@ sub ping_backend {
     return $self->_new_request( command => 'ping_backend' );
 }
 
+=head2 domdisplay
+
+Returns the domdisplay of a domain
+
+Arguments:
+
+* domain name
+
+=cut
+
+sub domdisplay {
+   my $proto = shift;
+    my $class=ref($proto) || $proto;
+
+    my $name = shift;
+
+    my $self = {};
+    bless ($self, $class);
+    return $self->_new_request( command => 'domdisplay',args => { name => $name });
+}
+
 sub _new_request {
     my $self = shift;
     my %args = @_;
@@ -252,6 +273,9 @@ sub _new_request {
         $args{domain_name} = $args{name};
         delete $args{name};
     }
+    if ( ref $args{args} ) {
+        $args{args} = encode_json($args{args});
+    }
 
     _init_connector()   if !$CONNECTOR || !$$CONNECTOR;
 
@@ -400,8 +424,8 @@ sub args {
     my $name = shift;
     return $self->{args}    if !$name;
 
-    confess "Unknown argument $name"
-        if !exists $self->{args}->{name};
+    confess "Unknown argument $name ".Dumper($self->{args})
+        if !exists $self->{args}->{$name};
     return $self->{args}->{$name};
 }