Se agrega documentación sobre los servidores.

[mecon/scripts.git] / embperl / Php2Embperl_Session.epl

diff --git a/embperl/Php2Embperl_Session.epl b/embperl/Php2Embperl_Session.epl
index 560c63afea3fcea6310517dcef86c26bb62694fd..12f2fce13140ba19ef63198e9afd8a0866ba40ac 100644 (file)
--- 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} = 'http://bal747f.mecon.ar/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} = 'http://bal747f.mecon.ar/'.$fdat{'redirect'};  
+$http_headers_out {Location} = $fdat{'redirect'};  
 
 exit;