summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAran Clary Deltac <bluefeet@gmail.com>2023-06-07 13:26:29 -0700
committerAran Clary Deltac <bluefeet@gmail.com>2023-06-07 13:26:29 -0700
commitc503ff8c3c2efb248215efac0da0e62d64e4ee60 (patch)
tree306165024b40cfad90eca16cba4526c25d1789e3
parentde2aa9b1f3b70e2986cdd9bf72444f85b1464e6e (diff)
Update boilerplate for latest PR
-rw-r--r--Changes4
-rw-r--r--README.md60
-rw-r--r--lib/GitLab/API/v4.pm120
3 files changed, 184 insertions, 0 deletions
diff --git a/Changes b/Changes
index 91e8aa1..041976e 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,10 @@ Revision history for Perl extension GitLab-API-v4.
{{$NEXT}}
+ - Add approve_user and reject_user.
+ - Add ban_user and unban_user.
+ - Add activate_user and deactivate_user.
+ - Allow multi-line arguments.
- Use JSON::MaybeXS instead of JSON.
- Add verify_SSL=>1 to HTTP::Tiny to verify https server identity.
- Handle multiple cookies correctly when there is more than one.
diff --git a/README.md b/README.md
index 33ffb57..db584ce 100644
--- a/README.md
+++ b/README.md
@@ -5373,6 +5373,66 @@ See [https://docs.gitlab.com/ce/api/users.html](https://docs.gitlab.com/ce/api/u
Sends a `POST` request to `users/:user_id/unblock` and returns the decoded response content.
+- approve\_user
+
+ ```perl
+ $api->approve_user(
+ $user_id,
+ );
+ ```
+
+ Sends a `POST` request to `users/:user_id/approve`.
+
+- reject\_user
+
+ ```perl
+ $api->reject_user(
+ $user_id,
+ );
+ ```
+
+ Sends a `POST` request to `users/:user_id/reject`.
+
+- activate\_user
+
+ ```perl
+ $api->activate_user(
+ $user_id,
+ );
+ ```
+
+ Sends a `POST` request to `users/:user_id/activate`.
+
+- deactivate\_user
+
+ ```perl
+ $api->deactivate_user(
+ $user_id,
+ );
+ ```
+
+ Sends a `POST` request to `users/:user_id/deactivate`.
+
+- ban\_user
+
+ ```perl
+ $api->ban_user(
+ $user_id,
+ );
+ ```
+
+ Sends a `POST` request to `users/:user_id/ban`.
+
+- unban\_user
+
+ ```perl
+ $api->unban_user(
+ $user_id,
+ );
+ ```
+
+ Sends a `POST` request to `users/:user_id/unban`.
+
- user\_impersonation\_tokens
```perl
diff --git a/lib/GitLab/API/v4.pm b/lib/GitLab/API/v4.pm
index ace4c0e..09a8306 100644
--- a/lib/GitLab/API/v4.pm
+++ b/lib/GitLab/API/v4.pm
@@ -10517,6 +10517,126 @@ sub unblock_user {
return $self->_call_rest_client( 'POST', 'users/:user_id/unblock', [@_], $options );
}
+=item approve_user
+
+ $api->approve_user(
+ $user_id,
+ );
+
+Sends a C<POST> request to C<users/:user_id/approve>.
+
+=cut
+
+sub approve_user {
+ my $self = shift;
+ croak 'approve_user must be called with 1 arguments' if @_ != 1;
+ croak 'The #1 argument ($user_id) to approve_user must be a scalar' if ref($_[0]) or (!defined $_[0]);
+ my $options = {};
+ $options->{decode} = 0;
+ $self->_call_rest_client( 'POST', 'users/:user_id/approve', [@_], $options );
+ return;
+}
+
+=item reject_user
+
+ $api->reject_user(
+ $user_id,
+ );
+
+Sends a C<POST> request to C<users/:user_id/reject>.
+
+=cut
+
+sub reject_user {
+ my $self = shift;
+ croak 'reject_user must be called with 1 arguments' if @_ != 1;
+ croak 'The #1 argument ($user_id) to reject_user must be a scalar' if ref($_[0]) or (!defined $_[0]);
+ my $options = {};
+ $options->{decode} = 0;
+ $self->_call_rest_client( 'POST', 'users/:user_id/reject', [@_], $options );
+ return;
+}
+
+=item activate_user
+
+ $api->activate_user(
+ $user_id,
+ );
+
+Sends a C<POST> request to C<users/:user_id/activate>.
+
+=cut
+
+sub activate_user {
+ my $self = shift;
+ croak 'activate_user must be called with 1 arguments' if @_ != 1;
+ croak 'The #1 argument ($user_id) to activate_user must be a scalar' if ref($_[0]) or (!defined $_[0]);
+ my $options = {};
+ $options->{decode} = 0;
+ $self->_call_rest_client( 'POST', 'users/:user_id/activate', [@_], $options );
+ return;
+}
+
+=item deactivate_user
+
+ $api->deactivate_user(
+ $user_id,
+ );
+
+Sends a C<POST> request to C<users/:user_id/deactivate>.
+
+=cut
+
+sub deactivate_user {
+ my $self = shift;
+ croak 'deactivate_user must be called with 1 arguments' if @_ != 1;
+ croak 'The #1 argument ($user_id) to deactivate_user must be a scalar' if ref($_[0]) or (!defined $_[0]);
+ my $options = {};
+ $options->{decode} = 0;
+ $self->_call_rest_client( 'POST', 'users/:user_id/deactivate', [@_], $options );
+ return;
+}
+
+=item ban_user
+
+ $api->ban_user(
+ $user_id,
+ );
+
+Sends a C<POST> request to C<users/:user_id/ban>.
+
+=cut
+
+sub ban_user {
+ my $self = shift;
+ croak 'ban_user must be called with 1 arguments' if @_ != 1;
+ croak 'The #1 argument ($user_id) to ban_user must be a scalar' if ref($_[0]) or (!defined $_[0]);
+ my $options = {};
+ $options->{decode} = 0;
+ $self->_call_rest_client( 'POST', 'users/:user_id/ban', [@_], $options );
+ return;
+}
+
+=item unban_user
+
+ $api->unban_user(
+ $user_id,
+ );
+
+Sends a C<POST> request to C<users/:user_id/unban>.
+
+=cut
+
+sub unban_user {
+ my $self = shift;
+ croak 'unban_user must be called with 1 arguments' if @_ != 1;
+ croak 'The #1 argument ($user_id) to unban_user must be a scalar' if ref($_[0]) or (!defined $_[0]);
+ my $options = {};
+ $options->{decode} = 0;
+ $self->_call_rest_client( 'POST', 'users/:user_id/unban', [@_], $options );
+ return;
+}
+
=item user_impersonation_tokens
my $tokens = $api->user_impersonation_tokens(