Add URL to Del.icio.us via HTTPS API

Add a new URL to del.icio.us.

Download Chilkat Perl Module

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;
}

#  del.icio.us uses HTTP-Auth, which means you only need
#  to set your login/password here:
$http->put_Login("chilkatsoft");
$http->put_Password("MyPassword");

#  Create a request and add the info:
$req = new chilkat::CkHttpRequest();
$req->AddParam("url","http://www.chilkatsoft.com/");
$req->AddParam("description","Chilkat Software, Inc.");
$req->AddParam("tags","chilkat components activex library software");

#  There are other optional params that can be added,
#  but we'll skip those.  More information is at:
#  http://del.icio.us/help/api/posts

#  Indicate the HTTP method desired (POST or GET)
$req->UseGet();

#  The path is: /v1/posts/add
$req->put_Path("/v1/posts/add");

#  Notice that the URL is this:
#  https://api.del.icio.us/v1/posts/add?....
# 
#  The domain = api.del.icio.us
#  We're using HTTPS, so the port = 443, and we set the SSL argument to true (below)
#  The "path" part of the URL is "/v1/posts/add"

#  Send the HTTPS GET and get the response.  Note: This is a blocking call.
#  The method does not return until the full HTTPS response is received.

$domain = "api.del.icio.us";
$port = 443;
$ssl = 1;

$resp = $http->SynchronousRequest($domain,$port,$ssl,$req);
if ($resp eq null ) {
    print $http->lastErrorText() . "\r\n";
}
else {
    #  Check the XML returned:
    #  We should have a <result code="done" />
    print $resp->bodyStr() . "\r\n";
}