perl-confid

_vs_exec.pl

_vs_exec($socket, $cmd, $vps_id);

_vs_is_vz_hwn.pl

_vs_is_vz_hwn($socket);

_vs_response.pl

return _vs_response($socket, $cmd, conv_rc($rc), "", $vps_id);

_vs_vps_status.pl

_vs_vps_status($socket, $vps_id);

_vsresponse_vs_exec.pl

return _vs_response(_vs_exec($socket, $cmd, $vps_id));

capture_system.pl

    ($stdout, $stderr, $rc) = capture { system $cmd };
    my $outerr = "$stdout#$stderr";

xlogwrite_sub.pl

xlogwrite('INFO', 'START: ...', $vps_id);

xlogwrite_vps_status.pl

    xlogwrite('INFO', 'START: ...', $vps_id);
    _vs_vps_status($socket, $vps_id);