|
Lines 178-183
warn "query ".$query if $DEBUG;
Link Here
|
| 178 |
$option1->option('databaseName', $server->{db}); |
178 |
$option1->option('databaseName', $server->{db}); |
| 179 |
$option1->option('user', $server->{userid} ) if $server->{userid}; |
179 |
$option1->option('user', $server->{userid} ) if $server->{userid}; |
| 180 |
$option1->option('password', $server->{password}) if $server->{password}; |
180 |
$option1->option('password', $server->{password}) if $server->{password}; |
|
|
181 |
$option1->option('charset', 'UTF-8') if $server->{encoding} eq 'utf8'; |
| 181 |
$option1->option('preferredRecordSyntax', $server->{syntax}); |
182 |
$option1->option('preferredRecordSyntax', $server->{syntax}); |
| 182 |
$option1->option( 'timeout', $server->{timeout} ) if ($server->{timeout}); |
183 |
$option1->option( 'timeout', $server->{timeout} ) if ($server->{timeout}); |
| 183 |
$oConnection[$s] = create ZOOM::Connection($option1) |
184 |
$oConnection[$s] = create ZOOM::Connection($option1) |
| 184 |
- |
|
|