#! /usr/bin/perl -w # # $conn = new Mozilla::LDAP::Conn ( $LDAP_HOST, $LDAP_PORT, $BIND_DN, $BIND_PW ); $LDAP_HOST = "our_server.com"; $LDAP_PORT = "111"; $BIND_DN = ""; $BIND_PW = ""; # Establish a new LDAP connection $conn = new Mozilla::LDAP::Conn ( $LDAP_HOST, $LDAP_PORT, $BIND_DN, $BIND_PW ); if( !$conn ) { die( "Could not connect to the directory $LDAP_HOST:$LDAP_PORT\n" ); } else { print( "Successfully connected to the directory $LDAP_HOST:$LDAP_PORT\n" ); } # Close the LDAP conenction $conn->close(); $vHTML_TXT_OUT = <

Test

txt_out print $vHTML_TXT_OUT;