split source and packaging, and clean latter a bit up

[pmg-api.git] / PMG / API2 / Users.pm

diff --git a/PMG/API2/Users.pm b/PMG/API2/Users.pm
deleted file mode 100644 (file)
index 0398e93..0000000
--- a/PMG/API2/Users.pm
+++ /dev/null
@@ -1,232 +0,0 @@
-package PMG::API2::Users;
-
-use strict;
-use warnings;
-use Data::Dumper;
-
-use PVE::SafeSyslog;
-use PVE::Tools qw(extract_param);
-use PVE::JSONSchema qw(get_standard_option);
-use PVE::RESTHandler;
-use PVE::INotify;
-use PVE::Exception qw(raise_perm_exc);
-
-use PMG::RESTEnvironment;
-use PMG::UserConfig;
-
-use base qw(PVE::RESTHandler);
-
-my $extract_userdata = sub {
-    my ($entry) = @_;
-
-    my $res = {};
-    foreach my $k (keys %$entry) {
-       $res->{$k} = $entry->{$k} if $k ne 'crypt_pass';
-    }
-
-    return $res;
-};
-
-__PACKAGE__->register_method ({
-    name => 'index',
-    path => '',
-    method => 'GET',
-    description => "List users.",
-    proxyto => 'master',
-    protected => 1,
-    permissions => { check => [ 'admin', 'qmanager', 'audit' ] },
-    parameters => {
-       additionalProperties => 0,
-       properties => {},
-    },
-    returns => {
-       type => 'array',
-       items => {
-           type => "object",
-           properties => {
-               userid => { type => 'string'},
-               enable => { type => 'boolean'},
-               role => { type => 'string'},
-               comment => { type => 'string', optional => 1},
-           },
-       },
-       links => [ { rel => 'child', href => "{userid}" } ],
-    },
-    code => sub {
-       my ($param) = @_;
-
-       my $cfg = PMG::UserConfig->new();
-
-       my $rpcenv = PMG::RESTEnvironment->get();
-       my $authuser = $rpcenv->get_user();
-       my $role = $rpcenv->get_role();
-
-       my $res = [];
-
-       foreach my $userid (sort keys %$cfg) {
-           next if $role eq 'qmanager' && $authuser ne $userid;
-           push @$res, $extract_userdata->($cfg->{$userid});
-       }
-
-       return $res;
-    }});
-
-__PACKAGE__->register_method ({
-    name => 'create',
-    path => '',
-    method => 'POST',
-    proxyto => 'master',
-    protected => 1,
-    description => "Create new user",
-    parameters => $PMG::UserConfig::create_schema,
-    returns => { type => 'null' },
-    code => sub {
-       my ($param) = @_;
-
-       my $code = sub {
-
-           my $cfg = PMG::UserConfig->new();
-
-           die "User '$param->{userid}' already exists\n"
-               if $cfg->{$param->{userid}};
-
-           my $entry = {};
-           foreach my $k (keys %$param) {
-               my $v = $param->{$k};
-               if ($k eq 'password') {
-                   $entry->{crypt_pass} = PVE::Tools::encrypt_pw($v);
-               } else {
-                   $entry->{$k} = $v;
-               }
-           }
-
-           $entry->{enable} //= 0;
-           $entry->{expire} //= 0;
-           $entry->{role} //= 'audit';
-
-           $cfg->{$param->{userid}} = $entry;
-
-           $cfg->write();
-       };
-
-       PMG::UserConfig::lock_config($code, "create user failed");
-
-       return undef;
-    }});
-
-__PACKAGE__->register_method ({
-    name => 'read',
-    path => '{userid}',
-    method => 'GET',
-    description => "Read User data.",
-    permissions => { check => [ 'admin', 'qmanager', 'audit' ] },
-    proxyto => 'master',
-    protected => 1,
-    parameters => {
-       additionalProperties => 0,
-       properties => {
-           userid => get_standard_option('userid'),
-       },
-    },
-    returns => {
-       type => "object",
-       properties => {},
-    },
-    code => sub {
-       my ($param) = @_;
-
-       my $cfg = PMG::UserConfig->new();
-
-       my $rpcenv = PMG::RESTEnvironment->get();
-       my $authuser = $rpcenv->get_user();
-       my $role = $rpcenv->get_role();
-
-       raise_perm_exc()
-           if $role eq 'qmanager' && $authuser ne $param->{userid};
-
-       my $data = $cfg->lookup_user_data($param->{userid});
-
-       my $res = $extract_userdata->($data);
-
-       return $res;
-    }});
-
-__PACKAGE__->register_method ({
-    name => 'write',
-    path => '{userid}',
-    method => 'PUT',
-    description => "Update user data.",
-    protected => 1,
-    proxyto => 'master',
-    parameters => $PMG::UserConfig::update_schema,
-    returns => { type => 'null' },
-    code => sub {
-       my ($param) = @_;
-
-       my $code = sub {
-
-           my $cfg = PMG::UserConfig->new();
-
-           my $userid = extract_param($param, 'userid');
-
-           my $entry = $cfg->lookup_user_data($userid);
-
-           my $delete_str = extract_param($param, 'delete');
-           die "no options specified\n"
-               if !$delete_str && !scalar(keys %$param);
-
-           foreach my $k (PVE::Tools::split_list($delete_str)) {
-               delete $entry->{$k};
-           }
-
-           foreach my $k (keys %$param) {
-               my $v = $param->{$k};
-               if ($k eq 'password') {
-                   $entry->{crypt_pass} = PVE::Tools::encrypt_pw($v);
-               } else {
-                   $entry->{$k} = $v;
-               }
-           }
-
-           $cfg->write();
-       };
-
-       PMG::UserConfig::lock_config($code, "update user failed");
-
-       return undef;
-    }});
-
-__PACKAGE__->register_method ({
-    name => 'delete',
-    path => '{userid}',
-    method => 'DELETE',
-    description => "Delete a user.",
-    protected => 1,
-    proxyto => 'master',
-    parameters => {
-       additionalProperties => 0,
-       properties => {
-           userid => get_standard_option('userid'),
-       }
-    },
-    returns => { type => 'null' },
-    code => sub {
-       my ($param) = @_;
-
-       my $code = sub {
-
-           my $cfg = PMG::UserConfig->new();
-
-           $cfg->lookup_user_data($param->{userid}); # user exists?
-
-           delete $cfg->{$param->{userid}};
-
-           $cfg->write();
-       };
-
-       PMG::UserConfig::lock_config($code, "delete user failed");
-
-       return undef;
-    }});
-
-1;