11 lines
261 B
Perl
11 lines
261 B
Perl
|
%echo "#!/usr/bin/env perl"
|
||
|
|
|
||
|
|
use HTTP::Tiny;
|
||
|
|
use JSON qw(from_json to_json);
|
||
|
|
|
||
|
|
my $response = HTTP::Tiny->new->get('https://%%domain_name_eth0/.well-known/openid-configuration');
|
||
|
|
|
||
|
|
die "Failed!\n" unless $response->{success};
|
||
|
|
|
||
|
|
printf $response->{content} . "\n";
|