gBootRoot pronounced "bOOtrOOt"
 
 
 
 

18 lines
313 B

#!/usr/bin/perl
# $Id$
# make_debian-X11 replacement
print "Please enter your Hosts ip: ";
my $answer = <STDIN>;
chomp $answer;
$ENV{DISPLAY} = "$answer:0";
system "Xnest&";
$ENV{DISPLAY} = ":0";
system "flwm&";
system "gbootroot&";
sleep(5);
print "That's it\n";
system "xsetroot -display :0 -solid Orange";