Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 17:05:43 -04:00
Code Issues Releases Wiki Activity

Attempt at using an Amazon Lex robot

Browse source
This commit is contained in:
Ryan Voots 2017-12-02 12:39:27 -05:00
parent 86d823af38
commit efd9f86162
1 changed files with 40 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
plugins/chatbot.pm Normal file
View file

@ -0,0 +1,40 @@
use strict;
use warnings;
use Data::Dumper;
use JSON;
use Paws;
use Paws::Credential::Explicit;
my $creds = Paws::Credential::Explicit->new(access_key => '', secret_key => '');
my $paws = Paws->new(config => {credentials => $creds, region => 'us-east-1'});
my $cognito = $paws->service("CognitoIdentity");
my $pool_id = 'us-east-1:dbe1d89b-d4ed-459d-ba40-ef8f096b5e4b';
my $ident_id = $cognito->GetId(IdentityPoolId => $pool_id)->IdentityId;
#print Dumper($ident_id);
my $cresp = $cognito->GetCredentialsForIdentity(IdentityId => $ident_id)->Credentials;
my $realcreds = Paws::Credential::Explicit->new(access_key=>$cresp->AccessKeyId, secret_key=>$cresp->SecretKey, session_token=>$cresp->SessionToken);
my $service_obj = $paws->service('LexRuntime', credentials => $realcreds, region=>'us-east-1');
return sub {
my( $said ) = @_;
my $body = $said->{body};
my $userid = $said->{server}.$said->{channel}.$said->{nick};
$userid =~ s/\W/_/g; # hide any non word chars
my $resp = $service_obj->PostText(BotName=>'BookTrip', BotAlias=>'perlbot',InputText=>$body,UserId=>$userid);
use JSON::MaybeXS;
my $json = JSON->new();
printf "%s : %s\n", $resp->Message, $json->encode(\%{$resp->Slots->Map});
};
__END__
__DATA__
chatbot <text> - Screw around with simcop2387's Amazon lex project