39 |
|
|
40 |
require 'config.pl' if -e 'config.pl'; |
require 'config.pl' if -e 'config.pl'; |
41 |
|
|
|
my $dbh = DBI->connect($dsn . $database, $user,$passwd, { RaiseError => 1, AutoCommit => 1 }) || die $DBI::errstr; |
|
|
|
|
42 |
# we need reverse LDAP -> SQL mapping for where clause |
# we need reverse LDAP -> SQL mapping for where clause |
43 |
|
|
44 |
my $ldap_sql_mapping = { |
my $ldap_sql_mapping = { |
206 |
; |
; |
207 |
|
|
208 |
warn "# SQL:\n$sql\n# DATA: ",dump( @values ); |
warn "# SQL:\n$sql\n# DATA: ",dump( @values ); |
209 |
|
my $dbh = DBI->connect_cached($dsn . $database, $user,$passwd, { RaiseError => 1, AutoCommit => 1 }) || die $DBI::errstr; |
210 |
my $sth = $dbh->prepare( $sql ); |
my $sth = $dbh->prepare( $sql ); |
211 |
$sth->execute( @values ); |
$sth->execute( @values ); |
212 |
|
|