linux_usr/v3_vncclient

   1 #!/usr/bin/perl -w
   2
   3 use Getopt::Long;
   4
   5 $port = 5951;
   6 $password = "";
   7
   8 &GetOptions("port=i"=>\$port, "password=s"=>\$password);
   9
  10
  11 if (!on_path("vncviewer")) {
  12   print "You do not have vncviewer available on your PATH.\n";
  13   print "v3_vncclient requires this functionality.\n";
  14   print "You probably need to install vncviewer (e.g., yum install vncviewer)\n";
  15   exit -1;
  16 }
  17
  18 system "vncviewer localhost:$port\n";
  19
  20
  21
  22
  23 sub on_path {
  24   my $x = `which $_[0] 2>&1`;
  25   if (!defined($x) || $x=~/no $_[0] in/) {
  26     return 0;
  27   } else {
  28     return 1;
  29   }
  30 }
  31