]> git.llucax.com Git - mecon/scripts.git/commitdiff
Desharcodee el host en los redirects.
authorMartín Marrese <marrese@gmail.com>
Thu, 29 Jan 2004 20:23:03 +0000 (20:23 +0000)
committerMartín Marrese <marrese@gmail.com>
Thu, 29 Jan 2004 20:23:03 +0000 (20:23 +0000)
embperl/Php2Embperl_Session.epl

index 560c63afea3fcea6310517dcef86c26bb62694fd..060cff4471cb0416ac05c266056932ffb142f859 100644 (file)
@@ -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;