use strict;
use warnings;
use Plack::Middleware;
use Plack::Middleware::OAuth;
use Plack::Middleware::OAuth::dev;
use URI;
use LWP::UserAgent;
use Plack::Builder;
use Plack::Middleware;
use Authen::Simple::ActiveDirectory;
use Log::Log4perl;
builder {enable 'OAuth', 
	 on_success => => sub {
	   my ($self,$token) = @_;
	   
	   my $userinfo = Plack::Middleware::OAuth::UserInfo->new( config => $self->config , token => $token );
	   
	     if( $token->is_provider('Dev') ) {
                    my $info = $userinfo->ask( $token->provider );
                    return $self->to_yaml( $info );
                }
				return $self->render( 'Error' );
	 },
providers => { 'Dev' => {  client_id     => 'xxxxxxxxxxxxxxxxxxx',
			client_secret => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'
			}, 
			};
webapp->to_app;

};