#!/usr/bin/env perl

use File::Basename;
my $dir = dirname(__FILE__);
require "$dir"."/lib/common.pl";
my $common="common";

my $json=$common->parse();
if(defined($json->{'info'})
  && defined($json->{'info'}->{'authenticated'})) {
  print "$json->{'userCtx'}->{'name'}\n";
  print join("\n",@{$json->{'userCtx'}->{'roles'}});
  exit(0);
}
exit(1);