Changeset 30087 for trunk/base

Timestamp:

Oct 19, 2007, 12:14:15 PM (12 years ago)

Author:

afb@…

Message:

add optional --user-agent parameter to curl

File:

• trunk/base/src/pextlib1.0/curl.c (modified) (3 diffs)

trunk/base/src/pextlib1.0/curl.c

@@ -151 +151 @@
                 const char* effectiveURLVarName = NULL;
                 char* effectiveURL = NULL;
+                char* userAgent = "MacPorts libcurl/" LIBCURL_VERSION;
                 int optioncrsr;
                 int lastoption;
@@ -200 +201 @@
                                         break;                                  
                                 }
+                        } else if (strcmp(theOption, "--user-agent") == 0) {
+                                /* check we also have the parameter */
+                                if (optioncrsr < lastoption) {
+                                        optioncrsr++;
+                                        userAgent = Tcl_GetString(objv[optioncrsr]);
+                                } else {
+                                        Tcl_SetResult(interp,
+                                                "curl fetch: --user-agent option requires a parameter",
+                                                TCL_STATIC);
+                                        theResult = TCL_ERROR;
+                                        break;                                  
+                                }
                         } else {
                                 char theErrorString[512];
@@ -264 +277 @@
 
         /* -A option */
-        theCurlCode = curl_easy_setopt(theHandle, CURLOPT_USERAGENT, "MacPorts libcurl/" LIBCURL_VERSION);
+        theCurlCode = curl_easy_setopt(theHandle, CURLOPT_USERAGENT, userAgent);
         if (theCurlCode != CURLE_OK) {
             theResult = SetResultFromCurlErrorCode(interp, theCurlCode);