bump version to 3.0-2

[pve-ha-manager.git] / src / ha-manager

diff --git a/src/ha-manager b/src/ha-manager
index de57bf03271d5b6330733004281b543365a620a3..f7576be5226ae96fe47658efd0bff13eae975081 100755 (executable)
--- a/src/ha-manager
+++ b/src/ha-manager
@@ -3,152 +3,12 @@
 use strict;
 use warnings;
 
-use PVE::INotify;
-use JSON;
-use PVE::JSONSchema qw(get_standard_option);
-use PVE::CLIHandler;
 use PVE::Cluster;
+use PVE::CLI::ha_manager;
 
-use PVE::HA::Tools;
-use PVE::API2::HA::Resources;
-use PVE::API2::HA::Groups;
-use PVE::HA::Env::PVE2;
-
-use base qw(PVE::CLIHandler);
-
-$ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
-$ENV{LC_ALL} = 'C';
-
-die "please run as root\n" if $> != 0;
-
-my $nodename = PVE::INotify::nodename();
-
-__PACKAGE__->register_method ({
-    name => 'enable', 
-    path => 'enable',
-    method => 'POST',
-    description => "Enable a HA resource.",
-    parameters => {
-       additionalProperties => 0,
-       properties => {
-           sid => get_standard_option('pve-ha-resource-id'),
-       },
-    },
-    returns => { type => 'null' },
-    code => sub {
-       my ($param) = @_;
-
-       # delete state (default is 'enabled')
-       PVE::API2::HA::Resources->update({ sid => $param->{sid}, delete => 'state' });
-       
-       return undef;
-    }});
-
-__PACKAGE__->register_method ({
-    name => 'disable', 
-    path => 'disable',
-    method => 'POST',
-    description => "Disable a HA resource.",
-    parameters => {
-       additionalProperties => 0,
-       properties => {
-           sid => get_standard_option('pve-ha-resource-id'),
-       },
-    },
-    returns => { type => 'null' },
-    code => sub {
-       my ($param) = @_;
-
-       PVE::API2::HA::Resources->update({ sid => $param->{sid}, state => 'disabled' });
-       
-       return undef;
-    }});
-
-__PACKAGE__->register_method ({
-    name => 'status', 
-    path => 'status',
-    method => 'GET',
-    description => "Display HA manger status.",
-    parameters => {
-       additionalProperties => 0,
-       properties => {},
-    },
-    returns => { type => 'null' },
-    code => sub {
-       my ($param) = @_;
-
-       PVE::Cluster::check_cfs_quorum();
-       
-       my $haenv = PVE::HA::Env::PVE2->new($nodename);
-       
-       my $status = $haenv->read_manager_status();
-       
-       print to_json($status, { pretty => 1, canonical => 1} );
-
-       return undef;
-    }});
-
-my $cmddef = {
-    enable => [ __PACKAGE__, 'enable', ['sid']],
-    disable => [ __PACKAGE__, 'disable', ['sid']],
-    status => [ __PACKAGE__, 'status'],
-    config => [ 'PVE::API2::HA::Resources', 'index', [], {}, sub {
-       my $res = shift;
-       foreach my $rec (sort { $a->{sid} cmp $b->{sid} } @$res) {
-           my ($type, $name) = split(':', $rec->{sid}, 2);
-           print "$type:$name\n";
-           foreach my $k (sort keys %$rec) {
-               next if $k eq 'digest' || $k eq 'sid' || 
-                   $k eq 'type';
-               print "\t$k $rec->{$k}\n";
-           }
-           print "\n";
-       }}],
-    groups => [ 'PVE::API2::HA::Groups', 'index', [], {}, sub {
-       my $res = shift;
-       foreach my $rec (sort { $a->{group} cmp $b->{group} } @$res) {
-           print "group: $rec->{group}\n";
-           foreach my $k (sort keys %$rec) {
-               next if $k eq 'digest' || $k eq 'group' || 
-                   $k eq 'type';
-               print "\t$k $rec->{$k}\n";
-           }
-           print "\n";
-       }}],
-    add => [ "PVE::API2::HA::Resources", 'create', ['sid'] ],
-    remove => [ "PVE::API2::HA::Resources", 'delete', ['sid'] ],
-    set => [ "PVE::API2::HA::Resources", 'update', ['sid'] ],
-
-    migrate => [ "PVE::API2::HA::Resources", 'migrate', ['sid', 'node'] ],
-    relocate => [ "PVE::API2::HA::Resources", 'relocate', ['sid', 'node'] ],
-
-};
-
-my $cmd = shift;
-
-if ($cmd && $cmd ne 'printmanpod' && $cmd ne 'verifyapi') {
+my $prepare = sub {
     PVE::Cluster::check_cfs_is_mounted();
     PVE::Cluster::cfs_update();
-}
-
-PVE::CLIHandler::handle_cmd($cmddef, "ha-manager", $cmd, \@ARGV, undef, $0);
-
-exit 0;
-
-__END__
-
-=head1 NAME
-
-pvecm - Proxmox VE HA Command Line Interface
-
-=head1 SYNOPSIS
-
-=include synopsis
-
-=head1 DESCRIPTION
-
-ha-manager is a program to manage the HA configuration.
-
-=include pve_copyright
-
-
+};
+    
+PVE::CLI::ha_manager->run_cli_handler(prepare => $prepare);