#!/usr/bin/perl
#print("Content-Type: text/html; charset=iso-8859-1\n\n");
print("Content-Type: text/html; charset=utf-8\n\n");
&librerias (__FILE__, __LINE__, "../fgenlosprogramas/libreria/libinicializarvariables.pl"); #nogenerar
&librerias (__FILE__, __LINE__, "$dir_inicializarvariables"); #nogenerar
&librerias (__FILE__, __LINE__, "../fgenlosprogramas/libreria/libobtenercampos.pl"); #nogenerar
&librerias (__FILE__, __LINE__, "$dir_obtenercampos"); #nogenerar
ObtenerDatosForma(\%gl_campos); #nogenerar
&librerias (__FILE__, __LINE__, "../fgenlosprogramas/libreria/libclavesdenavegacion.pl"); #nogenerar
&librerias (__FILE__, __LINE__, "$dir_clavesdenavegacion"); #nogenerar
&leerclavedenavegacion; #nogenerar
&librerias (__FILE__, __LINE__, "../fgenlosprogramas/libreria/libleerpuente.pl"); #nogenerar
&librerias (__FILE__, __LINE__, "$dir_leerpuente"); #nogenerar
&leerproyecto; #nogenerar
#print ("usuario $gl_campos{'fusuario'}"); #nogenerar
#foreach $d (keys(%gl_campos)){$c = $gl_campos{$d};print ("
Campos $d $c");} ####### Lista campos de la forma
$g = $gl_campos{'farchivolocalaatar'}; #nogenerar
&mostrarservicios; #nogenerar
&preguntarporinterfaz; #nogenerar
#$gl_campos{'fverinterfaz'} = "si"; #nogenerar
if ($gl_campos{'fverinterfaz'} eq "si") #nogenerar
{ #nogenerar
&mostrarinterfaz; #nogenerar
} #nogenerar
&mostrarpie; #nogenerar
exit 0; #nogenerar
sub preguntarporinterfaz #nogenerar
{ #nogenerar
print (""); #nogenerar
print ("
"); #nogenerar
print (""); #nogenerar
print ("$mensajes{'gmas-verinterfaz'}"); #nogenerar
print (""); #nogenerar
print (""); #nogenerar
print ("$mensajes{'gmas-noverinterfaz'}"); #nogenerar
} #nogenerar
sub leerproyecto #nogenerar
{ #nogenerar
$gl_archproyecto = "../$gl_dircgiherramientas/proyecto"; #nogenerar
unless (open(PROYECTO, $gl_archproyecto)) #nogenerar
{ #nogenerar
die ("No se pudo abrir el archivo de proyectos \n"); #nogenerar
} #nogenerar
$linea = ; #nogenerar
chop $linea; #nogenerar
$proyecto = $linea; #nogenerar
$linea = ; #nogenerar
%proybdnombre = (); #nogenerar
$existe = 0; #nogenerar
@usuar = (); #nogenerar
while ($linea ne "") #nogenerar
{ #nogenerar
chop $linea; #nogenerar
@arr = (); #nogenerar
@arr = split(/:/, $linea); #nogenerar
$proybdnombre{$arr[0]} = $arr[0]; #nogenerar
$proybddescr{$arr[0]} = $arr[1]; #nogenerar
$proybdtipo{$arr[0]} = $arr[2]; #nogenerar
$l = @arr; #nogenerar
for ($u = 3;$ u < $l;$u = $u + 2) #nogenerar
{ #nogenerar
$usuar{$arr[0]} = $usuar{$arr[0]}.$arr[$u].":"; #nogenerar
} #nogenerar
if ($proybdnombre{$arr[0]} eq $gl_campos{'fbden'}) #nogenerar
{ #nogenerar
$seleccionado{$proybdtipo{$arr[0]}} = "selected"; #nogenerar
$lo = @arr; #nogenerar
for ($i = 3;$i < $lo;$i = $i + 2) #nogenerar
{ #nogenerar
if ($gl_campos{'fusuario'} eq $arr[$i] && $gl_campos{'fbden'} eq $proybdnombre{$arr[0]}) #nogenerar
{ #nogenerar
# print ("
existe usuario $arr[$i]"); #nogenerar
$existe = 1; #nogenerar
# print ("
arr $arr[0] i $i arr $arr[$i]"); #nogenerar
} #nogenerar
} #nogenerar
}; #nogenerar
$linea = ; #nogenerar
} #nogenerar
# if ($existe != 1 && $gl_campos{'fusuario'} ne $gl_loginbd) #nogenerar
# print ("existe $existe"); #nogenerar
if ($existe != 1 ) #nogenerar
{ #nogenerar
&mensajenoautorizacion; #nogenerar
# print ("campos $gl_campos{'fusuario'} loginbd $gl_loginbd "); #nogenerar
exit 0; #nogenerar
} #nogenerar
close (PROYECTO); #nogenerar
} #nogenerar
#------------------------------------------------------------------------------------------- #nogenerar
# #nogenerar
# Subprograma mensajenoautorizacin #nogenerar
# #nogenerar
#------------------------------------------------------------------------------------------- #nogenerar
sub mensajenoautorizacion #nogenerar
{ #nogenerar
print (""); #nogenerar
print (" $mensajes{'gmas-titulonoautoriza'}"); #nogenerar
print (""); #nogenerar
print (""); #nogenerar
print (" "); #nogenerar
print (" "); #nogenerar
print (" $mensajes{'gmas-genesisegds'}"); #nogenerar
print ("
"); #nogenerar
print ("El usuario $gl_campos{'fusuario'}"); #nogenerar
print (" no tiene autorizacin para usar este repositorio llamado: $gl_campos{'fbden'}"); #nogenerar
print (""); #nogenerar
print ("