Adapt OS400 SSL (qssl.h) to V5R4
authorPatrick Monnerat <Patrick.Monnerat@datasphere.ch>
Mon, 7 Apr 2008 13:09:17 +0000 (13:09 +0000)
committerPatrick Monnerat <Patrick.Monnerat@datasphere.ch>
Mon, 7 Apr 2008 13:09:17 +0000 (13:09 +0000)
Fix qssl.c wrong error message
Upgrade OS400 wrappers and makefiles to 7.18.1

lib/qssl.c
packages/OS400/ccsidcurl.c
packages/OS400/curl.inc.in
packages/OS400/initscript.sh

index ad04cc7..1568409 100644 (file)
@@ -90,7 +90,7 @@ static CURLcode Curl_qsossl_init_session(struct SessionHandle * data)
   memset((char *) &initappstr, 0, sizeof initappstr);
   initappstr.applicationID = certname;
   initappstr.applicationIDLen = strlen(certname);
-  initappstr.protocol = TLSV1_SSLV3;
+  initappstr.protocol = SSL_VERSION_CURRENT;    /* TLSV1 compat. SSLV[23]. */
   initappstr.sessionType = SSL_REGISTERED_AS_CLIENT;
   rc = SSL_Init_Application(&initappstr);
 
@@ -190,7 +190,7 @@ static CURLcode Curl_qsossl_handshake(struct connectdata * conn, int sockindex)
 
   default:
   case CURL_SSLVERSION_DEFAULT:
-    h->protocol = TLSV1_SSLV3;
+    h->protocol = SSL_VERSION_CURRENT;          /* TLSV1 compat. SSLV[23]. */
     break;
 
   case CURL_SSLVERSION_TLSv1:
@@ -228,11 +228,11 @@ static CURLcode Curl_qsossl_handshake(struct connectdata * conn, int sockindex)
     return CURLE_SSL_CERTPROBLEM;
 
   case SSL_ERROR_IO:
-    failf(data, "SSL_Handshake(): %s", SSL_Strerror(rc, NULL));
+    failf(data, "SSL_Handshake() I/O error: %s", strerror(errno));
     return CURLE_SSL_CONNECT_ERROR;
 
   default:
-    failf(data, "SSL_Init(): %s", SSL_Strerror(rc, NULL));
+    failf(data, "SSL_Handshake(): %s", SSL_Strerror(rc, NULL));
     return CURLE_SSL_CONNECT_ERROR;
   }
 
index f5ae892..17f5c85 100644 (file)
@@ -867,6 +867,12 @@ curl_formadd_ccsid(struct curl_httppost * * httppost,
 
       break;
 
+    case CURLFORM_STREAM:
+      if (!forms)
+        value = (char *) va_arg(arg, void *);
+
+      break;
+
     case CURLFORM_CONTENTTYPE:
       /* If a previous content has been encountered, convert it now. */
 
index dd6685b..eae8da6 100644 (file)
      d                 c                   X'00000010'
      d HTTPPOST_PTRBUFFER...
      d                 c                   X'00000020'
+     d HTTPPOST_CALLBACK...
+     d                 c                   X'00000040'
       *
      d CURL_READFUNC_ABORT...
      d                 c                   X'10000000'
      d                 c                   17
      d  CURLFORM_OBSOLETE2...
      d                 c                   18
+     d  CURLFORM_STREAM...
+     d                 c                   19
       *
      d CURLINFO        s             10i 0 based(######ptr######)               Enum
      d  CURLINFO_EFFECTIVE_URL...                                               CURLINFO_STRING + 1
      d  more                           *                                        curl_httppost *
      d  flags                        10i 0                                      long
      d  showfilename                   *                                        char *
+     d  userp                          *                                        void *
       *
      d curl_sockaddr   ds                  based(######ptr######)
      d                                     qualified
index b851e36..4dcbe72 100644 (file)
@@ -156,7 +156,7 @@ db2_name()
 
 {
         basename "${1}"                                                 |
-        tr '[a-z]' '[A-Z]'                                              |
+        tr '[a-z-]' '[A-Z_]'                                              |
         sed -e 's/\..*//'                                               \
             -e 's/^\(..........\).*/\1/'
 }