X-Git-Url: https://git.llucax.com/mecon/scripts.git/blobdiff_plain/b1f0d230f047f28f5c2ae2a1903a566c366b26a1..64dec8df18c0478c98196cd426c76bb2e2345670:/embperl/Php2Embperl_Session.epl?ds=inline

diff --git a/embperl/Php2Embperl_Session.epl b/embperl/Php2Embperl_Session.epl
index 060cff4..12f2fce 100644
--- a/embperl/Php2Embperl_Session.epl
+++ b/embperl/Php2Embperl_Session.epl
@@ -2,6 +2,8 @@
 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.
+
+EL NOMBRE DE LA COOKIE DE PHP SE OBTIENE DE /etc/php4/apache/php.ini
 #]
 [-
 use CGI qw/:standard/;
@@ -9,16 +11,25 @@ use CGI::Cookie;
 
 
 if (!defined($fdat{'redirect'})) {
-    $http_headers_out {Location} = '/sistemas/intranet';
+    $http_headers_out {Location} = '/sistemas/intranet/';
     exit;
 }
                  
-
 %cookies = fetch CGI::Cookie;
-$archivo = '/tmp/sess_'.$cookies{'PHPSESSID747F'}{'value'}[0];
+open FILE, '/etc/php4/apache/php.ini';
+while (<FILE>) {
+    if (/session\.name\s*=\s*(\w+)/) {
+    	$cookie_name = $1;
+	last;
+    }
+}
+close FILE;
+
+$archivo = '/tmp/sess_'.$cookies{$cookie_name}{'value'}[0];
 
 open (FILE, $archivo);
 $linea = join ('',<FILE>);
+close FILE;
 
 $res = parseSession (linea => $linea);
 
@@ -27,7 +38,7 @@ $udat{'domain'}  = $res->{'domain'};
 $udat{'nick'}    = $res->{'nick'};
 $udat{'nro_doc'} = $res->{'nro_doc'};
 
-$http_headers_out {Location} = '/'.$fdat{'redirect'};  
+$http_headers_out {Location} = $fdat{'redirect'};  
 
 exit;