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