diff options
| -rw-r--r-- | challenge-017/adam-russell/perl5/ch-3.pl | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/challenge-017/adam-russell/perl5/ch-3.pl b/challenge-017/adam-russell/perl5/ch-3.pl new file mode 100644 index 0000000000..8cddfa5629 --- /dev/null +++ b/challenge-017/adam-russell/perl5/ch-3.pl @@ -0,0 +1,43 @@ +use strict; +use warnings; +## +# Write a script to use Bhagavad Gita API. +## +use JSON; +use REST::Client; +use constant ACCESS_TOKEN_URL => "https://bhagavadgita.io/auth/oauth/token"; +use constant API_URL => "https://bhagavadgita.io/api/v1/chapters/CHAPTER/verses/VERSE?access_token=ACCESS_TOKEN"; + +sub get_access_token{ + my($client) = @_; + my $body = "client_id=<CLIENT_ID>&client_secret=<CLIENT_SECRET>&grant_type=client_credentials&scope=verse%20chapter"; + $$client->addHeader("accept", "application/json"); + $$client->addHeader("content-type", "application/x-www-form-urlencoded"); + $$client->POST(ACCESS_TOKEN_URL, $body); + my $json = $$client->responseContent(); + $json = decode_json($json); + return $json->{access_token}; +} + +sub get_sloka{ + my($client, $chapter, $verse, $access_token) = @_; + my $url = API_URL; + $url =~ s/CHAPTER/$chapter/; + $url =~ s/VERSE/$verse/; + $url =~ s/ACCESS_TOKEN/$access_token/; + $$client->addHeader("accept", "application/json"); + $$client->addHeader("content-type", "application/x-www-form-urlencoded"); + $$client->GET($url); + my $json = $$client->responseContent(); + $json = decode_json($json); + return $json->{meaning}; +} + +MAIN:{ + my($chapter, $verse) = @ARGV[0 .. 1]; + my $client = new REST::Client; + my $access_token = get_access_token(\$client); + my $translation = get_sloka(\$client, $chapter, $verse, $access_token); + print "$translation\n"; +} + |