Parent Directory | Revision Log | Patch
revision 32 by dpavlin, Mon Mar 23 20:26:48 2009 UTC | revision 33 by dpavlin, Mon Mar 23 21:31:49 2009 UTC | |
---|---|---|
# | Line 26 require 'config.pl' if -e 'config.pl'; | Line 26 require 'config.pl' if -e 'config.pl'; |
26 | ||
27 | my $dbh = DBI->connect($dsn . $database, $user,$passwd, { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr; | my $dbh = DBI->connect($dsn . $database, $user,$passwd, { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr; |
28 | ||
29 | # Net::LDAP::Entry will lc all our attribute names anyway, so | |
30 | # we don't really care about correctCapitalization for LDAP | |
31 | # attributes which won't pass through DBI | |
32 | my $sth = $dbh->prepare(q{ | my $sth = $dbh->prepare(q{ |
33 | select | select |
34 | userid as uid, | userid as uid, |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |