]> git.llucax.com Git - mecon/intranet.git/blob - sistema/www/login.php
Bugfixes y actualizacion de documentacion.
[mecon/intranet.git] / sistema / www / login.php
1 <?
2   require_once 'HTML_DietMarco.php';
3   require_once 'HTML_Login.php';
4   require_once 'MECON/Usuario.php'; //Agregado MANAZAR
5
6   if(isset($_POST['usuario']))
7   {
8     $userid = $_POST['usuario'];
9     $ds = @ldap_connect( 'ldapdist.mecon.ar' )
10     or $ds = @ldap_connect( 'ldapmaster.mecon.ar' );
11
12     if (! $ds) {
13     //error connecting - return false
14       echo "Error conectando!\n";
15     }
16     @ list( $uid, $domain ) = split( "@", $userid );
17     if(is_null($uid) || is_null($domain))
18       $error = true;
19
20     $r = @ ldap_bind($ds, "uid=$uid,ou=Personas,o=$domain,o=gov.ar", $_POST['password']);
21     if ($r) {
22       $sr   = @ ldap_search($ds, "ou=Personas,o=$domain,o=gov.ar", "uid=$uid");
23       $info = @ ldap_get_entries($ds, $sr);
24     }
25     else
26       $error = true;
27     ldap_close($ds);
28     if (! @ $sr) {
29     //error reading / authenticating  - return false
30       $error = true;
31     }
32     else
33     {
34       if(! @ $_POST['usuario'] || ! @ $info[0]['uidnumber'][0])
35         $error = true;
36       else
37       {
38         $_SESSION['usuario'] = $_POST['usuario'];
39         $_SESSION['documento'] =  $info[0]['uidnumber'][0];
40         // Agregado por culpa de Aldoros
41         $aux = split('-',$_SESSION['documento']);
42         $_SESSION['documento'] = (count($aux) == 3) ? $aux[1] : $aux[0];
43         // Agregado MANAZAR
44         $MECON_DNI=  $info[0]['uidnumber'][0];
45         $MECON_NOMBRE=   $info[0]['sn'][0]." ".$info[0]['givenname'][0];
46         $MECON_LOGIN=  $_POST['usuario'];
47         $usuario=& new MECON_USUARIO();
48         $usuario->Insertar_Usuario($MECON_DNI,$MECON_LOGIN,$MECON_NOMBRE);
49         // Fin Agregado MANAZAR
50       }
51     }
52   }
53   
54   {
55     if(!isset($_SESSION['usuario']) )
56     {
57       if (@$_REQUEST['redirect'] == 'sistemas' || @$_REQUEST['embperl']) {
58            $m = new HTML_DietMarco('sistemas', 'Sistemas');
59 //           $m->addTitle('Sistemas');
60       }
61       else
62       {
63            $m = new HTML_DietMarco('servicios', 'Servicios');
64 //           $m->addTitle('Servicios');
65       }
66     
67       $login = new HTML_Login();
68       if(isset($error) && $error == 1)
69       $login->login_incorrecto = true;//FIXME terminar de prgramar cuando haya ldap
70       $t = new HTML_Table(array('width'       => 760,
71                                 'align'       => 'center',
72                                 'cellspacing' => 0,
73                                 'cellpadding' => 0,
74                                 'border'      => 0,
75                                 'valign'      => 'middle',
76                                 'height'      => 200));
77       $t->addRow(array($login));
78  
79       $m->addStyleSheet($login->getCSS());
80       $m->addBodyContent($t);
81       $m->display();
82     }
83   }
84
85   if(isset($_SESSION['usuario']) && ! @ $error &&
86        (@$_REQUEST['redirect'])) 
87   {
88     $redirect = $_REQUEST['redirect'];
89     $query = "SELECT link
90               FROM servicio
91               WHERE servicio = $redirect";
92     $link = $DB->getOne($query);
93     if(PEAR::isError($link)) {
94
95       if (@$_REQUEST['embperl']) {
96          header('Location: /Php2Embperl_Session?redirect='.$redirect);
97       }
98       else {
99          header('Location: '.$redirect);
100       }
101     }
102     else
103       header('location: '.$link);
104   }
105
106 ?>