Friendlier user-space build/run for graphical components (gui, vnc)

[palacios.git] / linux_usr / v3_vncserver

diff --git a/linux_usr/v3_vncserver b/linux_usr/v3_vncserver
index 82ef652..cc030e0 100755 (executable)
--- a/linux_usr/v3_vncserver
+++ b/linux_usr/v3_vncserver
@@ -7,10 +7,21 @@ $password = "";
 
 &GetOptions("port=i"=>\$port, "password=s"=>\$password);
 
+if (!on_path("v3_x0vncserver")) { 
+  print "You do not have v3_x0vncserver available on your PATH.\n";
+  print "v3_vncserver requires this functionality.\n";
+  print "You probably need to add .../palacios/linux_usr to your path\n";
+  print "Or you need to build v3_x0vncserver.\n";
+  exit -1;
+}
+
 $#ARGV==0 or die "usage: v3_vncserver [--port=port] [--password=password] /dev/v3-vmN\n";
 
+
 $vm=shift;
 
+
+
 system "echo \"$password\" | vncpasswd -f > ./.vncpasswd";
 
 system "v3_x0vncserver --PasswordFile=./.vncpasswd -rfbport $port $vm >/dev/null 2>&1 & echo \$! > ./.vncpid";
@@ -18,3 +29,12 @@ system "v3_x0vncserver --PasswordFile=./.vncpasswd -rfbport $port $vm >/dev/null
 print STDERR "pid of server is stored in ./.vncpid\n";
 print "You can now connect to port $port with password \"$password\"\n";
 
+sub on_path {
+  my $x = `which $_[0] 2>&1`;
+  if (!defined($x) || $x=~/no $_[0] in/) {
+    return 0;
+  } else {
+    return 1;
+  }
+}
+