"; var_dump($a->user); killme();

		if (is_null($nickname))
			$nickname  = $a->user['nickname'];

		if(x($_GET,'tab'))
			$tab = notags(trim($_GET['tab']));

		$url = $a->get_baseurl() . '/profile/' . $nickname;

		$tabs = array(
			array(
				'label'=>t('Status'),
				'url' => $url,
				'sel' => ((!isset($tab)&&$a->argv[0]=='profile')?'active':''),
				'title' => t('Status Messages and Posts'),
				'id' => 'status-tab',
			),
			array(
				'label' => t('Profile'),
				'url' 	=> $url.'/?tab=profile',
				'sel'	=> ((isset($tab) && $tab=='profile')?'active':''),
				'title' => t('Profile Details'),
				'id' => 'profile-tab',
			),
			array(
				'label' => t('Photos'),
				'url'	=> $a->get_baseurl() . '/photos/' . $nickname,
				'sel'	=> ((!isset($tab)&&$a->argv[0]=='photos')?'active':''),
				'title' => t('Photo Albums'),
				'id' => 'photo-tab',
			),
			array(
				'label' => t('Videos'),
				'url'	=> $a->get_baseurl() . '/videos/' . $nickname,
				'sel'	=> ((!isset($tab)&&$a->argv[0]=='videos')?'active':''),
				'title' => t('Videos'),
				'id' => 'video-tab',
			),
		);

		if ($is_owner){
			$tabs[] = array(
				'label' => t('Events'),
				'url'	=> $a->get_baseurl() . '/events',
				'sel' 	=>((!isset($tab)&&$a->argv[0]=='events')?'active':''),
				'title' => t('Events and Calendar'),
				'id' => 'events-tab',
			);
			$tabs[] = array(
				'label' => t('Personal Notes'),
				'url'	=> $a->get_baseurl() . '/notes',
				'sel' 	=>((!isset($tab)&&$a->argv[0]=='notes')?'active':''),
				'title' => t('Only You Can See This'),
				'id' => 'notes-tab',
			);
		}


		$arr = array('is_owner' => $is_owner, 'nickname' => $nickname, 'tab' => (($tab) ? $tab : false), 'tabs' => $tabs);
		call_hooks('profile_tabs', $arr);

		$tpl = get_markup_template('common_tabs.tpl');

		return replace_macros($tpl,array('$tabs' => $arr['tabs']));
	}
}

function get_my_url() {
	if(x($_SESSION,'my_url'))
		return $_SESSION['my_url'];
	return false;
}

function zrl_init(&$a) {
	$tmp_str = get_my_url();
	if(validate_url($tmp_str)) {

		// Is it a DDoS attempt?
		// The check fetches the cached value from gprobe to reduce the load for this system
		$urlparts = parse_url($tmp_str);

		$result = Cache::get("gprobe:".$urlparts["host"]);
		if (!is_null($result)) {
			$result = unserialize($result);
			if ($result["network"] == NETWORK_FEED) {
				logger("DDoS attempt detected for ".$urlparts["host"]." by ".$_SERVER["REMOTE_ADDR"].". server data: ".print_r($_SERVER, true), LOGGER_DEBUG);
				return;
			}
		}

		proc_run('php','include/gprobe.php',bin2hex($tmp_str));
		$arr = array('zrl' => $tmp_str, 'url' => $a->cmd);
		call_hooks('zrl_init',$arr);
	}
}

function zrl($s,$force = false) {
	if(! strlen($s))
		return $s;
	if((! strpos($s,'/profile/')) && (! $force))
		return $s;
	if($force && substr($s,-1,1) !== '/')
		$s = $s . '/';
	$achar = strpos($s,'?') ? '&' : '?';
	$mine = get_my_url();
	if($mine and ! link_compare($mine,$s))
		return $s . $achar . 'zrl=' . urlencode($mine);
	return $s;
}

/**
* returns querystring as string from a mapped array
*
* @param params Array
* @return string
*/
function build_querystring($params, $name=null) {
    $ret = "";
    foreach($params as $key=>$val) {
        if(is_array($val)) {
            if($name==null) {
                $ret .= build_querystring($val, $key);
            } else {
                $ret .= build_querystring($val, $name."[$key]");
            }
        } else {
            $val = urlencode($val);
            if($name!=null) {
                $ret.=$name."[$key]"."=$val&";
            } else {
                $ret.= "$key=$val&";
            }
        }
    }
    return $ret;
}

