[pve-devel] r5161 - in qemu-server/pve2: . PVE/API2/Qemu

svn-commits at proxmox.com svn-commits at proxmox.com
Wed Sep 15 12:14:20 CEST 2010


Author: dietmar
Date: 2010-09-15 10:14:20 +0000 (Wed, 15 Sep 2010)
New Revision: 5161

Modified:
   qemu-server/pve2/PVE/API2/Qemu/VNC.pm
   qemu-server/pve2/nqm
Log:


Modified: qemu-server/pve2/PVE/API2/Qemu/VNC.pm
===================================================================
--- qemu-server/pve2/PVE/API2/Qemu/VNC.pm	2010-09-15 10:08:40 UTC (rev 5160)
+++ qemu-server/pve2/PVE/API2/Qemu/VNC.pm	2010-09-15 10:14:20 UTC (rev 5161)
@@ -13,16 +13,14 @@
 use PVE::QemuServer;
 use PVE::RPCEnvironment;
 
-use Data::Dumper; # fixme: remove
-
-
 use base qw(PVE::RESTHandler);
 
 __PACKAGE__->register_method ({
     name => 'vncproxy', 
     path => '',  
     method => 'POST',
-    description => "Create VNC proxy connections.",
+    protected => 1,
+    description => "Creates a TCP VNC proxy connections.",
     parameters => {
     	additionalProperties => 0,
 	properties => {
@@ -69,8 +67,6 @@
 	    # also redirect stderr (else we get RFB protocol errors)
 	    my @cmd = ('/bin/nc', '-l', '-p', $port, '-w', $timeout, '-c', "$qmstr 2>/dev/null");
 
-	    unshift @cmd, "echo"; # fixme
-
 	    my $cmdstr = join (' ', @cmd);
 	    syslog ('info', "CMD: $cmdstr");
 

Modified: qemu-server/pve2/nqm
===================================================================
--- qemu-server/pve2/nqm	2010-09-15 10:08:40 UTC (rev 5160)
+++ qemu-server/pve2/nqm	2010-09-15 10:14:20 UTC (rev 5161)
@@ -152,7 +152,7 @@
     name => 'vncproxy', 
     path => 'vncproxy', 
     method => 'PUT',
-    description => "Run a VNC proxy ",
+    description => "Proxy VM VNC traffic to stdin/stdout",
     parameters => {
     	additionalProperties => 0,
 	properties => {
@@ -352,14 +352,16 @@
 
 	    next if $input =~ m/^\s*$/;
 
-	    if ($input =~ m/^\s*q(uit)?\s*$/) {
-		exit (0);
-	    }
+	    last if $input =~ m/^\s*q(uit)?\s*$/;
+
 	    eval {
 		print PVE::QemuServer::vm_monitor_command ($vmid, $input);
 	    };
 	    print "ERROR: $@" if $@;
 	}
+
+	return undef;
+
     }});
 
 # fixme: unlink




More information about the pve-devel mailing list