<?php
##############################################################
##In-portal													##
##############################################################
##					      In-portal							##
##					Intechnic Corporation					##
##			   All Rights Reserved, 1998-2002				##
##															##
##	No portion of this code may be copied, reproduced or	##
##	   otherwise redistributed without proper written		##
##	  consent of Intechnic Corporation.  Violation will		##
##	   result in revocation of the license and support		##
##	 privileges along maximum prosecution allowed by law.	##
##############################################################

	// new startup: begin
	define('REL_PATH', 'in-link');
	$relation_level = count( explode('/', REL_PATH) );
	define('FULL_PATH', realpath(dirname(__FILE__) . str_repeat('/..', $relation_level) ) );
	$FrontEnd = 1;
	require_once FULL_PATH.'/kernel/startup.php';
	// new startup: end

	$id = GetVar('linkid');
	if (!$id) {
		$application =& kApplication::Instance();
		$application->ApplicationDie('error: no link id specified');
	}

	$link = new clsLink($id);

	$link->debuglevel = 0;
	$link->ClearCacheData();
	$link->Increment("hits", true);
	$url =  $link->Get("Url");

//	$protocol = 'http';

	if (preg_match('/^(http|ftp|mailto:)(.*)/U', $url)) {
		header('Location: '.$url);
	}
	else {
		header('Location: http://'.$url);
	}

	exit;
?>