<?
# Module: s
# s-extended.inc - Extended Shared functions
# Derechos Reservados (c) 2000-2003 Sandino Araico Sánchez
# Derechos Reservados (c) 2002-2003 Presidencia de la República
# Copyright (c) 2000-2003 Sandino Araico Sánchez All rights reserved

/*
 * --COMIENZA LICENCIA EN ESPAÑOL MEXICANO-------------------------------------
 * Por éste medio se otroga permiso, libre de cargo, a cualquier persona que
 * obtenga una copia de este software y archivos de documentación asociados
 * (el "Software"), a utilizar el Software sin restricción, incluyendo sin 
 * limitación los derechos de usar, copiar, modificar, unir, publicar, 
 * distribuir y/o vender copias de el Software, y permitir lo mismo a personas 
 * a quienes les sea entregado el software, siempre y cuando los avisos de 
 * Derechos reservados y Copyright que aparecen arriba y éste permiso (en 
 * español y en inglés) aparezcan en todas las copias de el Software y que 
 * tanto los avisos de Derechos reservados y Copyright que aparecen arriba como
 * éste permiso (en español y en inglés) aparezcan en la documentación de
 * soporte.
 *
 * ESTE SOFTWARE SE PROVEE "TAL CUAL", SIN NINGUNA GARANTÍA DE NINGÚN TIPO,
 * EXPRESA O IMPLÍCITA, INCLUYENDO PERO NO LIMITÁNDOSE A LAS GARANTÍAS DE
 * MERCANTIBILIDAD, ADECUACIÓN PARA UN PROPÓSITO EN PARTICULAR Y NO 
 * INFRACCIÓN DE LOS DERECHOS DE TERCERAS PARTES. EN NINGÚN MOMENTO EL O LOS 
 * TITULARES DE LOS DERECHOS DE AUTOR Y COPYRIGHT INCLUIDOS EN ESTE AVISO SERÁN
 * RESPONSABLES POR CUALQUIER RECLAMACIÓN O POR CUALQUIER DAÑO ESPECIAL,
 * INDIRECTO O CONSECUENTE, O CUALQUIER DAÑO QUE RESULTE DE LA PÉRDIDA DE USO,
 * DATOS O GANANCIAS, YA SEA EN UNA ACCIÓN DE CONTRATO, NEGLIGENCIA U OTRA 
 * ACCIÓN TORTUORIA, RESULTANTE DE O EN CONEXIÓN CON EL USO O DESEMPEÑO DE
 * ESTE SOFTWARE.
 *
 * Excepto que se incluya en éste aviso, no se debe usar el nombre de ningún 
 * titular de Derechos de autor o Copyright en publicidad o de otra manera 
 * psra promover la venta, uso u otros tratos en este Software sin previa 
 * autorización por escrito del titular de Derechos de autor o Copyright.
 * --TERMINA LICENCIA----------------------------------------------------------
 *
 * --BEGIN LICENSE IN US ENGLISH-----------------------------------------------
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the
 * "Software"), to deal in the Software without restriction, including
 * without limitation the rights to use, copy, modify, merge, publish,
 * distribute, and/or sell copies of the Software, and to permit persons
 * to whom the Software is furnished to do so, provided that the above
 * copyright and "Derechos reservados" notices and this permission notice  
 * (in spanish and english) appear in all copies of the Software and that both 
 * the above copyright and "Derechos reservados" notices and this permission 
 * notice (in spanish and english) appear in supporting documentation.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT
 * OF THIRD PARTY RIGHTS. IN NO EVENT SHALL THE COPYRIGHT AND "DERECHOS DE 
 * AUTOR" HOLDER OR HOLDERS INCLUDED IN THIS NOTICE BE LIABLE FOR ANY CLAIM, OR 
 * ANY SPECIAL INDIRECT OR CONSEQUENTIAL DAMAGES, OR ANY DAMAGES WHATSOEVER 
 * RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF 
 * CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN 
 * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 * 
 * Except as contained in this notice, the name of a copyright or "Derechos de
 * autor" holder shall not be used in advertising or otherwise to promote the
 * sale, use or other dealings in this Software without prior written 
 * authorization of the copyright or "Derechos de autor" holder.
 * --END LICENSE---------------------------------------------------------------
 */

# Changelog: 
# 2000-09-09 Sandino Araico Sánchez - Simple Misc Functions 
# 2001-02-21 Sandino Araico Sánchez - tiempo en segundos con microsegundos
# 2001-09-17 Sandino Araico Sánchez - s-true() y s-false()
# 2001-12-11 Sandino Araico Sánchez - s_time_0, s_time_1 y s_time_delta
# 2002-01-05 Sandino Araico Sánchez - s_rand_pw()
# 2002-01-29 Sandino Araico Sánchez - s_fopen()
# 2002-03-14 Sandino Araico Sánchez - s_check_dir()
# 2002-07-22 Sandino Araico Sánchez - improved s_rand_pw()
# 2002-02-02 Sandino Araico Sánchez - Now 's' means shared.

if(!defined("__S__EXTENDED"))
{
define ("__S__EXTENDED",1);
#---------------------------------------------------------------------
//Parametros
#---------------------------------------------------------------------

// Esta función es necesaria para no hacer nada
function s_null(){}

// Tomada del manual de PHP http://www.php.net/manual/en/function.microtime.php
function s_time()
{
	return doubleval(ereg_replace('^0\.([0-9]*) ([0-9]*)$','\\2.\\1',microtime()));

}

function s_time_0()
{ 
	if(!defined('__HOPP_TIME_0_'))
		define('__HOPP_TIME_0_',s_time());
}

function s_time_1()
{ 
	if(!defined('__HOPP_TIME_1_'))
		define('__HOPP_TIME_1_',s_time());
}

function s_time_delta()
{
#	s_log('__HOPP_TIME_0_: '.__HOPP_TIME_0_."\t".'__HOPP_TIME_1_: '.__HOPP_TIME_1_);
	if(!defined('__HOPP_TIME_0_'))
		return;
	if(!defined('__HOPP_TIME_1_'))
		s_time_1();
	return (__HOPP_TIME_1_ - __HOPP_TIME_0_);
}

function s_time_delta_html_comment()
{
	$var='<!-- '.s_time_delta().' -->';
	s_log($var);
	return $var;
}

function s_true()
{
	return 1;
}

function s_false()
{
	return 0;
}

function s_rand_pw($PW_LEN=32)
{
	return substr(base64_encode(s_rand_pw_md5()),0,$PW_LEN);
}

function s_rand_pw_md5($PW_LEN=32)
{
	if(!defined('__S__RAND_SEED__'))
	{
		define('__S__RAND_SEED__',1);
		srand(s_time());
	}
	if($PW_LEN>32)
		return md5(rand()).s_rand_pw_md5($PW_LEN-32);
	return substr(md5(rand()),0,$PW_LEN);
}

function s_fopen($file_name, $mode)
{
	if(!file_exists($file_name))
		return;
	$file=fopen($file_name,$mode);
	return $file;
}

function s_check_dir($dirname, $mode=0700)
{
	s_log("dirname: $dirname");
	if(empty($dirname)||($dirname=='/'))
		return 0;
	if(file_exists($dirname))
		return is_dir($dirname);
	if(s_check_dir(dirname($dirname)))	
		return mkdir($dirname, $mode);
	return 0;
}

function s_is_int($str)
{
	$var=intval($str);
	return ($str==$var);
}

#---------------------------------------------------------------------
} //__S__EXTENDED

?>