Se pasa Php2Embperl_Session.epl al repositorio scripts y se actualiza documentacion.

diff --git a/doc/doxygen/instalacion.php b/doc/doxygen/instalacion.php
index 3c5e8e65064e5dcec8308cfaef3297f04390c19f..39dc27c4a2d9d032fc5dc0401c18bbf17d22790b 100644 (file)
--- a/doc/doxygen/instalacion.php
+++ b/doc/doxygen/instalacion.php
@@ -14,13 +14,12 @@
 
        @subsection apache_embperl Instalación del Embperl para la Intranet del MECON.
 
 
        @subsection apache_embperl Instalación del Embperl para la Intranet del MECON.
 

-               Paquetes del Apache utilizados
+               Paquetes del Apache utilizados:

                @verbatim
                Nombre                                  Versión
                libapache-dbi-perl                      0.92-0.1
                libapache-mod-perl                      1.29-1
                libapache-session-perl                  1.54-1
                @verbatim
                Nombre                                  Versión
                libapache-dbi-perl                      0.92-0.1
                libapache-mod-perl                      1.29-1
                libapache-session-perl                  1.54-1

-               libapache-tempfile-perl_0.04-1_all.deb  -

                @endverbatim
 
                @note El último paquete de la lista fue escrito por la fundación
                @endverbatim
 
                @note El último paquete de la lista fue escrito por la fundación


@@ -31,7 +30,7 @@
 
                Otros paquetes de perl usados para la instalación de la Intranet
 
 
                Otros paquetes de perl usados para la instalación de la Intranet
 

-               Paquetes que están en el repositorio del apt de debian
+               Paquetes que están en el repositorio del apt de debian:

                @verbatim
                Nombre                                  Versión
                perl                                    5.8.1-2
                @verbatim
                Nombre                                  Versión
                perl                                    5.8.1-2


@@ -48,12 +47,26 @@
                libxml-dumper-perl                      0.67-1
                @endverbatim
 
                libxml-dumper-perl                      0.67-1
                @endverbatim
 

-               Archivos adicionales para el manejo de la sesión del usuario
+               Archivos adicionales para que funcione embperl:
+               Para el correcto funcionamiento del embperl son necesarios algunos
+               paquetes y archivos que no se encuentran en la distribución de
+               Debian. Los archivos se encuentran en un repositorio de subversion,
+               para obtenerlos:

                @verbatim
                @verbatim

-               Nombre                  Ubicación
-               SimpleXMLISO.pm         /usr/share/perl5/Apache/Session/Serialize/
-               DumperISO.pm            /usr/share/perl5/XML/
-               Php2Embperl_Session.epl /var/www/htdocs/ (raiz del Apache)
+               cd /tmp
+               svn co http://portal.mecon.ar/svn/scripts/embperl
+               @endverbatim
+               Si no está instalado el subversion, pueden obtener estos archivos
+               con cualquier cliente HTTP (navegador web) en
+               http://portal.mecon.ar/svn/scripts/embperl/.
+               Ahora en el directorio embperl se encuentran estos archivos que
+               deben ser copiados como se indica en el archivo README:
+               @verbatim
+               cp SimpleXMLISO.pm /usr/share/perl5/Apache/Session/Serialize/
+               cp DumperISO.pm /usr/share/perl5/XML/
+               mkdir /var/www/htdocs
+               cp Php2Embperl_Session.epl /var/www/htdocs/
+               dpkg -i libapache-tempfile-perl_0.04-1_all.deb

                @endverbatim
 
                Todos estos archivos sirven para compartir las sesiones de los
                @endverbatim
 
                Todos estos archivos sirven para compartir las sesiones de los


@@ -177,6 +190,13 @@
                        session.auto_start = 1
                        @endverbatim
 
                        session.auto_start = 1
                        @endverbatim
 

+                       Luego hay que crear el archivo de log con los permisos correctos:
+                       @verbatim
+                       touch /var/log/apache/php.log
+                       chown www-data.www-data /var/log/apache/php.log
+                       /etc/init.d/apache restart
+                       @endverbatim
+

 
 @section locales Configuración de locales.
        @verbatim apt-get install locales @endverbatim
 
 @section locales Configuración de locales.
        @verbatim apt-get install locales @endverbatim

