mirror of https://github.com/fspc/gbootroot.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
275 B
16 lines
275 B
24 years ago
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
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";
|