separate packaging and source build system

like almost all of our repos do nowadays, modern git can detect such
things on rebase so in development stuff should be hopefully not too
much affected by this.

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

3 files changed, 204 insertions, 0 deletions

diff --git a/src/PVE/API2/Network/SDN/Zones/Content.pm b/src/PVE/API2/Network/SDN/Zones/Content.pm
new file mode 100644
index 0000000..66f49df
--- /dev/null
+++ b/src/PVE/API2/Network/SDN/Zones/Content.pm
@@ -0,0 +1,85 @@
+package PVE::API2::Network::SDN::Zones::Content;
+
+use strict;
+use warnings;
+use Data::Dumper;
+
+use PVE::SafeSyslog;
+use PVE::Cluster;
+use PVE::INotify;
+use PVE::Exception qw(raise_param_exc);
+use PVE::RPCEnvironment;
+use PVE::RESTHandler;
+use PVE::JSONSchema qw(get_standard_option);
+use PVE::Network::SDN;
+
+use base qw(PVE::RESTHandler);
+
+__PACKAGE__->register_method ({
+    name => 'index',
+    path => '',
+    method => 'GET',
+    description => "List zone content.",
+    permissions => {
+	check => ['perm', '/sdn/zones/{zone}', ['SDN.Audit'], any => 1],
+    },
+    protected => 1,
+    proxyto => 'node',
+    parameters => {
+    	additionalProperties => 0,
+	properties => {
+	    node => get_standard_option('pve-node'),
+	    zone => get_standard_option('pve-sdn-zone-id', {
+		completion => \&PVE::Network::SDN::Zones::complete_sdn_zone,
+            }),
+	},
+    },
+    returns => {
+	type => 'array',
+	items => {
+	    type => "object",
+	    properties => {
+		vnet => {
+		    description => "Vnet identifier.",
+		    type => 'string',
+		},
+		status => {
+		    description => "Status.",
+		    type => 'string',
+		    optional => 1,
+		},
+		statusmsg => {
+		    description => "Status details",
+		    type => 'string',
+		    optional => 1,
+		},
+	    },
+	},
+	links => [ { rel => 'child', href => "{vnet}" } ],
+    },
+    code => sub {
+	my ($param) = @_;
+
+	my $rpcenv = PVE::RPCEnvironment::get();
+
+	my $authuser = $rpcenv->get_user();
+
+	my $zoneid = $param->{zone};
+
+	my $res = [];
+
+        my ($zone_status, $vnet_status) = PVE::Network::SDN::status();
+
+	foreach my $id (keys %{$vnet_status}) {
+	    if ($vnet_status->{$id}->{zone} eq $zoneid) {
+		my $item->{vnet} = $id;
+		$item->{status} = $vnet_status->{$id}->{'status'};
+		$item->{statusmsg} = $vnet_status->{$id}->{'statusmsg'};
+		push @$res,$item;
+	    }
+        }
+
+	return $res;
+    }});
+
+1;
diff --git a/src/PVE/API2/Network/SDN/Zones/Makefile b/src/PVE/API2/Network/SDN/Zones/Makefile
new file mode 100644
index 0000000..9b0a42b
--- /dev/null
+++ b/src/PVE/API2/Network/SDN/Zones/Makefile
@@ -0,0 +1,8 @@
+SOURCES=Status.pm Content.pm
+
+
+PERL5DIR=${DESTDIR}/usr/share/perl5
+
+.PHONY: install
+install:
+	for i in ${SOURCES}; do install -D -m 0644 $$i ${PERL5DIR}/PVE/API2/Network/SDN/Zones/$$i; done
diff --git a/src/PVE/API2/Network/SDN/Zones/Status.pm b/src/PVE/API2/Network/SDN/Zones/Status.pm
new file mode 100644
index 0000000..17de68f
--- /dev/null
+++ b/src/PVE/API2/Network/SDN/Zones/Status.pm
@@ -0,0 +1,111 @@
+package PVE::API2::Network::SDN::Zones::Status;
+
+use strict;
+use warnings;
+
+use File::Path;
+use File::Basename;
+use PVE::Tools;
+use PVE::INotify;
+use PVE::Cluster;
+use PVE::API2::Network::SDN::Zones::Content;
+use PVE::RESTHandler;
+use PVE::RPCEnvironment;
+use PVE::JSONSchema qw(get_standard_option);
+use PVE::Exception qw(raise_param_exc);
+
+use base qw(PVE::RESTHandler);
+
+__PACKAGE__->register_method ({
+    subclass => "PVE::API2::Network::SDN::Zones::Content",
+    path => '{zone}/content',
+});
+
+__PACKAGE__->register_method ({
+    name => 'index',
+    path => '',
+    method => 'GET',
+    description => "Get status for all zones.",
+    permissions => {
+	description => "Only list entries where you have 'SDN.Audit'",
+	user => 'all',
+    },
+    protected => 1,
+    proxyto => 'node',
+    parameters => {
+    	additionalProperties => 0,
+	properties => {
+	    node => get_standard_option('pve-node')
+	},
+    },
+    returns => {
+	type => 'array',
+	items => {
+	    type => "object",
+	    properties => {
+		zone => get_standard_option('pve-sdn-zone-id'),
+		status => {
+		    description => "Status of zone",
+		    type => 'string',
+		    enum => ['available', 'pending', 'error'],
+		},
+	    },
+	},
+	links => [ { rel => 'child', href => "{zone}" } ],
+    },
+    code => sub {
+	my ($param) = @_;
+
+	my $rpcenv = PVE::RPCEnvironment::get();
+	my $authuser = $rpcenv->get_user();
+
+	my $localnode = PVE::INotify::nodename();
+
+	my $res = [];
+
+	my ($zone_status, $vnet_status) = PVE::Network::SDN::status();
+
+	foreach my $id (sort keys %{$zone_status}) {
+	    my $item->{zone} = $id;
+	    $item->{status} = $zone_status->{$id}->{'status'};
+	    push @$res, $item;
+	}
+
+	return $res;
+    }});
+
+__PACKAGE__->register_method ({
+    name => 'diridx',
+    path => '{zone}',
+    method => 'GET',
+    description => "",
+    permissions => {
+	check => ['perm', '/sdn/zones/{zone}', ['SDN.Audit'], any => 1],
+    },
+    parameters => {
+    	additionalProperties => 0,
+	properties => {
+	    node => get_standard_option('pve-node'),
+	    zone => get_standard_option('pve-sdn-zone-id'),
+	},
+    },
+    returns => {
+	type => 'array',
+	items => {
+	    type => "object",
+	    properties => {
+		subdir => { type => 'string' },
+	    },
+	},
+	links => [ { rel => 'child', href => "{subdir}" } ],
+    },
+    code => sub {
+	my ($param) = @_;
+	my $res = [
+	    { subdir => 'content' },
+	    ];
+
+	return $res;
+    }});
+
+1;