[patch] ocurl-0.1.6-curlpasswd.patch

ocurl-0.1.6-curlpasswd.patch (text/plain), 1.82 KB, created by Daniel Black (RETIRED) on 2007-04-17 12:23:55 UTC

--- ocurl-0.1.6/curl-helper.c.orig	2007-04-17 21:40:05.000000000 +1000
+++ ocurl-0.1.6/curl-helper.c	2007-04-17 21:41:03.000000000 +1000
@@ -231,7 +231,6 @@
 static void handleSSLVerifyPeer(Connection *, value);
 static void handleCAInfo(Connection *, value);
 static void handleCAPath(Connection *, value);
-static void handlePasswdFunction(Connection *, value);
 static void handleFileTime(Connection *, value);
 static void handleMaxRedirs(Connection *, value);
 static void handleMaxConnects(Connection *, value);
@@ -322,7 +321,6 @@
      {handleSSLVerifyPeer, "CURLOPT_SSLVERIFYPEER", CURLOPT_SSL_VERIFYPEER},
      {handleCAInfo, "CURLOPT_CAINFO", CURLOPT_CAINFO},
      {handleCAPath, "CURLOPT_CAPATH", CURLOPT_CAPATH},
-     {handlePasswdFunction, "CURLOPT_PASSWDFUNCTION", CURLOPT_PASSWDFUNCTION},
      {handleFileTime, "CURLOPT_FILETIME", CURLOPT_FILETIME},
      {handleMaxRedirs, "CURLOPT_MAXREDIRS", CURLOPT_MAXREDIRS},
      {handleMaxConnects, "CURLOPT_MAXCONNECTS", CURLOPT_MAXCONNECTS},
@@ -2427,29 +2425,6 @@
           raiseError(conn, result);
 }
 
-static void handlePasswdFunction(Connection *conn, value option)
-{
-     CURLcode result = CURLE_OK;
-
-     if (Tag_val(option) == Closure_tag)
-          conn->ocamlPasswdCallback = option;
-     else
-          failwith("Not a proper closure");
-
-     result = curl_easy_setopt(conn->connection,
-                               CURLOPT_PASSWDFUNCTION,
-                               passwdFunction);
-     if (result != CURLE_OK)
-          raiseError(conn, result);
-
-     result = curl_easy_setopt(conn->connection,
-                               CURLOPT_PASSWDDATA,
-                               conn);
-
-     if (result != CURLE_OK)
-          raiseError(conn, result);
-}
-
 static void handleFileTime(Connection *conn, value option)
 {
      CURLcode result = CURLE_OK;