8 |
use pxelinux; |
use pxelinux; |
9 |
use client; |
use client; |
10 |
use file; |
use file; |
11 |
|
use ssh; |
12 |
|
|
13 |
use File::Slurp; |
use File::Slurp; |
14 |
|
|
15 |
our $mounted; |
our $mounted; |
16 |
|
|
17 |
sub available { qw/debian_live webconverger debirf tinycore nfsroot openvz_host openvz_ve printer wrt/ }; |
sub available { qw/debian_live webconverger debirf tinycore nfsroot openvz_host openvz_container printer wrt/ }; |
18 |
|
|
19 |
sub debian_live { |
sub debian_live { |
20 |
my ($ip) = @_; |
my ($ip) = @_; |
184 |
}); |
}); |
185 |
} |
} |
186 |
|
|
187 |
sub openvz_host {} |
sub openvz_host { |
188 |
sub openvz_ve {} |
my $ip = shift; |
189 |
|
ssh::shell( $ip, 'cat /proc/vz/veinfo', 'vzlist -a', 'uptime', 'free', 'df' ); |
190 |
|
} |
191 |
|
sub openvz_container { |
192 |
|
my $ip = shift; |
193 |
|
ssh::shell( $ip, 'cat /proc/vz/veinfo', 'uptime', 'free', 'df' ); |
194 |
|
} |
195 |
sub printer {} |
sub printer {} |
196 |
sub wrt {} |
sub wrt {} |
197 |
|
|
198 |
sub for_ip { |
sub for_ip { |
199 |
my $ip = shift || return; |
my $ip = shift || return; |
200 |
my $deploy = client::conf( $ip => 'deploy' ) || return; |
my $config = client::conf( $ip => 'config' ) || return; |
201 |
eval $deploy . '($ip)'; |
eval $config . '($ip)'; |
202 |
# $tftp::dir = "$server::base_dir/tftp/$pxelinux::path_prefix"; |
# $tftp::dir = "$server::base_dir/tftp/$pxelinux::path_prefix"; |
203 |
} |
} |
204 |
|
|