diff options
author | Aran Clary Deltac <bluefeet@gmail.com> | 2023-06-07 13:26:29 -0700 |
---|---|---|
committer | Aran Clary Deltac <bluefeet@gmail.com> | 2023-06-07 13:26:29 -0700 |
commit | c503ff8c3c2efb248215efac0da0e62d64e4ee60 (patch) | |
tree | 306165024b40cfad90eca16cba4526c25d1789e3 | |
parent | de2aa9b1f3b70e2986cdd9bf72444f85b1464e6e (diff) |
Update boilerplate for latest PR
-rw-r--r-- | Changes | 4 | ||||
-rw-r--r-- | README.md | 60 | ||||
-rw-r--r-- | lib/GitLab/API/v4.pm | 120 |
3 files changed, 184 insertions, 0 deletions
@@ -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. @@ -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( |