CODI

<?php
session_start();
$link=mysql_pconnect('','pame','pame');
if ($link){
	mysql_select_db("basepame",$link);
	$ahora = time();
	//borrando los registros de las conexiones inactivas ( 25 minutos ) para accesos a la pagina web y revista
	$limite = $ahora-25*60;
	$sql="DELETE FROM conexion WHERE fecha <".$limite;
	mysql_query($sql,$link);
	if ($via=='intranet'){//borrando las conexiones inactivas ( 20 minutos ) y expulsado de la Intranet
		$idnavegar= session_id(); 
		$limiteintra = $ahora-20*60;
		$sql="SELECT fecha FROM conexion WHERE idnavegar ='$idnavegar'";
		$result=mysql_query($sql,$link);
		if (mysql_num_rows($result)!=0) {
			$row=mysql_fetch_row($result);
			$ultima=$row[0];
			if ($ultima<$limiteintra) {
				$_SESSION['acceso'] = 'EXPULSADO';
				header("Location: index.php");
				exit();
			}
		}	
	}
	//Capturo la idnavegar y verifico si tiene una sesion ya iniciada
	$idnavegar= session_id(); 
	$sql="SELECT * FROM conexion WHERE idnavegar ='$idnavegar'";
	$result=mysql_query($sql,$link);
	if (mysql_num_rows($result)!=0) { 
		$row=mysql_fetch_row($result);
		//Si ha sido expulsado le damos de baja conexion y le enviamos a index.php
		if ($row[3]=='expulsar'){
			$sql="DELETE FROM conexion WHERE idnavegar='$idnavegar'";
			mysql_query($sql,$link);
			$_SESSION['acceso'] = 'EXPULSADO';
			header("Location: index.php");
			exit();						
		}
		//.. la hora 
		$sql="UPDATE conexion SET fecha='$ahora', acceso='$via', nombre='$usuario' WHERE idnavegar='$row[4]'";	
		mysql_query($sql,$link);
	} else { //Si la sesion es nueva la damos de alta en las tablas conexion
		$ip = $REMOTE_ADDR;
		$extip=substr($ip,0,3);
		if (($extip=="192") OR ($extip=="127")){ $desde ="interior";}
		else { $desde="exterior"; }
		$sql="INSERT INTO conexion (idnavegar, fecha, fechainicial, acceso, ip) VALUES ('$idnavegar','$ahora','$ahora','$via','$ip')"; //si no existe lo damos de alta en la tabla de conexiones activas
		mysql_query($sql,$link);
	}
	//Numero de conexion simultaneas para un acceso: revista o pagina web
	$sql="SELECT idnavegar FROM conexion WHERE acceso='$via'";
	$result=mysql_query($sql,$link);
	$usuarios=mysql_num_rows($result);
	//Numero de conexiones simultaneas a todo el entorno
	$sql="SELECT idnavegar FROM conexion";
	$result=mysql_query($sql,$link);
	$simulta=mysql_num_rows($result);	
}
?>