A-M baby

Task/HTTPS-Client-authenticated/0DESCRIPTION

@@ -0,0 +1,3 @@
+Demonstrate how to connect to a web server over HTTPS where that server requires that the client present a certificate to prove who (s)he is. Unlike with the [[HTTPS request with authentication]] task, it is ''not'' acceptable to perform the authentication by a username/password or a set cookie.
+
+This task is in general useful for use with [[Creating a SOAP Client|webservice client]]s as it offers a high level of assurance that the client is an acceptable counterparty for the server. For example, [http://aws.amazon.com/ Amazon Web Services] uses this style of authentication.

Task/HTTPS-Client-authenticated/1META.yaml

@@ -0,0 +1,4 @@
+---
+category:
+- Networking and Web Interaction
+note: Programming environment operations

Task/HTTPS-Client-authenticated/Mathematica/https-client-authenticated.mathematica

@@ -0,0 +1,2 @@
+a = RunThrough["curl -E myCert.pem https://www.example.com", 1]
+For[ i=0, i < Length[a] , i++, SomeFunction[a]]

Task/HTTPS-Client-authenticated/PicoLisp/https-client-authenticated.l

@@ -0,0 +1,3 @@
+(in '(curl "-E" "myCert.pem" "https://www.example.com")
+   (while (line)
+      (doSomeProcessingWithLine @) ) )

Task/HTTPS-Client-authenticated/Tcl/https-client-authenticated.tcl

@@ -0,0 +1,16 @@
+package require http
+package require tls
+
+set cert myCert.p12
+http::register https 443 [list \
+    ::tls::socket -certfile $cert -password getPass]
+proc getPass {} {
+    return "myPassword";  # Just a noddy example...
+}
+
+# Make a secure authenticated connection
+set token [http::geturl https://verysecure.example.com/]
+
+# Now as for conventional use of the “http” package
+set data [http::data $token]
+http::cleanup $token