ID == - 1) {
Sin_sesion();
}
$conn->ger_entolocal($geraplibd, 'WWW_GERAPLIBD');
if ($geraplibd != '') {
$geraplibd = $geraplibd . ".dbo.";
}
$xtipobd = 1;
if (getenv('WWW_TIPOBD') == 'ORACLE') {
$xtipobd = 2;
}
if (getenv('WWW_TIPOBD') == 'DB400') {
$xtipobd = 3;
}
$cfg_bdrps = "RPS.dbo.";
//VARIABLES DE BASE DE DATOS
$gerrc = $gertxt = $cursor1 = $cursor2 = $cursor3 = $cursor4 = $error = "";
//barra roja gerapli
//-------------------------------------FIN DE CABECERAS-----------------------------------------
//Obtiene la IP del cliente
function get_client_ip() {
$ipaddress = '';
if (getenv('HTTP_CLIENT_IP'))
$ipaddress = getenv('HTTP_CLIENT_IP');
else if(getenv('HTTP_X_FORWARDED_FOR'))
$ipaddress = getenv('HTTP_X_FORWARDED_FOR');
else if(getenv('HTTP_X_FORWARDED'))
$ipaddress = getenv('HTTP_X_FORWARDED');
else if(getenv('HTTP_FORWARDED_FOR'))
$ipaddress = getenv('HTTP_FORWARDED_FOR');
else if(getenv('HTTP_FORWARDED'))
$ipaddress = getenv('HTTP_FORWARDED');
else if(getenv('REMOTE_ADDR'))
$ipaddress = getenv('REMOTE_ADDR');
else
$ipaddress = 'UNKNOWN';
return $ipaddress;
}
//-------------------------------------FUNCION DE MOSTRAR CARGAS--------------------------------
echo "";
echo "
";
echo "";
?>
';
Poner_hidden_comunes();
//-------------------------INICIO DE CONSTRUCCIÓN DE CUERPO HTML NECESARIO PARA EL PROGRAMA----------
?>