HTTPS/Authenticated: Difference between revisions
Content added Content deleted
mNo edit summary |
Thundergnat (talk | contribs) (→{{header|Perl6}}: Add Perl6 example) |
||
Line 246: | Line 246: | ||
'.persistent' => 'y', # tick checkbox |
'.persistent' => 'y', # tick checkbox |
||
});</lang> |
});</lang> |
||
=={{header|Perl 6}}== |
|||
{{works with|Rakudo|2017.09}} |
|||
Used here to connect to my local wireless router to a page that is password protected. Obviously not going to be generally publicly accessible but should be easily adaptable to other sites / devices. |
|||
<lang perl6>use HTTP::UserAgent; |
|||
my $username = 'username'; # my username |
|||
my $password = 'password'; # my password |
|||
my $address = 'http://192.168.1.1/Status_Router.asp'; # my local wireless router |
|||
my $ua = HTTP::UserAgent.new; |
|||
$ua.auth( $username, $password ); |
|||
my $response = $ua.get: $address; |
|||
say $response.is-success ?? $response.content !! $response.status-line;</lang> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |