err.no Git - scalable-opengroupware.org/blob - AnaisWeb/branches/skyrix/Commun/Session/creesessionanais.inc

   1 <?\r
   2 \r
   3 if( ! isset($_SESSION['charge_a']) )\r
   4 {\r
   5 // flag precisant si l arborescence a ete deja chargee ou non\r
   6   $_SESSION['charge_a'] = 0;\r
   7 \r
   8                 $_SESSION['arbre_a']=array();
   9
  10                 $_SESSION['arbre_a_data']=array();
  11
  12                 $_SESSION['niveau_data_a']=array();
  13
  14 //  $_SESSION['base_serv_a'] = "ou=melanie,ou=organisation,dc=equipement,dc=gouv,dc=fr";\r
  15   $_SESSION['base_serv_a'] = "base_de_recherche_dans_l_annuaire";\r
  16
  17   $_SESSION['maitre_serv_a'] = "xxx.xxx.xxx.xxx";\r
  18   \r
  19 // initialisation des variables session diverses\r
  20   $_SESSION['dn_etiq_a']="";\r
  21 \r
  22   $_SESSION['lib_serv_a'] = ChercheDescription( $_SESSION['base_serv_a'] );\r
  23 \r
  24 }\r
  25 \r
  26 function ChercheDescription( $dn )\r
  27 {\r
  28
  29  $wdesc="Inconnu";
  30         $connect=ldap_connect($_SESSION['maitre_serv_a']);
  31
  32         if($connect)
  33         {
  34   ldap_set_option($connect, LDAP_OPT_PROTOCOL_VERSION, 3);
  35
  36   $bind=@ldap_bind($connect);
  37   if($bind)
  38   {
  39                     $search=@ldap_read($connect, $dn, "objectclass=organizationalUnit");
  40
  41                     if($search)
  42                     {
  43                             $boites=ldap_get_entries($connect, $search);
  44
  45                             if($boites["count"]==1)
  46                             {
  47                                 $desc=$boites[0]["description"];
  48                                 $wdesc=$desc[0];
  49                             }
  50                         @ldap_free_result($search);
  51                     }
  52                         }
  53           @ldap_close($connect);
  54  }
  55  else
  56  {
  57         ?>
  58           <script>
  59             javascript:alert('Le serveur de messagerie ne peut etre joint.\\nRecommencez ulterieurement.');
  60           </script>
  61         <?
  62  }
  63
  64  return $wdesc;\r
  65 }
  66 ?>\r