13 |
|
|
14 |
our $mounted; |
our $mounted; |
15 |
|
|
16 |
sub available { qw/debian_live webconverger debirf tinycore nfsroot/ }; |
sub available { qw/debian_live webconverger debirf tinycore nfsroot openvz_host openvz_ve printer/ }; |
17 |
|
|
18 |
sub debian_live { |
sub debian_live { |
19 |
my ($ip) = @_; |
my ($ip) = @_; |
183 |
}); |
}); |
184 |
} |
} |
185 |
|
|
186 |
|
sub openvz_host {} |
187 |
|
sub openvz_ve {} |
188 |
|
sub printer {} |
189 |
|
|
190 |
sub for_ip { |
sub for_ip { |
191 |
my $ip = shift || return; |
my $ip = shift || return; |
192 |
my $deploy = client::conf( $ip => 'deploy' ) || return; |
my $deploy = client::conf( $ip => 'deploy' ) || return; |