Using Bit.ly for short URL’s in Flex

<?php
$ch = curl_init();
$timeout = 30;
$userAgent = $_SERVER['HTTP_USER_AGENT'];
 
curl_setopt($ch, CURLOPT_URL, $_REQUEST['url']);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, $timeout);
curl_setopt($ch, CURLOPT_USERAGENT, $userAgent);
 
$response = curl_exec($ch);
 
if (curl_errno($ch)) {
echo curl_error($ch);
} else {
curl_close($ch);
echo $response;
}
?>

<?xml version="1.0" encoding="utf-8"?>
<mx:Application layout="vertical" xmlns:mx="http://www.adobe.com/2006/mxml" viewSourceURL="srcview/index.html">
	<mx:Script>
		<![CDATA[
			import mx.rpc.http.HTTPService;
			import mx.rpc.events.ResultEvent;
			import mx.rpc.events.FaultEvent;
			import mx.controls.Alert;
 
			public function shortenURL(url:String):void {
 
				/*******************
				*	Build API REST call
				********************/
				var newURL:String = "http://bit.ly/api?url="+url;
 
				/*******************
				*	PROXY DATA FROM BIT.LY
				********************/
				var proxy:String = "proxy/proxy.php";
 
				var request:HTTPService = new HTTPService();
				request.url = proxy;
				request.method = "POST";
				request.addEventListener(FaultEvent.FAULT, handleFault);
				request.addEventListener(ResultEvent.RESULT, handleResult)
 
				/*******************
				*	Pass HTTP to PHP so that PHP could 
				*	handle the request and avoid cross domain error
				********************/
				var param:Object = new Object();
				param.url = newURL;
				request.send(param);
 
			}
 
			/*******************
			*	PLACE RESULT ACTION HERE
			********************/
			private function handleResult(e:ResultEvent):void{
		    	shortURL_txt.text = e.result.toString();
		  	}
 
			private function handleFault(e:FaultEvent):void{
		    	Alert.show(e.fault.rootCause.toString());
		  	}
 
			private function handleClick(evtObj:Event):void{
				shortenURL(url_txt.text.toString());
			}
 
		]]>
	</mx:Script>
 
	<mx:Label text="Original URL" />
	<mx:TextInput id="url_txt" text="http://blog.unthinkmedia.com" />
	<mx:Label text="Shortened URL" />
	<mx:TextInput id="shortURL_txt" />
	<mx:Button click="handleClick(event)" label="send to bit.ly" />
 
</mx:Application>