linux_usr/v3_gui

   1 #!/usr/bin/perl -w
   2
   3 if (!on_path("v3_x0gui")) {
   4   print "You do not have v3_x0gui available on your PATH.\n";
   5   print "This probably means you have not built the GUI,\n";
   6   print "or have not put .../palacios/linux_usr on your PATH\n";
   7   exit -1;
   8 }
   9
  10 if (!on_path("xterm")) {
  11   print "You do not have xterm available on your PATH.\n";
  12   print "v3_gui requires this functionality.\n";
  13   print "You probably need to install xterm (e.g., yum install xterm)\n";
  14   exit -1;
  15 }
  16
  17 system "v3_x0gui";
  18
  19 sub on_path {
  20   my $x = `which $_[0] 2>&1`;
  21   if (!defined($x) || $x=~/no $_[0] in/) {
  22     return 0;
  23   } else {
  24     return 1;
  25   }
  26 }
  27
  28