dataset/seed/lemonldap/templates/wget.pl

10 lines
253 B
Perl
Raw Normal View History

2023-06-23 08:12:05 +02:00
#!/usr/bin/env perl
use HTTP::Tiny;
2023-06-23 08:12:05 +02:00
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";