.PHONY: install
install:
install -D -m 0644 Disks.pm ${DESTDIR}${PERLDIR}/PVE/API2/Disks.pm
- install -D -m 0644 StorageReplication.pm ${DESTDIR}${PERLDIR}/PVE/API2/StorageReplication.pm
make -C Storage install
-SOURCES= Content.pm Status.pm Config.pm Scan.pm
+SOURCES= Content.pm Status.pm Config.pm Scan.pm Replication.pm
.PHONY: install
install:
--- /dev/null
+package PVE::API2::Storage::Replication;
+
+use warnings;
+use strict;
+
+use PVE::JSONSchema qw(get_standard_option);
+use PVE::ReplicationTools;
+
+use PVE::RESTHandler;
+
+use base qw(PVE::RESTHandler);
+
+__PACKAGE__->register_method ({
+ name => 'list',
+ path => 'list',
+ method => 'GET',
+ description => "List of all replication jobs.",
+ permissions => {
+ user => 'all',
+ },
+ protected => 1,
+ proxyto => 'node',
+ parameters => {
+ additionalProperties => 0,
+ properties => {
+ node => get_standard_option('pve-node'),
+ nodes => get_standard_option('pve-node-list' ,
+ {description => "Notes where the jobs is located.",
+ optional => 1}),
+ },
+ },
+ returns => { type => 'object' },
+ code => sub {
+ my ($param) = @_;
+
+ if ($param->{nodes}) {
+ foreach my $node (PVE::Tools::split_list($param->{nodes})) {
+ die "Node: $node does not exists.\n" if
+ !PVE::Cluster::check_node_exists($node);
+ }
+ }
+
+ my $nodes = $param->{nodes} ?
+ $param->{nodes} : $param->{node};
+
+ return PVE::ReplicationTools::get_all_jobs($nodes);
+}});
+
+1;
+++ /dev/null
-package PVE::API2::StorageReplication;
-
-use warnings;
-use strict;
-
-use PVE::JSONSchema qw(get_standard_option);
-use PVE::ReplicationTools;
-
-use PVE::RESTHandler;
-
-use base qw(PVE::RESTHandler);
-
-__PACKAGE__->register_method ({
- name => 'list',
- path => 'list',
- method => 'GET',
- description => "List of all replication jobs.",
- permissions => {
- user => 'all',
- },
- protected => 1,
- proxyto => 'node',
- parameters => {
- additionalProperties => 0,
- properties => {
- node => get_standard_option('pve-node'),
- nodes => get_standard_option('pve-node-list' ,
- {description => "Notes where the jobs is located.",
- optional => 1}),
- },
- },
- returns => { type => 'object' },
- code => sub {
- my ($param) = @_;
-
- if ($param->{nodes}) {
- foreach my $node (PVE::Tools::split_list($param->{nodes})) {
- die "Node: $node does not exists.\n" if
- !PVE::Cluster::check_node_exists($node);
- }
- }
-
- my $nodes = $param->{nodes} ?
- $param->{nodes} : $param->{node};
-
- return PVE::ReplicationTools::get_all_jobs($nodes);
-}});
-
-1;
use strict;
use warnings;
+use POSIX qw(strftime);
-use PVE::API2::StorageReplication;
use PVE::JSONSchema qw(get_standard_option);
use PVE::INotify;
use PVE::RPCEnvironment;
use PVE::Tools qw(extract_param);
use PVE::SafeSyslog;
use PVE::CLIHandler;
-use POSIX qw(strftime);
+
+use PVE::API2::Storage::Replication;
use base qw(PVE::CLIHandler);