]> err.no Git - scalable-opengroupware.org/blob - AnaisWeb/branches/skyrix/Commun/Session/creesessionanais.inc
adjusted for agenor.opengroupware.org.
[scalable-opengroupware.org] / 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
16   $_SESSION['maitre_serv_a'] = "213.211.192.156";\r
17   \r
18 // initialisation des variables session diverses\r
19   $_SESSION['dn_etiq_a']="";\r
20 \r
21   $_SESSION['lib_serv_a'] = ChercheDescription( $_SESSION['base_serv_a'] );\r
22 \r
23 }\r
24 \r
25 function ChercheDescription( $dn )\r
26 {\r
27
28  $wdesc="Inconnu";
29         $connect=ldap_connect($_SESSION['maitre_serv_a']);
30         
31         if($connect)
32         {
33   ldap_set_option($connect, LDAP_OPT_PROTOCOL_VERSION, 3);
34           
35   $bind=@ldap_bind($connect);
36   if($bind)
37   {
38                     $search=@ldap_read($connect, $dn, "objectclass=organizationalUnit");
39                 
40                     if($search)
41                     {
42                             $boites=ldap_get_entries($connect, $search);
43                         
44                             if($boites["count"]==1)
45                             {
46                                 $desc=$boites[0]["description"];
47                                 $wdesc=$desc[0];
48                             }
49                         @ldap_free_result($search);
50                     }
51                         }
52           @ldap_close($connect);
53  }
54  else
55  {
56         ?>
57           <script>
58             javascript:alert('Le serveur de messagerie ne peut etre joint.\\nRecommencez ulterieurement.');
59           </script>
60         <?
61  }
62   
63  return $wdesc;\r
64 }
65 ?>\r