in reply to Re: How to by-pass self-signed certificate warning
in thread How to by-pass self-signed certificate warning

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]

Replies are listed 'Best First'.
Re^3: How to by-pass self-signed certificate warning
by Anonymous Monk on Mar 23, 2010 at 20:59 UTC 
    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]
      I get this: 
      Can't locate object method "add_handler" via package "LWP::UserAgent"

      [download]
[reply]
[d/l]
[reply]

In Section Seekers of Perl Wisdom