3 use IPC::Cmd qw/can_run/;
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";
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";
32 print "You have no console program on your path\n";