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/ }; |
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) = @_; |
184 |
}); |
}); |
185 |
} |
} |
186 |
|
|
187 |
|
sub openvz { |
188 |
|
my $ip = shift; |
189 |
|
ssh::shell( $ip, 'cat /proc/vz/veinfo', 'vzlist -a', 'uptime', 'free', 'df', 'zfs list' ); |
190 |
|
} |
191 |
|
sub printer {} |
192 |
|
sub wrt {} |
193 |
|
|
194 |
sub for_ip { |
sub for_ip { |
195 |
my $ip = shift || return; |
my $ip = shift || return; |
196 |
my $deploy = client::conf( $ip => 'deploy' ) || return; |
my $config = client::conf( $ip => 'config' ) || return; |
197 |
eval $deploy . '($ip)'; |
eval $config . '($ip)'; |
198 |
# $tftp::dir = "$server::base_dir/tftp/$pxelinux::path_prefix"; |
# $tftp::dir = "$server::base_dir/tftp/$pxelinux::path_prefix"; |
199 |
} |
} |
200 |
|
|