lobli/Website/Include/PHP/functions.php

<?php

	require('Include/PHP/db.php');

	// Returns will be in the structure: response code seperator extra data and will be formatted client side
	/*
		Response codes:
		0 - Successful shorten
        1 - Existing link found
        2 - Dead link
        3 - Database Error
        4 - Sanitize failed
        5 - Successful lob.li link resolve
        6 - Successful lookup of non-lob.li link
        7 - Unsuccessful lookup of non-lob.li link
        8 - Lookup of link Stats (returns 8 $sep JSONarray)
	*/

	function shorten($redis, $link, $linkage, $seperator){
		$short = $redis->get("links:id:$link");
	    if($short){
	    	$title = $redis->get("links:title:$link");
	    	return "1$seperator$link$seperator$title";
	    }else{
	    	do {
	    		if(checkRemoteFile($link) !== true) return "2$seperator$link";
			    $title = getRemoteTitle($url);

			    $short = substr(number_format(time() * mt_rand(),0,'',''),0,5); 
			    $short = base_convert($short, 10, 36);

		    	if(!$redis->exists("links:id:$short")) {
		    		break; 
		    	}
		    } while (1);

		    $xTime = 3136320000; // About 100 years, give or take

		    // Delete the links in 24 hours, 1 week, 1 month respectevly 
		    if($linkage == '0') $xTime = 86400;
		    if($linkage == '1') $xTime = 604800;
		    if($linkage == '2') $xTime = 2628000;

		    $redis->setex("links:id:$short", $xTime, $link);
		    $redis->setex("links:title:$short", $xTime, $title);
		    $redis->setex("links:date:$short", $xTime, date("d/m/Y", strtotime($str)));
		    $redis->setex("tracking:clicks:$link", $xTime, 1);

		    return "0$seperator$short$seperator$title";
 	    }
	}

	function stats($redis, $seperator){
		$tracking = $redis->keys("tracking:clicks:*");
		$tracking = rsort($tracking);
		$tracking = array_slice($tracking, 0, 5, true);
		return "8$seperator".json_encode($tracking);
	}

	function getRemoteTitle($url){
		$url = parse_url($url);
		if($tags = get_meta_tags($url['scheme'].'://'.$url['host'])){
			$ret = $tags['description'];
			return $ret;
		}else{ return false; }
	}

	function checkRemoteFile($ip=null){
	    if($ip==null) return false;

	    // Setup the connection and only get the headers
	    $header[0] = "Accept: text/xml,application/xml,application/xhtml+xml,";
		$header[0] .= "text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5";
		$header[] = "Cache-Control: max-age=0";
		$header[] = "Connection: keep-alive";
		$header[] = "Keep-Alive: 300";
		$header[] = "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7";
		$header[] = "Accept-Language: en-us,en;q=0.5";
		$header[] = "Pragma: ";

	    $curlInit = curl_init($ip);
	    curl_setopt($curlInit, CURLOPT_CONNECTTIMEOUT, 10);
	    curl_setopt($curlInit, CURLOPT_HEADER, true);
	    curl_setopt($curlInit, CURLOPT_RETURNTRANSFER, true);
	    curl_setopt($curlInit, CURLOPT_USERAGENT, 'Mozilla/5.0 (compatible; UnPS-GAMATechnologies (UnPS WebQuery/4-2.9; +http://lob.li))');
	    curl_setopt($curlInit, CURLOPT_HTTPHEADER, $header);

	    $response = curl_exec($curlInit);
	    curl_close($curlInit);

	    if($response) return true;
	    return false;
	}

	function sanitize($input, $seperator){
		if ($input == null) die("4$seperator");
		$output = strip_tags($input);
		$output = stripslashes($output);
		//filter_input(INPUT_GET, 'name', FILTER_SANITIZE_STRING)
		$output = mysql_real_escape_string($output);
		return $output;
	}

?>