function basicas($datos)
{
global $PFN_paths;
$PFN_conf = (object) NULL;
$PFN_arquivos = new PFN_Arquivos($PFN_conf);
$licencia['script'] = 'data/conf/basicas.inc.php';
$licencia['descricion'] = 'Fichero de configuraciónes básicas';
$PFN_version = $datos['version'];
$texto = '<?php' . "\n";
$texto .= (include $PFN_paths['include'] . 'licencia.php');
$texto .= "\n\n" . 'defined(\'OK\') or die();' . "\n\n" . '// Este fichero se crea automaticamente, pero se pueden' . "\n" . '// variar los valores almacenados si es necesario' . "\n" . '// This file is created automatically, but you can change' . "\n" . '// the values if it\'s necessary' . "\n" . 'return array(' . "\n\t" . '\'clave\' => \'' . md5(microtime()) . '\', // Clave de encriptación / Encription key' . "\n\t" . '\'version\' => \'' . $datos['version'] . '\',' . "\n\t" . '\'estilo\' => \'' . $datos['estilo'] . '\',' . "\n\t" . '\'idioma\' => \'' . $datos['idioma'] . '\', // Language' . "\n\t" . '\'email\' => \'' . $datos['email'] . '\',' . "\n\t" . '\'gd2\' => ' . ($datos['gd2'] ? 'true' : 'false') . ', // GD2 instalado / GD2 installed' . "\n\t" . '\'zlib\' => ' . ($datos['zlib'] ? 'true' : 'false') . ', // ZLIB instalado / ZLIB installed' . "\n\t" . '\'charset\' => \'' . $datos['charset'] . '\', // Juego de caracteres / Charset' . "\n\t" . '\'envio_alertas\' => ' . ($datos['envio_alertas'] ? 'true' : 'false') . ', // Envio de correo alertando de intento de intrusion / Send mail notify an intrusion try access' . "\n\t" . '\'db\' => array( // Base de datos / Data base' . "\n\t\t" . '\'host\' => \'' . $datos['db:host'] . '\',' . "\n\t\t" . '\'base_datos\' => \'' . $datos['db:base_datos'] . '\', // Nombre de la base de datos / Data base name' . "\n\t\t" . '\'usuario\' => \'' . $datos['db:usuario'] . '\', // Usuario / User' . "\n\t\t" . '\'contrasinal\' => \'' . $datos['db:contrasinal'] . '\', // Contraseña / Password' . "\n\t\t" . '\'prefixo\' => \'' . $datos['db:prefixo'] . '\' // Prefijo para las tablas / Table prefix' . "\n\t" . ')' . "\n);\n?>";
$PFN_arquivos->abre_escribe($PFN_paths['conf'] . 'basicas.inc.php', $texto);
}
$idiomas_valen[$k] = $v;
}
}
if ($executa == 'gardar') {
$idioma_orixe = $PFN_paths['idiomas'] . $PFN_niveles->path_correcto($tr_orixe) . '/' . $PFN_niveles->nome_correcto($tr_arquivo) . '.inc.php';
if (is_file($idioma_orixe)) {
$path_destino = $PFN_paths['idiomas'] . $PFN_niveles->path_correcto($tr_destino);
$idioma_destino = $path_destino . '/' . $PFN_niveles->nome_correcto($tr_arquivo) . '.inc.php';
if (is_file($idioma_destino) && !is_writable($idioma_destino)) {
$erro[] = 33;
} elseif (is_writable($PFN_paths['idiomas']) && (is_dir($path_destino) ? is_writable($path_destino) : true)) {
include_once $PFN_paths['include'] . 'class_arquivos.php';
$PFN_arquivos = new PFN_Arquivos($PFN_conf);
if (!is_dir($path_destino)) {
mkdir($path_destino);
$PFN_arquivos->abre_escribe($path_destino . '/index.html', '');
}
$datos_orixe = (include $idioma_orixe);
$datos_destino = $PFN_vars->post('idioma_i');
$txt = '';
$cambia['mal'] = array('<', '>', '"');
$cambia['ben'] = array('<', '>', '"');
foreach ($datos_orixe as $k => $v) {
if (is_array($v)) {
$txt .= "\n\t" . '\'' . $k . '\' => array(';
foreach ($v as $k2 => $v2) {
unset($v2);
$cad = PFN_textoForm2interno($datos_destino[$k][$k2]);
$cad = htmlentities($cad, ENT_NOQUOTES, $PFN_conf->g('charset'));
$cad = str_replace($cambia['mal'], $cambia['ben'], $cad);
$txt .= "\n\t\t" . '\'' . $k2 . '\' => \'' . $cad . '\',';
if (!$existe || !is_file($nome_arq)) {
$erros[] = 18;
} elseif (!is_writable($nome_arq)) {
$erros[] = 19;
}
$test = '';
$alertas = array();
$estado_accion = '';
include_once $PFN_paths['include'] . 'class_arquivos.php';
$PFN_arquivos = new PFN_Arquivos($PFN_conf);
$texto = trim($PFN_vars->post('texto'));
if (count($erros) == 0 && $PFN_vars->post('executa')) {
$alertas = $PFN_arquivos->comprobar_sintaxis($texto);
if (empty($alertas)) {
$PFN_conf->textos('estado');
$estado = $PFN_arquivos->abre_escribe($nome_arq, $texto);
$estado_accion = $PFN_conf->t('estado.editar', intval($estado));
$ok = 5;
} else {
$erros[] = 28;
}
}
if (count($erros) == 0) {
Header('Location: index.php?' . PFN_cambia_url(array('id_conf', 'ok'), array($id_conf, $ok), false, true));
exit;
}
$PFN_tempo->rexistra('precarga');
include $PFN_paths['plantillas'] . 'cab.inc.php';
include $PFN_paths['xestion'] . 'Xopcions.inc.php';
$PFN_tempo->rexistra('precodigo');
include $PFN_paths['plantillas'] . 'Xconfiguracions_modi.inc.php';
}
}
$form['charset'] = $basicas['charset'];
}
$PFN_conf->p($form['idioma'], 'idioma');
$PFN_conf->textos('web');
$PFN_conf->textos('idiomas');
$PFN_conf->textos('instalar');
$PFN_arquivos = new PFN_Arquivos($PFN_conf);
if (is_dir($PFN_paths['tmp'])) {
if (is_file($PFN_paths['tmp'] . 'instalar.lock')) {
$ip = file($PFN_paths['tmp'] . 'instalar.lock');
$ip = $ip[0];
} else {
$ip = $PFN_vars->ip();
$PFN_arquivos->abre_escribe($PFN_paths['tmp'] . 'instalar.lock', $ip);
}
} elseif (is_dir($PFN_paths['web'] . 'tmp')) {
if (is_file($PFN_paths['web'] . 'tmp/instalar.lock')) {
$ip = file($PFN_paths['web'] . 'tmp/instalar.lock');
$ip = $ip[0];
} else {
$ip = $PFN_vars->ip();
$PFN_arquivos->abre_escribe($PFN_paths['web'] . 'tmp/instalar.lock', $ip);
}
} else {
$ip = $PFN_vars->ip();
}
include $PFN_paths['instalar'] . 'plantillas/cab.inc.php';
if ($ip == $PFN_vars->ip()) {
include $PFN_paths['instalar'] . 'include/paso_' . $paso . '.inc.php';
if ($id_usuario == $sPFN['usuario']['id']) {
$sPFN['usuario']['usuario'] = $usuario;
empty($contrasinal) ? '' : ($sPFN['usuario']['contrasinal'] = md5($contrasinal));
}
session_register('sPFN');
$PFN_vars->session('sPFN', $sPFN);
session_write_close();
include_once $PFN_paths['include'] . 'class_arquivos.php';
$PFN_arquivos = new PFN_Arquivos($PFN_conf);
$info_usuario = $PFN_niveles->path_correcto($PFN_paths['info'] . 'usuario' . $id_usuario);
if (!is_dir($info_usuario)) {
@mkdir($info_usuario, 0755);
}
if ($actual_descargas > 0) {
$actual = '<?php return ' . $actual_descargas * 1024 * 1024 . '; ?>';
$PFN_arquivos->abre_escribe($info_usuario . '/descargas.' . date('Ym') . '.php', $actual);
} else {
if (is_file($info_usuario . '/descargas.' . date('Ym') . '.php')) {
@unlink($info_usuario . '/descargas.' . date('Ym') . '.php');
}
}
$ok = count($erros) > 0 ? 0 : 1;
}
$PFN_tempo->rexistra('precarga');
include $PFN_paths['plantillas'] . 'cab.inc.php';
include $PFN_paths['xestion'] . 'Xopcions.inc.php';
$PFN_tempo->rexistra('precodigo');
include $PFN_paths['xestion'] . 'usuarios/index.inc.php';
include $PFN_paths['plantillas'] . 'Xusuarios.inc.php';
$PFN_tempo->rexistra('postcodigo');
include $PFN_paths['plantillas'] . 'pe.inc.php';
