fhiiqm/test/ldap_test.php
author Bettina Schwarzer
Thu, 12 Sep 2013 09:04:56 +0200
changeset 40 6f4b105daa24
permissions -rw-r--r--
+Keytyp Korrekturen, LDAP Authentifizierung
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
40
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     1
<?php
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     2
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     3
/**
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     4
 * @author Bettina Schwarzer - Fritz-Haber-Institut
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     5
 * @copyright 08/2013
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     6
 * 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     7
 * LDAP Test
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     8
 */
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
     9
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    10
    error_reporting(E_ALL ^ E_NOTICE);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    11
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    12
$ldaphost = "ldap.rz-berlin.mpg.de";  // Ihr ldap servers
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    13
$ldapport = 389;                 // Die Portnummer ihres ldap servers
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    14
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    15
echo "<p>Test Verbindung zu LDAP</p>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    16
// Verbindung zu LDAP
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    17
 $ldapconn = ldap_connect( $ldaphost, $ldapport ) 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    18
          or die( "Keine Verbindung zu {$ldaphost} möglich" );
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    19
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    20
if ($ldapconn)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    21
{ 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    22
    echo "Verbindung zu LDAP erfolgreich -> $ldapconn<br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    23
    $login  = $_POST["login"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    24
    $log    = $_POST["log"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    25
?>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    26
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    27
    <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    28
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    29
    <head>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    30
    <!--	<meta http-equiv="content-type" content="text/html; charset=iso-8859-1" /> -->
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    31
    	<meta http-equiv="content-type" content="text/html; charset=utf-8" /> 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    32
       	<link href="/fhiiqm/css/db.css" rel="STYLESHEET" type="TEXT/CSS" /> 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    33
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    34
    	<title>LDAP + fhiiqm</title>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    35
    </head>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    36
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    37
    <body onload="document.flogin.user.focus();">
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    38
<?php
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    39
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    40
    if (!$log)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    41
        {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    42
                include ($_SERVER['DOCUMENT_ROOT'] ."/fhiiqm/form/login_form.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    43
        }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    44
    else 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    45
    {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    46
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    47
//        $ldaprdn = "cn=admin,dc=rz-berlin,dc=mpg,dc=de";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    48
//        $ldappwd = 'ooboot';
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    49
        $ldaprdn = "uid=" . $log["user"].",ou=people,dc=ppb,dc=rz-berlin,dc=mpg,dc=de";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    50
        $ldappwd = $log["pass"];
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    51
        echo "rdn =  $ldaprdn<br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    52
        ldap_set_option($ldapconn, LDAP_OPT_PROTOCOL_VERSION, 3);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    53
        ldap_set_option($ldapconn, LDAP_OPT_REFERRALS, 0);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    54
        $ldapbind = @ldap_bind($ldapconn, $ldaprdn, $ldappwd);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    55
    //    $ldapbind = @ldap_bind($ldapconn);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    56
    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    57
        $base="ou=people,dc=ppb,dc=rz-berlin,dc=mpg,dc=de";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    58
        if ($ldapbind)
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    59
        {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    60
            echo "<p>Authentifizierung erfolgreich!</p>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    61
            // Enable to show everything
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    62
            $filter = "(sn=*)"; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    63
            $afields = array ("uid","cn","givenName","sn","title","userPassword","mail");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    64
            $afieldsort = array ("uid","givenName","sn");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    65
            // search active directory
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    66
            if (!($search=@ldap_search($ldapconn,$base,$filter,$afields))) {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    67
                die("Unable to search ldap server");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    68
                }  
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    69
            foreach ($afieldsort as $esort) 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    70
            {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    71
                if (in_array($esort, $afields)) { // making sure we don't accidentally try to sort against an inexisting field
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    72
                    ldap_sort($ldapconn, $search, $esort);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    73
                }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    74
            }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    75
            // Find out what we can see
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    76
            $number_returned = ldap_count_entries($ldapconn,$search);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    77
            $info = ldap_get_entries($ldapconn, $search);   
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    78
            
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    79
            //Number of hits
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    80
            echo "<p>number of entries " . $number_returned . $newline ."</p>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    81
    		$bg1 = "#F8F8F8";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    82
    		$bg2 = "#DEDFE1";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    83
    		$bg = "#FFFFFF";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    84
         
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    85
            echo "<div align='center'>\n";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    86
            echo "<table border='0' cellspacing='2' cellpadding='2'>\n
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    87
                    <tr bgcolor='#68ACBF'><th>sn</th><th>givenName</th><th>cn</th><th>title</th><th>uid</th><th>userPassword</th><th>mail</th></tr>\n";  
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    88
            for ($i=0; $i<$info["count"]; $i++) 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    89
            {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    90
//                if ($info[$i]["uid"][0] == $log["user"])
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    91
                {
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    92
           			if ($bg == $bg1) $bg = $bg2; else $bg = $bg1;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    93
                    echo "<tr bgcolor='" . $bg . "'>";    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    94
                    echo "<td>". $i. "&nbsp;".$info[$i]["sn"][0]."</td>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    95
                    echo "<td>". $info[$i]["givenname"][0]."</td>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    96
                    echo "<td>". $info[$i]["cn"][0]."</td>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    97
                    echo "<td>". $info[$i]["title"][0]."</td>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    98
                    echo "<td>". $info[$i]["uid"][0]."</td>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
    99
                    echo "<td>". $info[$i]["userpassword"][0]."</td>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   100
                    echo "<td>". $info[$i]["mail"][0]."</td>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   101
                    echo "</tr>\n"; 
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   102
                }   
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   103
            }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   104
            echo "</table>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   105
            echo "</div>\n<br /><br />";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   106
//            ldap_close($ldapconn);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   107
/*            
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   108
            //LDAP-Einträge - Test         
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   109
            include_once($_SERVER["DOCUMENT_ROOT"]."/fhiiqm/inc/func_lib.inc.php");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   110
            $sn = "Kändler";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   111
            $gn = "Jörn";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   112
            $title = "Dr.";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   113
            $roomnr = "A 2.06";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   114
            $tel = array("3150", "3153 FAX");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   115
            $mail = null;
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   116
            $dep = "VW";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   117
            $ag = array("Verwaltung VL/AdGf");
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   118
            $success = ldap_replace($sn,$gn,$title,$roomnr,$tel,$mail,$dep,$ag);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   119
            $gn = utf8_encode($gn);
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   120
            $sn = utf8_encode($sn);    
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   121
            if ($success) echo "<p>Hurra, Daten fuer user '$gn $sn' wurden in LDAP eingetragen!</p>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   122
            else echo "<p>LDAP-Aktualisierung fuer user '$gn $sn' ist leider fehlgeschlagen. :-(</p>";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   123
*/
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   124
        }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   125
    }
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   126
}
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   127
else echo "Verbindung zu LDAP failed -> $ldapconn";
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   128
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   129
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   130
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   131
?>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   132
</body>
6f4b105daa24 +Keytyp Korrekturen, LDAP Authentifizierung
Bettina Schwarzer
parents:
diff changeset
   133
</html>