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'; |
186 |
|
|
187 |
sub openvz { |
sub openvz { |
188 |
my $ip = shift; |
my $ip = shift; |
189 |
ssh::shell( $ip, 'cat /proc/vz/veinfo', 'uptime', 'free', 'df' ); |
ssh::shell( $ip, 'cat /proc/vz/veinfo', 'vzlist -a', 'uptime', 'free', 'df', 'zfs list' ); |
190 |
} |
} |
191 |
sub printer {} |
sub printer {} |
192 |
sub wrt {} |
sub wrt {} |