use -vnc $server::ip:$nr as display in no $ENV{DISPLAY} is defined

diff --git a/lib/PXElator/kvm.pm b/lib/PXElator/kvm.pm
index f0d6687..c6e4383 100644 (file)
--- a/lib/PXElator/kvm.pm
+++ b/lib/PXElator/kvm.pm
@@ -29,7 +29,6 @@ sub monitor {
 }
 
 sub serial {
-       my $nr = $ENV{nr} || 0;
        x11::xterm( 'serial ' . nr() => 'nc ' . port(11000,' ') );
 }
 
@@ -82,6 +81,9 @@ sub start {
                -monitor tcp:$mon,server,nowait
                -serial  tcp:$ser,server,nowait
        |;
+
+       $kvm .= ' -vnc ' . port(0,':') unless $ENV{DISPLAY};
+
        #       -runas $server::user
        $kvm =~ s{\s+}{ }gs;