mirror of https://github.com/fspc/gbootroot.git
freesource
24 years ago
1 changed files with 15 additions and 0 deletions
@ -0,0 +1,15 @@ |
|||||
|
#!/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"; |
Loading…
Reference in new issue