<?
# Module: S
# s-include.inc Copyright (C) 2000-2001 Sandino Araico Sánchez
/* --LICENSE IN US ENGLISH----------------------------------------------------- 
 * "THE BEER-WARE LICENSE" (Revision 42-sandino-3): 
 * Sandino Araico Sánchez <sandino@sandino.net> wrote this file. 
 * As long as you retain this notice you can do whatever you want with this 
 * software. If we meet some day, and you think this stuff is worth it, you can 
 * buy me a beer in return. 
 * Sandino Araico Sánchez 
 * --END LICENSE---------------------------------------------------------------
 * --LICENCIA EN ESPAÑOL MEXICANO----------------------------------------------
 * "LA LICENCIA BEER-WARE" (traducción al español de la revisión 42-sandino-3):
 * Sandino Araico Sánchez <sandino@sandino.net> escribió éste archivo.
 * Siempre y cuando usted retenga éste aviso (en español y en inglés) usted
 * puede hacer cualquier cosa con éste software. Si algún día nos encontramos y 
 * usted piensa que éste software vale la pena, usted puede invitarme una 
 * cerveza en recompensa.
 * Sandino Araico Sánchez
 * --FIN DE LICENCIA-----------------------------------------------------------
 */
 
# Changelog: 
# 2000-09-14 Sandino Araico Sánchez - Include Functions 
# 2002-03-14 Sandino Araico Sánchez - Use fopen with include_path flag test
# 2002-03-19 Sandino Araico Sánchez - Fixed problem with filesize()

if(!defined("__SIMPLE_INCLUDE"))
{
define ("__SIMPLE_INCLUDE",1);
#---------------------------------------------------------------------
include __HOPP_INCLUDE_PATH."s/s-log.inc";
#---------------------------------------------------------------------
function s_include($file)
{
	if (!file_exists($file))
	{
		$file_ptr=fopen($file,'r',1);
		if(empty($file_pt))
			return 0;
		else
			fclose($file_ptr);
	}
	
	s_log("File $file exists with correct size");
	include $file;
	return 1;
}

#---------------------------------------------------------------------
} //__SIMPLE_INCLUDE

?>