My Perl is incredibly rusty, however I have written a quick script:
#!/usr/bin/perl
use warnings;
use diagnostics;
use strict;
use IO::Socket::SSL qw(debug4);
my $client = IO::Socket::SSL->new("www.bbc.co.uk:443");
if (defined $client) {
print $client "GET / HTTP/1.0\r\n\r\n";
print <$client>;
close $client;
} else {
warn "I encountered a problem: ",
IO::Socket::SSL::errstr();
}
which returns:
I encountered a problem: IO::Socket::INET6 configuration
failederror:00000000:lib(0):func(0):reason(0) at perltest line 15.
If I try the same script but with "www.google.com:443" instead of
"www.bbc.co.uk:443" it works fine.
If I try the same in php on the same machine it works fine:
<?php
print
file_get_contents("http://www.bbc.co.uk/programmes/m0005mjn/playlist.json";);
?>
I thought Perl and php both use openSSL, so the pathway should be the
same, but obviously "www.bbc.co.uk:443" has a problem with the way the
Perl call works.
The version of perl is v5.10.1
Does anyone have any pointers as to what I might need to do to resolve
this?
Thanks for your help.
------------------------------------------------------------------------
zmpo's Profile: http://forums.slimdevices.com/member.php?userid=63547
View this thread: http://forums.slimdevices.com/showthread.php?t=109826
_______________________________________________
plugins mailing list
plugins@lists.slimdevices.com
http://lists.slimdevices.com/mailman/listinfo/plugins
