From: Martín Marrese <marrese@gmail.com>
Date: Thu, 29 Jan 2004 20:23:03 +0000 (+0000)
Subject: Desharcodee el host en los redirects.
X-Git-Tag: svn_import~18
X-Git-Url: https://git.llucax.com/mecon/scripts.git/commitdiff_plain/b1f0d230f047f28f5c2ae2a1903a566c366b26a1

Desharcodee el host en los redirects.
---

diff --git a/embperl/Php2Embperl_Session.epl b/embperl/Php2Embperl_Session.epl
index 560c63a..060cff4 100644
--- a/embperl/Php2Embperl_Session.epl
+++ b/embperl/Php2Embperl_Session.epl
@@ -9,7 +9,7 @@ use CGI::Cookie;
 
 
 if (!defined($fdat{'redirect'})) {
-    $http_headers_out {Location} = 'http://bal747f.mecon.ar/sistemas/intranet';
+    $http_headers_out {Location} = '/sistemas/intranet';
     exit;
 }
                  
@@ -27,7 +27,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;