<?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. 	##
##############################################################
	
	define('REDIRECT_REQUIRED', 1);
	
	if( !(isset($pathtoroot) && $pathtoroot) )
	{
		$path=dirname(realpath(__FILE__));
		if(strlen($path))
		{
			/* determine the OS type for path parsing */
			$pos = strpos($path,":");
			if ($pos === false)
			{
				$gOS_TYPE="unix";
				$pathchar = "/";
			}
			else
			{
				$gOS_TYPE="win";
				$pathchar="\\";
			}
			$p = $path.$pathchar;
			/*Start looking for the root flag file */
			while(!strlen($pathtoroot) && strlen($p))
			{
				$sub = substr($p,strlen($pathchar)*-1);
				if($sub==$pathchar)
				{
					$filename = $p."root.flg";
				}
				else
				$filename = $p.$pathchar."root.flg";
				if(file_exists($filename))
				{
					$pathtoroot = $p;
				}
				else
				{
					$parent = realpath($p.$pathchar."..".$pathchar);
					if($parent!=$p)
					{
						$p = $parent;
					}
					else
					$p = "";
				}
			}
			if(!strlen($pathtoroot))
			$pathtoroot = ".".$pathchar;
		}
		else
		{
			$pathtoroot = ".".$pathchar;
		}
	}
	
	$sub = substr($pathtoroot,strlen($pathchar)*-1);
	if($sub!=$pathchar)
	{
		$pathtoroot = $pathtoroot.$pathchar;
	}

	require_once($pathtoroot.'kernel/startup.php');

	if( !admin_login() )
	{
		if( !headers_sent() ) setcookie('sid',' ',time() - 3600);
		$objSession->Logout();
		header("Location: ".$adminURL."/index.php?logout=1");
		exit;

	}

	/*$m = GetModuleArray();
	foreach($m as $key=>$value)
	{
	    $path = $pathtoroot.$value.'admin/include/parser.php';
	    if( file_exists($path) ) include_once($path);
	}*/

	$rootURL = 'http://'.ThisDomain().$objConfig->Get('Site_Path');
	$location = $rootURL.GetVar('do').'?env='.GetVar('env');
	header('Location: '.$location);
  	exit;
?>