|
Lines 202-207
warn "query ".$query if $DEBUG;
Link Here
|
| 202 |
$option1->option( 'user', $server->{userid} ) if $server->{userid}; |
202 |
$option1->option( 'user', $server->{userid} ) if $server->{userid}; |
| 203 |
$option1->option( 'password', $server->{password} ) |
203 |
$option1->option( 'password', $server->{password} ) |
| 204 |
if $server->{password}; |
204 |
if $server->{password}; |
|
|
205 |
$option1->option('charset', 'UTF-8') if $server->{encoding} eq 'utf8'; |
| 205 |
$option1->option( 'preferredRecordSyntax', $server->{syntax} ); |
206 |
$option1->option( 'preferredRecordSyntax', $server->{syntax} ); |
| 206 |
$oConnection[$s] = create ZOOM::Connection($option1) |
207 |
$oConnection[$s] = create ZOOM::Connection($option1) |
| 207 |
|| $DEBUG |
208 |
|| $DEBUG |
| 208 |
- |
|
|