9 lines
253 B
Perl
9 lines
253 B
Perl
#!/usr/bin/env perl
|
|
|
|
use HTTP::Tiny;
|
|
|
|
my $response = HTTP::Tiny->new->get('https://{{ general.network.interface_0.domain_name_eth0 }}/.well-known/openid-configuration');
|
|
|
|
die "Failed!\n" unless $response->{success};
|
|
|
|
printf $response->{content} . "\n";
|