Se hace que aparezca el link a SAMURAI si un usuario tiene permisos para administrar...

[mecon/intranet.git] / sistema / www / login.php

diff --git a/sistema/www/login.php b/sistema/www/login.php
index 5430c5dbccd2dd494d1401c8294feb243c5365a8..a4965dcfafd647a1299fb867f5c5c5c3a8b7d3d1 100644 (file)
--- a/sistema/www/login.php
+++ b/sistema/www/login.php
@@ -1,14 +1,13 @@
 <?
 <?

-  require_once '../local_lib/HTML_DietMarco.php';
-  require_once '../local_lib/HTML_Login.php';
-  require_once 'DB.php';
+  require_once 'HTML_DietMarco.php';
+  require_once 'HTML_Login.php';

   require_once 'MECON/Usuario.php'; //Agregado MANAZAR
 
   if(isset($_POST['usuario']))
   {
     $userid = $_POST['usuario'];
   require_once 'MECON/Usuario.php'; //Agregado MANAZAR
 
   if(isset($_POST['usuario']))
   {
     $userid = $_POST['usuario'];

-    $ds = @ldap_connect( "ldapdist.mecon.ar" )
-    or $ds = @ldap_connect( "ldapmaster.mecon.ar" );
+    $ds = @ldap_connect( 'ldapdist.mecon.ar' )
+    or $ds = @ldap_connect( 'ldapmaster.mecon.ar' );

 
     if (! $ds) {
     //error connecting - return false
 
     if (! $ds) {
     //error connecting - return false


@@ -55,9 +54,7 @@
   {
     if(!isset($_SESSION['usuario']) )
     {
   {
     if(!isset($_SESSION['usuario']) )
     {

-      if((isset($_GET['redirect']) && $_GET['redirect'] == 'sistemas') ||
-         (isset($_POST['redirect']) && $_POST['redirect'] == 'sistemas'))
-      {
+      if (@$_REQUEST['redirect'] == 'sistemas' || @$_REQUEST['embperl']) {

            $m = new HTML_DietMarco('sistemas', 'Sistemas');
 //           $m->addTitle('Sistemas');
       }
            $m = new HTML_DietMarco('sistemas', 'Sistemas');
 //           $m->addTitle('Sistemas');
       }


@@ -86,16 +83,22 @@
   }
 
   if(isset($_SESSION['usuario']) && ! @ $error &&
   }
 
   if(isset($_SESSION['usuario']) && ! @ $error &&

-       (isset($_POST['redirect']) || isset($_GET['redirect'])))
+       (@$_REQUEST['redirect'])) 

   {
   {

-    @ $redirect = $_GET['redirect'].$_POST['redirect'];
-    $db = DB::Connect('mysql://intranet:intranet@bal747f/intranet');
+    $redirect = $_REQUEST['redirect'];

     $query = "SELECT link
               FROM servicio
               WHERE servicio = $redirect";
     $query = "SELECT link
               FROM servicio
               WHERE servicio = $redirect";

-    $link = $db->getOne($query);
-    if(PEAR::isError($link))
-      header('location: '.$redirect);
+    $link = $DB->getOne($query);
+    if(PEAR::isError($link)) {
+
+      if (@$_REQUEST['embperl']) {
+         header('Location: /Php2Embperl_Session?redirect='.$redirect);
+      }
+      else {
+         header('Location: '.$redirect);
+      }
+    }

     else
       header('location: '.$link);
   }
     else
       header('location: '.$link);
   }