function explode_querystring($query) {
	$arg_st = strpos($query, '?');
	if($arg_st !== false) {
		$base = substr($query, 0, $arg_st);
		$arg_st += 1;
	}
	else {
		$base = '';
		$arg_st = 0;
	}

	$args = explode('&', substr($query, $arg_st));
	foreach($args as $k=>$arg) {
		if($arg === '')
			unset($args[$k]);
	}
	$args = array_values($args);

	if(!$base) {
		$base = $args[0];
		unset($args[0]);
		$args = array_values($args);
	}

	return array(
		'base' => $base,
		'args' => $args,
	);
}

/**
* Returns the complete URL of the current page, e.g.: http(s)://something.com/network
*
* Taken from http://webcheatsheet.com/php/get_current_page_url.php
*/
function curPageURL() {
	$pageURL = 'http';
	if ($_SERVER["HTTPS"] == "on") {$pageURL .= "s";}
	$pageURL .= "://";
	if ($_SERVER["SERVER_PORT"] != "80" && $_SERVER["SERVER_PORT"] != "443") {
		$pageURL .= $_SERVER["SERVER_NAME"].":".$_SERVER["SERVER_PORT"].$_SERVER["REQUEST_URI"];
	} else {
		$pageURL .= $_SERVER["SERVER_NAME"].$_SERVER["REQUEST_URI"];
	}
	return $pageURL;
}

function random_digits($digits) {
	$rn = '';
	for($i = 0; $i < $digits; $i++) {
		$rn .= rand(0,9);
	}
	return $rn;
}

function get_cachefile($file, $writemode = true) {
	$cache = get_itemcachepath();

	if ((! $cache) || (! is_dir($cache)))
		return("");

	$subfolder = $cache."/".substr($file, 0, 2);

	$cachepath = $subfolder."/".$file;

	if ($writemode) {
		if (!is_dir($subfolder)) {
			mkdir($subfolder);
			chmod($subfolder, 0777);
		}
	}

	return($cachepath);
}

function clear_cache($basepath = "", $path = "") {
	if ($path == "") {
		$basepath = get_itemcachepath();
		$path = $basepath;
	}

	if (($path == "") OR (!is_dir($path)))
		return;

	if (substr(realpath($path), 0, strlen($basepath)) != $basepath)
		return;

	$cachetime = (int)get_config('system','itemcache_duration');
	if ($cachetime == 0)
		$cachetime = 86400;

	if (is_writable($path)){
	if ($dh = opendir($path)) {
		while (($file = readdir($dh)) !== false) {
			$fullpath = $path."/".$file;
			if ((filetype($fullpath) == "dir") and ($file != ".") and ($file != ".."))
				clear_cache($basepath, $fullpath);
			if ((filetype($fullpath) == "file") and (filectime($fullpath) < (time() - $cachetime)))
				unlink($fullpath);
		}
		closedir($dh);
	}
	}
}

function get_itemcachepath() {
	// Checking, if the cache is deactivated
	$cachetime = (int)get_config('system','itemcache_duration');
	if ($cachetime < 0)
		return "";

	$itemcache = get_config('system','itemcache');
	if (($itemcache != "") AND is_dir($itemcache) AND is_writable($itemcache))
		return($itemcache);

	$temppath = get_temppath();

	if ($temppath != "") {
		$itemcache = $temppath."/itemcache";
		if(!file_exists($itemcache) && !is_dir($itemcache)) {
			mkdir($itemcache);
		}

		if (is_dir($itemcache) AND is_writable($itemcache)) {
			set_config("system", "itemcache", $itemcache);
			return($itemcache);
		}
	}
	return "";
}

function get_lockpath() {
	$lockpath = get_config('system','lockpath');
	if (($lockpath != "") AND is_dir($lockpath) AND is_writable($lockpath))
		return($lockpath);

	$temppath = get_temppath();

	if ($temppath != "") {
		$lockpath = $temppath."/lock";
		mkdir($lockpath);

		if (is_dir($lockpath) AND is_writable($lockpath)) {
			set_config("system", "lockpath", $lockpath);
			return($lockpath);
		}
	}
	return "";
}

function get_temppath() {
	$temppath = get_config("system","temppath");
	if (($temppath != "") AND is_dir($temppath) AND is_writable($temppath))
		return($temppath);

	$temppath = sys_get_temp_dir();
	if (($temppath != "") AND is_dir($temppath) AND is_writable($temppath)) {
		set_config("system", "temppath", $temppath);
		return($temppath);
	}

	return("");
}

function set_template_engine(&$a, $engine = 'internal') {
// This function is no longer necessary, but keep it as a wrapper to the class method
// to avoid breaking themes again unnecessarily

	$a->set_template_engine($engine);
}

if(!function_exists('exif_imagetype')) {
        function exif_imagetype($file) {
                $size = getimagesize($file);
                return($size[2]);
        }
}