diff --git a/sistema/www/Php2Embperl_Session.epl b/sistema/www/Php2Embperl_Session.epl
deleted file mode 100644 (file)
index 560c63a..0000000
--- a/sistema/www/Php2Embperl_Session.epl
+++ /dev/null
@@ -1,170 +0,0 @@
-[#
-IMPORTANTE: ES NECESARIO QUE ESTE SCRIPT SE PONGA EN LA BARRA DE LA INTRANET NO
-EN SISTEMAS/INTRANET PORQUE LA COOKIE FUNCIONA A PARTIR DEL DIRECTORIO EN EL
-CUAL ESTE ESTE SCRIPT.
-#]
-[-
-use CGI qw/:standard/;
-use CGI::Cookie;
-
-
-if (!defined($fdat{'redirect'})) {
-    $http_headers_out {Location} = 'http://bal747f.mecon.ar/sistemas/intranet';
-    exit;
-}
-                 
-
-%cookies = fetch CGI::Cookie;
-$archivo = '/tmp/sess_'.$cookies{'PHPSESSID747F'}{'value'}[0];
-
-open (FILE, $archivo);
-$linea = join ('',<FILE>);
-
-$res = parseSession (linea => $linea);
-
-$udat{'user'}    = $res->{'user'};
-$udat{'domain'}  = $res->{'domain'};
-$udat{'nick'}    = $res->{'nick'};
-$udat{'nro_doc'} = $res->{'nro_doc'};
-
-$http_headers_out {Location} = 'http://bal747f.mecon.ar/'.$fdat{'redirect'};  
-
-exit;
-
-################# FIN SCRIPT
-
-sub parseSession
-{
-    my %params = @_;   
-    my $op_value = $params{linea};
-    my $pos = 0;
-    my $name;
-    my $type;
-    my $type2;
-    my $len;
-    my $result;
-    
-    
-
-    while ($pos < 2){
-
-        #Obtengo el nombre del parametro
-        $name     = substr($op_value, 0, index($op_value, '|'));
-        $op_value = substr($op_value, index($op_value, '|') + 1); #Depuro la linea
-        #Obtengo el tipo
-        $type     = substr($op_value, 0, index($op_value, ':'));
-        $type2    = substr($op_value, 0, index($op_value, ';'));
-
-        #Caso particular
-        if ($type2 eq 'N') {
-            $type = 'N';
-            $op_value = substr($op_value, index($op_value, ';') + 1); #Depuro la linea
-        }
-        else {  
-            $op_value = substr($op_value, index($op_value, ':') + 1); #Depuro la linea
-        }
-
-        if ($type eq 's') {
-            #Obtengo la longitud
-            $len = substr($op_value, 0, index($op_value, ':'));
-            #Obtengo el resto de la linea
-            $op_value = substr($op_value, index($op_value, ':') + 1); 
-            if ($name eq 'usuario') {
-                $result->{'user'} = substr($op_value, 1, $len);
-                ($result->{'nick'}, $result->{'domain'}) = split ('@', $result->{'user'});
-                $op_value = substr($op_value, $len + 3);
-                $pos++;        
-            }
-            elsif ($name eq 'documento') {
-                $result->{'nro_doc'} = substr($op_value, 1, $len);
-                $pos++;        
-            }
-            else {
-                $op_value = substr($op_value, $len + 3);
-            }
-        }            
-        elsif ($type eq 'i') {
-            $op_value = substr($op_value, index($op_value,';') + 1);
-        }
-        elsif ($type eq 'd') {
-            $op_value = substr($op_value, index($op_value,';') + 1);
-        }
-        elsif ($type eq 'b') {
-            $op_value = substr($op_value, index($op_value,';') + 1);
-        }
-        elsif ($type eq 'a') {
-            $op_value = parseContenido (cont => $op_value);
-        }
-        elsif ($type eq 'O') {
-            $len = substr($op_value, 0, index($op_value,':'));
-            $op_value = substr($op_value, index($op_value,':') + 1);
-            $op_value = substr($op_value, $len + 3);
-            $op_value = parseContenido (cont => $op_value);
-        }
-
-        if (length($op_value) < 1) {
-            $pos = 3;
-        }
-    }
-    return $result;
-}
-
-#Devuelve la linea sin el contenido
-sub parseContenido {
-    my %params = @_;   
-    my $op_value = $params{cont};
-    my $type;
-    my $type2;
-    my $len;
-    my $seguir = 1;
-
-    #Elimino todo hasta el { inclusive
-    $op_value = substr($op_value, index($op_value, ':') + 2);
-    
-   
-    while ($seguir) { 
-        #Obtengo el tipo
-        $type     = substr($op_value, 0, index($op_value, ':'));
-        $type2    = substr($op_value, 0, index($op_value, ';')); #Caso particular Null
-
-        #Caso particular Null
-        if ($type2 eq 'N') {
-            $type = 'N';
-            $op_value = substr($op_value, index($op_value, ';') + 1); #Depuro la linea
-        }
-        else {  
-            $op_value = substr($op_value, index($op_value, ':') + 1); #Depuro la linea
-        }
-        if ($type eq 's') {
-            #Obtengo la longitud
-            $len = substr($op_value, 0, index($op_value, ':'));
-            #Obtengo el resto de la linea
-            $op_value = substr($op_value, index($op_value, ':') + 1); 
-            $op_value = substr($op_value, $len + 3);
-        }
-        elsif ($type eq 'i') {
-            $op_value = substr($op_value, index($op_value,';') + 1);
-        }
-        elsif($type eq 'd') {
-            $op_value = substr($op_value, index($op_value,';') + 1);
-        }
-        elsif($type eq 'b') {
-            $op_value = substr($op_value, index($op_value,';') + 1);
-        }
-        elsif($type eq 'a') {
-            $op_value = parseContenido (cont => $op_value);
-        }
-        elsif($type eq 'O') {
-            $op_value = parseContenido (cont => $op_value);
-        }
-        
-        if (substr($op_value,0,1) eq '}') {
-            $op_value = substr($op_value,1);
-            $seguir = 0;
-        }
-    }
-    return $op_value;
-}
-
--]
-1;