Adding upstream version 2.25.15.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
This commit is contained in:
parent
10737b110a
commit
b543f2e88d
485 changed files with 191459 additions and 0 deletions
24
lib/Devscripts/Salsa/whoami.pm
Normal file
24
lib/Devscripts/Salsa/whoami.pm
Normal file
|
@ -0,0 +1,24 @@
|
|||
# Gives information on token owner
|
||||
package Devscripts::Salsa::whoami;
|
||||
|
||||
use strict;
|
||||
use Devscripts::Output;
|
||||
use Moo::Role;
|
||||
|
||||
sub whoami {
|
||||
my ($self) = @_;
|
||||
my $current_user = $self->api->current_user;
|
||||
print <<END;
|
||||
Id : $current_user->{id}
|
||||
Username: $current_user->{username}
|
||||
Name : $current_user->{name}
|
||||
Email : $current_user->{email}
|
||||
State : $current_user->{state}
|
||||
END
|
||||
$self->cache->{user}->{ $current_user->{id} } = $current_user->{username};
|
||||
$self->cache->{user_id}->{ $current_user->{username} }
|
||||
= $current_user->{id};
|
||||
return 0;
|
||||
}
|
||||
|
||||
1;
|
Loading…
Add table
Add a link
Reference in a new issue