1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
Index: Curl.xs
===================================================================
RCS file: /home/cvs/ringlet/perl/contrib/net/WWW-Curl/Curl.xs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -r1.1.1.1 -r1.2
--- Curl.xs 20 Apr 2004 10:55:02 -0000 1.1.1.1
+++ Curl.xs 20 Apr 2004 11:17:25 -0000 1.2
@@ -66,6 +66,12 @@
} perl_curl_easy;
+#if LIBCURL_VERSION_NUM >= 0x070b01
+typedef struct {
+ struct curl_httppost * post;
+ struct curl_httppost * last;
+} perl_curl_form;
+#else
#if LIBCURL_VERSION_NUM >= 0x070900
typedef struct {
struct HttpPost * post;
@@ -77,6 +83,7 @@
void * last;
} perl_curl_form;
#endif
+#endif
/* switch from curl option codes to the relevant callback index */
static perl_curl_easy_callback_code callback_index(int option) {
@@ -101,9 +108,11 @@
return CALLBACK_PROGRESS;
break;
+#if (LIBCURL_VERSION_NUM<0x070b01)
case CURLOPT_PASSWDFUNCTION:
case CURLOPT_PASSWDDATA:
return CALLBACK_PASSWD;
+#endif
break;
}
croak("Bad callback index requested\n");
@@ -617,7 +626,9 @@
case CURLOPT_INFILE:
case CURLOPT_WRITEHEADER:
case CURLOPT_PROGRESSDATA:
+#if (LIBCURL_VERSION_NUM<0x070b01)
case CURLOPT_PASSWDDATA:
+#endif
perl_curl_easy_register_callback(self,&(self->callback_ctx[callback_index(option)]),value);
break;
@@ -626,7 +637,9 @@
case CURLOPT_READFUNCTION:
case CURLOPT_HEADERFUNCTION:
case CURLOPT_PROGRESSFUNCTION:
+#if (LIBCURL_VERSION_NUM<0x070b01)
case CURLOPT_PASSWDFUNCTION:
+#endif
perl_curl_easy_register_callback(self,&(self->callback[callback_index(option)]),value);
break;
|
