14 |
|
|
15 |
our $mounted; |
our $mounted; |
16 |
|
|
17 |
sub available { qw/debian_live webconverger debirf tinycore nfsroot openvz_host openvz_container printer wrt/ }; |
sub available { qw/debian_live webconverger debirf tinycore nfsroot openvz printer wrt/ }; |
18 |
|
|
19 |
sub debian_live { |
sub debian_live { |
20 |
my ($ip) = @_; |
my ($ip) = @_; |
51 |
sub webconverger { |
sub webconverger { |
52 |
my ($ip) = @_; |
my ($ip) = @_; |
53 |
|
|
54 |
$mounted->{"webconverger/$ip"} ||= upstream::iso( 'http://download.webconverger.com/webc-5.2.iso' ); |
$mounted->{"webconverger/$ip"} ||= upstream::iso( 'http://download.webconverger.com/webc-5.5.iso' ); |
55 |
|
|
56 |
my $homepage = client::conf( $ip => 'homepage', default => "http://${server::ip}:7777/client" ); |
my $homepage = client::conf( $ip => 'homepage', default => "http://${server::ip}:7777/client" ); |
57 |
my $hostname = client::conf( $ip => 'hostname' ) || 'webconverger'; |
my $hostname = client::conf( $ip => 'hostname' ) || 'webconverger'; |
184 |
}); |
}); |
185 |
} |
} |
186 |
|
|
187 |
sub openvz_host { |
sub openvz { |
188 |
my $ip = shift; |
my $ip = shift; |
189 |
ssh::shell( $ip, 'cat /proc/vz/veinfo', 'vzlist -a', 'uptime', 'free', 'df' ); |
ssh::shell( $ip, 'cat /proc/vz/veinfo', 'vzlist -a', 'uptime', 'free', 'df', 'zfs list' ); |
|
} |
|
|
sub openvz_container { |
|
|
my $ip = shift; |
|
|
ssh::shell( $ip, 'cat /proc/vz/veinfo', 'uptime', 'free', 'df' ); |
|
190 |
} |
} |
191 |
sub printer {} |
sub printer {} |
192 |
sub wrt {} |
sub wrt {} |