Adding Cookies to an HTTP GET Request

Example showing how to add one or more cookies to an HTTP GET request.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$http = new chilkat::CkHttp();

#  Any string unlocks the component for the 1st 30-days.
$success = $http->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $http->lastErrorText() . "\n";
    exit;
}

#  The Cookie header field has this format:
#  Cookie: name1=value1 [; name2=value2] ...

#  Build an HTTP GET request:
$request = new chilkat::CkHttpRequest();
$request->SetFromUrl("http://www.example-code.com/");
$request->UseGet();

#  Add two cookies:
$request->AddHeader("Cookie","user=\"mary\"; city=\"Chicago\"");

#  Send the HTTP GET.  The cookies are sent as part of the HTTP header.

$domain = "www.example-code.com";
$port = 80;
$ssl = 0;
$response = $http->SynchronousRequest($domain,$port,$ssl,$request);
if ($response eq null ) {
    print $http->lastErrorText() . "\n";
    exit;
}

#  Display the HTML body of the response.
if ($response->get_StatusCode() == 200) {
    print $response->bodyStr() . "\r\n";
}
else {
    print "HTTP Response Status = " . $response->get_StatusCode() . "\r\n";
}