#! /usr/bin/perl

###
### listusers - will list all the users by username, fullname and role
###
### by kirk waingrow
###
@users = readpipe '/opt/splunk/bin/splunk list user -auth "admin:admin"';
foreach $i (@users) 
{ 
 @bits = split(/\s+/, $i);
 if ( $bits[0] =~ "username:" ) {  print "$bits[1],"; }
 if ( $bits[0] =~ "full-name:" ) {  print "$bits[1] $bits[2],"; }
 if ( $bits[0] =~ "role:" ) {  print "$bits[1]\n",; }
}