linux_usr/v3_console

   1 #!/usr/bin/perl -w
   2
   3 use IPC::Cmd qw/can_run/;
   4
   5 if ($#ARGV!=0) {
   6   print "v3_console /dev/v3-vmXXX\n";
   7   print "Use v3_console if you are on a terminal and\n";
   8   print "   want to connect to the VM's screen+keybaord\n";
   9   print "   in text mode.\n";
  10   print "   Use '\\' or 'CTRL-ALT-\\' to escape\n";
  11   print "Use v3_cons if you are on a raw PC console and\n";
  12   print "   want to connnect to the VM's screen+keyboard\n";
  13   print "   in text mode.\n";
  14   print "Use v3_vncclient if you want to connect to the\n";
  15   print "   VM's screen+keyboard in graphical mode.\n";
  16   print "   This requires a v3_vncserver and an correctly\n";
  17   print "   configured VM.\n";
  18   print "Use v3_stream if you are on a terminal and\n";
  19   print "   want to connect to a stream on the VM, \n";
  20   print "   for example a serial port.\n";
  21   exit;
  22 }
  23
  24
  25 $vm=shift;
  26
  27 if (can_run('v3_cons_tc')) {
  28     system "v3_cons_tc $vm 2>/dev/null";
  29 } elsif (can_run('v3_cons_sc')) {
  30     system "v3_cons_sc $vm 2>/dev/null";
  31 } else {
  32     print "You have no console program on your path\n";
  33 }
  34