11 |
|
|
12 |
use File::Slurp; |
use File::Slurp; |
13 |
|
|
14 |
|
our $mounted; |
15 |
|
|
16 |
sub available { qw/debian_live webconverger debirf tinycore nfsroot/ }; |
sub available { qw/debian_live webconverger debirf tinycore nfsroot/ }; |
17 |
|
|
18 |
sub debian_live { |
sub debian_live { |
50 |
sub webconverger { |
sub webconverger { |
51 |
my ($ip) = @_; |
my ($ip) = @_; |
52 |
|
|
53 |
upstream::iso( 'http://download.webconverger.com/webc-5.2.iso' ); |
$mounted->{$ip} ||= upstream::iso( 'http://download.webconverger.com/webc-5.2.iso' ); |
54 |
|
|
55 |
my $homepage = client::conf( $ip => 'homepage', default => "http://${server::ip}:7777/client" ); |
my $homepage = client::conf( $ip => 'homepage', default => "http://${server::ip}:7777/client" ); |
56 |
my $hostname = client::conf( $ip => 'hostname' ) || 'webconverger'; |
my $hostname = client::conf( $ip => 'hostname' ) || 'webconverger'; |
108 |
system "sudo chroot $dir sh -x /tmp/inside.sh"; |
system "sudo chroot $dir sh -x /tmp/inside.sh"; |
109 |
} |
} |
110 |
|
|
|
our $mounted; |
|
|
|
|
111 |
sub nfsroot { |
sub nfsroot { |
112 |
my $ip = shift; |
my $ip = shift; |
113 |
|
|