From f45d2a22db37a11443d89e7bf30f474db34b5f0f Mon Sep 17 00:00:00 2001
From: Andrew Savory <git@andrewsavory.com>
Date: Sat, 11 Feb 2012 00:49:55 +0000
Subject: [PATCH] SSL client certificate test script

---
 Scripts/ssl_test.pl | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 Scripts/ssl_test.pl

diff --git a/Scripts/ssl_test.pl b/Scripts/ssl_test.pl
new file mode 100644
index 0000000..256c4dd
--- /dev/null
+++ b/Scripts/ssl_test.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl -w
+#
+# Check to see if a resource is programmatically available when a client-side SSL certificate is required.
+use LWP::UserAgent;
+use Data::Dumper qw(Dumper);
+
+my $user = 'YOUR_USER_EMAIL';
+my $pass = 'YOUR_USER_PASS';
+my $url = 'https://YOUR_RESOURCE/';
+
+$ENV{HTTPS_PKCS12_FILE} = '/path/to/YOUR_CERTIFICATE.p12';
+$ENV{HTTPS_PKCS12_PASSWORD} = 'YOUR_CERTIFICATE_PASS';
+
+my $ua = LWP::UserAgent->new;
+#$ua->credentials("YOUR_RESOURCE:443",$user, $pass);
+#my $res = $ua->get('https://YOUR_RESOURCE/');
+my $req = HTTP::Request->new(GET => $url);
+$req->authorization_basic($user,$pass);
+my $res = $ua->request($req);
+
+if ($res->is_success) {
+	print $res->decoded_content;
+} else {
+	die $res->status_line;
+}
+#print $res->content, "\n";
+#print Dumper($res);
+
+__END__