File: ldap-test.pl

package info (click to toggle)
libauthen-sasl-cyrus-perl 0.02-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 76 kB
  • ctags: 13
  • sloc: perl: 163; makefile: 55
file content (14 lines) | stat: -rwxr-xr-x 342 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl -I../blib/lib -I../blib/arch

use Net::LDAP;
use Authen::SASL;

$ldap = Net::LDAP->new('loki.dcs.ed.ac.uk') or die "$@";
$sasl = Authen::SASL->new('GSSAPI',
			  fqdn =>'loki.dcs.ed.ac.uk', 
			  service =>'ldap',
			  user =>'sxw');

$mesg = $ldap->bind("",sasl => $sasl, version=> 3);
print "Message is ",$mesg->code,"\n";