Se agrega base.epl necesario para los sistemas en embperl.

diff --git a/embperl/README b/embperl/README
index 709d56eb1e2cc0b114b3d6eba9dfd83fa111b6a1..8e24f8501d3c21564c8e884793f7e54bd5c35483 100644 (file)
--- a/embperl/README
+++ b/embperl/README
@@ -9,6 +9,7 @@ Archivo                    Ruta
 SimpleXMLISO.pm            /usr/share/perl5/Apache/Session/Serialize/
 DumperISO.pm               /usr/share/perl5/XML/
 Php2Embperl_Session.epl    /var/www/htdocs/ (DocumentRoot del apache)
+base.epl                   /var/www/htdocs/ (DocumentRoot del apache)
 
 Instalar paquete libapache-tempfile-perl_0.04-1_all.deb.
 

diff --git a/embperl/base.epl b/embperl/base.epl
new file mode 100644 (file)
index 0000000..cc1b64f
--- /dev/null
+++ b/embperl/base.epl
@@ -0,0 +1,302 @@
+[$ if ($ENV{'SCRIPT_NAME'} ne "/index.epl" && $ENV{'SCRIPT_NAME'} ne "/Php2Embperl_Session.epl")$]
+[- $http_headers_out{'Location'}="./index.epl" if(!$udat{'user'}); -]
+[-
+use DBI;
+use Data::Dumper;
+#Conecciones a las bases
+$CLEANUP{'bases'} = 0;
+our $bases->{'newsclient'}=[
+  "dbi:mysql:dbname=MEconDAV;host=localhost",
+  "mark",
+  "mark",
+  {RaiseError=>1, AutoCommit=>1}];
+our $bases->{'menu'}=[
+  "dbi:mysql:dbname=USUARIOS;host=localhost",
+  "menu",
+  "menu",
+  {RaiseError=>1, AutoCommit=>1}];
+our $bases->{'liq'}=[
+  "dbi:mysql:dbname=liquidaciones;host=localhost",
+  "me",
+  "me",
+  {RaiseError=>1, AutoCommit=>1}];
+our $bases->{'partidos'}=[
+  "dbi:mysql:dbname=partidos;host=localhost",
+  "partidos",
+  "partidos",
+  {RaiseError=>1, AutoCommit=>1}];
+-]
+[!
+#Precarga del Arbol que genera el menu
+$CLEANUP{'dbh'} = 0;
+my $dbh=DBI->connect(@{$bases->{'menu'}});
+$CLEANUP{'menu'} = 0;
+our $menu = $dbh->selectall_arrayref('
+  SELECT pagina.pagina, pagina.link, pagina.nombre, pagina.tipo, pagina.icono,
+  pagina.descr, pagina.tipo, area.color_obscuro, area.color_claro
+  FROM pagina, area
+  WHERE tipo="A"
+  AND pagina.pagina=area.pagina
+  ORDER BY pagina.pagina');
+  
+#Estructura del menu:
+#array de:
+# arrays con:
+#  0 numero
+#  1 link
+#  2 nombre
+#  3 tipo
+#  4 icono
+#  5 descripcion
+#  6 array con las paginas inferiores
+#  7 color claro
+#  8 color obscuro
+# cada pagina inferior tiene:
+# 0 numero
+# 1 link
+# 2 nombre
+# 3 tipo
+# 4 icono
+# 5 descripcion
+# 6 array con las paginas inferiores
+
+#esta es una lista invertida de los links y las areas para rastrear que menu mostrar a partir de que pagina muestra
+#se podria hacer del arbol pero seria algo lento
+$CLEANUP{'busc_area'} = 0;
+our $busc_area;
+$busc_area->{"$_->[1]"} = $_->[0]-1 foreach (@$menu);
+
+#Carga recursiva de hojas
+sub cargarinferiores($$)
+{
+  my $pag = shift;
+  my $area = shift;
+  $pag->[6]= $dbh->selectall_arrayref("
+    SELECT pagina.pagina, pagina.link, pagina.nombre, pagina.tipo, pagina.icono, pagina.descr
+    FROM pagina
+    WHERE pagina.pagina_sup=$pag->[0]
+#    AND pagina.tipo <> 'O'
+    ORDER BY pagina.tipo, pagina.nombre");
+  my $tmp= $dbh->selectall_arrayref("
+      SELECT pagina.link
+      FROM pagina
+      WHERE pagina.pagina_sup=$pag->[0]
+      AND pagina.tipo <> 'L'");
+  $busc_area->{"$_->[0]"}=$area foreach (@$tmp);
+  
+  cargarinferiores($_,$area) foreach (@{$pag->[6]}); 
+};
+
+cargarinferiores($_,$_->[0]-1) foreach (@$menu);
+#estas variables se usan para generar el codigo del menu, se inicializan fuera por velocidad 
+my $bg_color; my $fg_color; my $tam; my $link_ini; my $link_fin;
+my $b_ini; my $b_fin; my $tab; my $new_frame;
+!]
+[!
+sub rama_abierta($$)
+{
+  $rama = shift;
+  $link = shift;
+  return 1 if ($rama->[1] eq $link);
+  return 1 if ($rama->[1] =~ /^$link?/);
+  foreach (@{$rama->[6]})
+  {
+    return 1 if rama_abierta($_, $link);
+  }
+  return 0;
+};
+
+#global para saber en que nivel estoy;
+$xtab='';
+
+sub Linea($$$)
+{
+  my $l = shift;
+  my $color_oscuro = shift;
+  my $color_claro = shift;
+  $activo = '';
+  foreach (@{$l->[6]})
+  { $activo = true if ($_->[1] =~ /^$ENV{'SCRIPT_NAME'}/); }
+  $bg_color = 'CCCCCC';
+  if ($l->[1] =~ /^$ENV{'SCRIPT_NAME'}/ or $activo )
+  {
+    $bg_color = $color_claro;
+    $tipo_pag = $l->[3];
+  }
+  $fg_color= '000000';
+  $tam = "size='0'";
+  $link_ini = ''; $link_fin='';  
+  $b_ini=''; $b_fin='';
+  $tab='- ';
+  $new_frame='';
+  $new_frame='target=_blank' if($l->[3] eq 'L');
+  if ($l->[1])
+  { $link_ini = "<A href='$l->[1]' $new_frame>"; $link_fin = "</A>"; }
+  if($l->[3] eq 'S')
+  {
+    $bg_color = $color_oscuro;
+    $fg_color = 'FFFFFF';
+    $tam = "size='2'";
+    $b_ini = "<B>"; $b_fin= "</B>";
+    $tab=''; 
+  }
+  my $linea_html = "
+    <TR align='left' valign='top' bgcolor='#$bg_color'>
+      <TD>
+        $b_ini$link_ini
+          <FONT face='Arial, Helvetica, sans-serif' color='#$fg_color' $tam>
+           $xtab$tab$l->[2]
+         </FONT>
+       $link_fin$b_fin
+      </TD>
+    </TR>";
+  foreach (@{$l->[6]})
+  {
+    if ($_->[3] ne 'O')
+    {
+      my $oldtab = $xtab;
+      $xtab .= '&nbsp;&nbsp;&nbsp;' if (($l->[3] ne "S")and($l->[3] ne "S"));
+      $linea_html .= Linea($_, $color_oscuro, $color_claro) if
+        (rama_abierta($l,$ENV{'SCRIPT_NAME'})or(!$l->[1]));
+      $xtab = $oldtab;
+    }
+  }
+  return $linea_html;
+};
+
+sub DesplegarMenu($)
+{   
+  $area = shift;
+  $tipo_pag = 'A';
+  foreach (@{$area->[6]})
+  {
+    $menu_html .= Linea($_, $area->[7], $area->[8]);
+    $tipo_pag = 'A' if ($_->[1] =~ /^$ENV{'SCRIPT_NAME'}/ );
+  }
+  return $menu_html;
+};
+!]
+[-
+our $char_menu = DesplegarMenu($menu->[$busc_area->{"$ENV{'SCRIPT_NAME'}"}])
+-]
+[-
+$ret = shift;
+$ret->{'bases'} = $bases;
+$ret->{'menu'} = $menu;
+$ret->{'busc_area'} = $busc_area;
+-]
+
+<HTML>
+  <HEAD>
+    <TITLE>INTRANET DEL MINISTERIO DE ECONOMIA </TITLE>
+    <META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+    <SCRIPT language="JavaScript">
+    <!--
+    function MM_swapImgRestore() { //v3.0
+    var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
+    }
+    
+    function MM_displayStatusMsg(msgStr) { //v1.0
+    status=msgStr;
+    document.MM_returnValue = true;
+    }
+    
+    function MM_preloadImages() { //v3.0
+    var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
+    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
+    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
+    }
+    
+    function MM_findObj(n, d) { //v3.0
+    var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
+    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
+    if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
+    for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
+    }
+    
+    function MM_swapImage() { //v3.0
+    var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
+    if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
+    }
+    
+    function MM_openBrWindow(theURL,winName,features) { //v2.0
+    window.open(theURL,winName,features);
+    }
+    
+    
+    //-->
+    </SCRIPT>
+    
+    <STYLE type="text/css">
+    <!--
+    .justificar {  text-align: justify}
+    <style type="text/css">^M
+    .linkmenu {  color: #FFFFFF}
+    .linkpagina {  color: #[+ $area->[8] +]}
+    -->
+    </STYLE>
+    
+  </HEAD>
+  <BODY bgcolor="#FFFFFF" onload="MM_preloadImages('/gif/inf_f2.gif','/gif/consultas_f2.gif','/gif/g_central_f2.gif','/gif/g_local_f2.gif','/gif/servicios_f2.gif', '/gif/inf_f3.gif','/gif/consultas_f3.gif','/gif/g_central_f3.gif','/gif/g_local_f3.gif','/gif/servicios_f3.gif', '/gif/inf_f4.gif','/gif/consultas_f4.gif','/gif/g_central_f4.gif','/gif/g_local_f4.gif','/gif/servicios_f4.gif')" leftmargin="5" topmargin="5" marginwidth="5" marginheight="5" text="#000000" link="#333333" vlink="#666666" alink="#999999">
+    <TABLE width="760" border="0" cellspacing="0" cellpadding="0" align="center">
+    [$ if defined $fdat{'debug'} $]
+      [- Execute ('debug.epl') -]
+    [$ else $]
+      [- Execute ('cabecera.epl') -]
+    [$ endif $]
+    [$ if ($ENV{'SCRIPT_NAME'} ne '/mapa.epl') $]
+      <TR align="left" valign="top">
+       <TD width="154" bgcolor="#999999">
+         <TABLE width="152" border="0" cellspacing="1" cellpadding="0" bgcolor="#999999">
+           [+ $char_menu +]
+           <TR height=150><TD></TD></TR>
+         </TABLE>
+       </TD>
+       <TD width="8"><IMG src="/gif/shim.gif" width="8" height="1"></TD>
+       <TD width="600"> 
+         <TABLE width="600" border="0" cellspacing="0" cellpadding="0">
+           <TR bgcolor="#FFCC99">
+             <TD align="left" valign="middle">
+               [- Execute('barra_areas.epl')-]
+             </TD>
+           </TR>
+           <TR>
+             <TD width=600 border=0>
+               [-
+                 if (-f $ENV{'SCRIPT_FILENAME'})
+                 { Execute('*'); }
+                 else
+                 { Execute('auto_pag.epl') }
+               -]
+             </TD>
+           </TR>
+         </TABLE>
+       </TD>
+      </TR>
+      <TR align="center" valign="middle" bgcolor="#FFFFFF"> 
+         <TD colspan="3">
+          <FONT face="Arial, Helvetica, sans-serif" size="1">
+            <A href="inf.epl">Informaci&oacute;n</A> | <A href="servicios.epl">Servicios</A> | <A href="consultas.epl">Consultas</A> | <A href="g_horizontal.epl">Gesti&oacute;n Horizontal</A> | <A href="g_local.epl">Gesti&oacute;n Local</A>
+          </FONT>
+        </TD>
+      </TR>
+      <TR align="center" valign="middle"> 
+       <TD colspan="3" bgcolor="#CCCCCC">
+         <FONT face="Arial, Helvetica, sans-serif" size="1">
+           Copyright © 2001 Ministerio de Economía
+         </FONT>
+       </TD>
+      </TR>
+      [$ else $]
+      <TR>
+        <TD>
+          [- Execute('*'); -]
+        </TD>
+      </TR>
+      [$ endif $]
+    </TABLE>
+  </BODY>
+</HTML>
+[$ else $]
+  [- Execute('*') -]
+[$ endif $]