Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

This node falls below the community's threshold of quality. You may see it by logging in.
  • Comment on How to by-pass self-signed certificate warning

Replies are listed 'Best First'.
Re: How to by-pass self-signed certificate warning
by GrandFather (Saint) on Mar 23, 2010 at 19:40 UTC

    Rework the the code you are having trouble with to a small self contained runable sample and show us that. We only want to see about 20 lines of code.

    True laziness is hard work
[reply]
      Running this, I get a 501 return code. I'm assuming it's because of the Cert warning. I go to the URL from a browser, Click the continue, and get the file displayed. 
      #!/usr/bin/perl -w

use strict;
use Algorithm::Diff qw(diff);
use File::Copy;
use LWP::Simple;

#Global variable declaration (if any used)
my ($addprinter, $zebra, $file1, $file2, $diffs, $date, $subject, $add
+ress, @f1, @f2);

#Printer script paths
$addprinter = "/cachesys41/scripts/addprinter.plx";
$zebra = "/cachesys41/scripts/zebra.plx";

#Must chomp date or regexp substitution returns wrong value
chomp ($date = `date`);
$date =~ (s/ \d\d:\d\d:\d\d CDT//);


#Get printers from CUPS (LWP / 'getstore()' method)
my $rc = getstore ("http://my.fqdn.com/txt", "/tmp/txt");

die "error  $rc";

      [download]
[reply]
[d/l]
        use LWP::Simple qw' $ua ';
$ua->add_handler("request_send",  sub { shift->dump; return });
$ua->add_handler("response_done", sub { shift->dump; return });

        [download]
[reply]
[d/l]
      how about "install Mozilla::CA" in cpan command, or use environment variable PERL_LWP_SSL_CA_FILE ?
[reply]
Re: How to by-pass self-signed certificate warning
by Corion (Patriarch) on Mar 23, 2010 at 19:06 UTC

    So, do you use Perl?

[reply]

Back to Seekers of Perl Wisdom