September 2017 Update

Task/HTTPS-Client-authenticated/Perl/https-client-authenticated.pl

@@ -0,0 +1,22 @@
+#!/usr/bin/env perl -T
+use 5.018_002;
+use warnings;
+use LWP;
+
+our $VERSION = 1.000_000;
+
+my $ua = LWP::UserAgent->new(
+    ssl_opts => {
+        SSL_cert_file   => 'certificate.pem',
+        SSL_key_file    => 'key.pem',
+        verify_hostname => 1,
+    }
+);
+my $req = HTTP::Request->new( GET => 'https://www.example.com' );
+my $res = $ua->request($req);
+if ( $res->is_success ) {
+    say $res->content;
+}
+else {
+    say $res->status_line;
+}

Task/HTTPS-Client-authenticated/Run-BASIC/https-client-authenticated.run

@@ -1,32 +0,0 @@
-html "
-<CENTER><TABLE CELLPADDING=0 CELLSPACING=0 border=1 bgcolor=wheat>
-<TR><TD colspan=2 bgcolor=tan align=center>LOGIN</TD></TR>
-<TR><TD align=right>UserName</TD><TD>"
- TEXTBOX #userName, ""
-html "</TR></TD><TR><TD align=right>Password:</TD><TD>"
-PasswordBox  #passWord, ""
-
-html "</TD></TR><TD align=center colspan=2>"
-button #si, "Signin", [doSignin]
-html "   "
-button #ex, "Exit", [exit]
-html "</TD></TR></TABLE>"
-WAIT
-
-[doSignin]
-loginUserName$    = trim$(#userName contents$())
-loginPassWord$    = trim$(#passWord contents$())
-if (loginUserName$ = "admin" and loginPassWord$ = "admin" then
-   print "Login ok"
-  else
-   print "invalid User or Pass"
-   cls
-   goto [loop]
-end if
-
-print Platform$    ' OS where Run BASIC is being hosted
-print UserInfo$    ' Information about the user's web browser
-print UserAddress$ ' IP address of the user
-
-[exit]
-end

Task/HTTPS-Client-authenticated/Zkl/https-client-authenticated.zkl

@@ -0,0 +1,3 @@
+var CURL=Import("zklCurl"), c=CURL();
+c.setOpt("SSLCERT","certFile.pem"); c.setOpt("SSLCERTTYPE","pem");
+c.get("http://zenkinetic.com");  // lame example to show how to read