[ic] get-url & https

[marco]

On 29/12/18 16:56, marco wrote:
> On 29/12/18 13:50, Stefan Hornburg (Racke) wrote:
>> On 12/29/18 10:20 AM, marco wrote:
>>> last 2018 acid drops ... ;-)
>>> inside a https ic page with tag [get-url] i need to call a cgi bash 
>>> script using https:
>>>
>>> [get-url
>>>    method="POST"
>>>    url="https://host/cgi-bin/test.cgi"
>>>    content_type="multipart/form-data"
>>>    useragent="@@MV_PAGE@@/1.0"
>>>    scratch="ret"
>>>    form=
>>>    |
>>>      par1=value1
>>>      end='\n\r'
>>>    |
>>> ]
>>>
>>> but ic enviro answer in this way:
>>> #Failed - 501 Protocol scheme 'https' is not supported 
>>> (LWP::Protocol::https not installed)
>>>
>>> try to install with:
>>> sudo cpan install LWP::Protocol::https
>>> with identical issue.
>>>
>>> maybe ic protected enviro dont see installed https ?
>>>
>>> thanks
>>> marco
>>>
>>
>> Yes, it looks like the module is not in the search path of 
>> Interchange. Do you use the system perl
>> for Interchange?
>>
>> Regards
>>           Racke
>>
> 
> yes racke i think so,
> system perl v5.24.1 /usr/share/perl and perl5 dirs
> Debian GNU/Linux 9 vmlinuz-4.9.0-8-amd64
> Interchange V5.10.0
> mysql 5.1.73-1 on a separate host
> 
solved
------ perl lib install  -------
cpan install LWP::Protocol::https
# manually copy perl files of LWP::Protocol::https in system perl5 lib
# why ?
# solve error "cannot verify hostname"
cpan install IO::Socket::SSL

#good check existing https lib
$ perl -de1
use LWP::Protocol::https;

------ good check https perl call: ret 200 ok -----
#!/usr/bin/perl -l

use strict;
use warnings;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new(
     ssl_opts => { verify_hostname => 0 },
     protocols_allowed => ['https'],
);

my $req = HTTP::Request->new(
     GET => 'https://google.com',
);

my $res = $ua->request($req);
print $res->code;


-- 
"fino alla bara sinpara"
"up to demise we rize"