[bitly] at tagSwap.net: Open Source Lasso Code

[bitly]

Description

Link: [bitly]

Author: Jason Huck

Category: Utility

Version: 8.5.x

License: Public Domain

Posted: Jul. 01, 2009

Updated: Jan. 01, 0001

More by this author...

This is a simple wrapper for the bit.ly URL shortener. Bit.ly offers tracking and stats on shortened URLs. Requires a bit.ly account and API key. Use the method name as a member tag and the method's arguments as keywords to the tag. Be sure to match the case shown in the documentation as the API is case-sensitive. Requires [decode_json] or [xml_tree] depending on the output format specified.

Parameters

none

Sample Usage

// NOTE: parameters are case sensitive! That means -apiKey will work but -apikey won't!
var('bit') = bitly(
	-login='xxxxxxx',
	-apiKey='xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'
);

// shorten a URL
$bit->shorten( -longUrl='http://code.google.com/p/bitly-api/wiki/ApiDocumentation');

// undocumented way to create custom short urls, i.e. this would create http://bit.ly/myshorturl
$bit->shorten( -longUrl='http://code.google.com/p/bitly-api/wiki/ApiDocumentation', -keyword='myshorturl');

// expand a short URL, takes either the full URL or just the hash
$bit->expand( -hash='r3lsS');
$bit->expand( -shortUrl='http://bit.ly/r3lsS');

// get info on a short URL
$bit->info( -hash='r3lsS');

// use a comma separated list of keys to limit the info returned
$bit->info( -shortUrl='http://bit.ly/r3lsS', -keys='thumbnail');

// get stats on a short URL
$bit->stats( -hash='r3lsS');
$bit->stats( -shortUrl='http://bit.ly/r3lsS');

// show a list of error messages and codes
$bit->errors;

Source Code

Click the "Download" button below to retrieve a copy of this tag, including the complete documentation and sample usage shown on this page. Place the downloaded ".inc" file in your LassoStartup folder, restart Lasso, and you can begin using this tag immediately.

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

define_type(
	'bitly',
	-prototype,
	-description='Wrapper for the bit.ly URL shortener API.'
);
	local(
		'login' = string,
		'apiKey' = string,
		'version' = '2.0.1',
		'format' = 'json', // options: json, xml, text
		'history' = 1
	);
	
	define_tag(
		'oncreate',
		-req='login',
		-req='apiKey',
		-opt='format',
		-opt='history'
	);
		self->'login' = #login;
		self->'apiKey' = #apiKey;
		local_defined('format') ? self->'format' = #format;
		local_defined('history') ? self->'history' = #history;
	/define_tag;
	
	define_tag(
		'send',
		-req='method',
		-req='params', -type='array',
		-encodenone
	);
		local('getparams') = array(
			'login' = self->'login',
			'apiKey' = self->'apiKey',
			'version' = self->'version',
			'format' = self->'format',
			'history' = self->'history'
		);
		
		#getparams->merge(#params);			
		local('response') = string;
		
		protect;
			#response = string(include_url(
				'http://api.bit.ly/' + #method,
				-getparams=#getparams,
				-connecttimeout=15,
				-timeout=15
			));
			
			handle_error;
				return(map('errorCode' = error_code, 'errorMessage' = error_msg));
			/handle_error;
		/protect;
		
		if(self->'format' == 'json');
			#response = decode_json(#response);
		else;
			#response = xml_tree(#response);
		/if;
		
		return(#response);
	/define_tag;
	
	define_tag('_unknowntag');
		local('params') = array;
		
		iterate(params, local('i'));
			#params->insert(string(#i->first)->removeleading('-')& = #i->second);
		/iterate;
	
		return(self->send(tag_name, #params));
	/define_tag;
/define_type;

Related Tags

[xml_tree]

Comments