| 233 |
|
Opts := TStringList.Create; |
| 234 |
|
NonOpts := TStringList.Create; |
| 235 |
|
try |
| 236 |
< |
ErrorMsg := CheckOptions('aAhbegu:i:o:p:r:s:t:',['help','user','pass','role'],Opts,NonOpts); |
| 236 |
> |
ErrorMsg := CheckOptions('aAhbegu:i:o:p:r:s:t:c:',['help','user','pass','role'],Opts,NonOpts); |
| 237 |
|
{Database name is last parameter if given and not an option} |
| 238 |
|
if (NonOpts.Count > 0) and ((Opts.Count = 0) or |
| 239 |
|
((Opts.ValueFromIndex[Opts.Count-1] <> NonOpts[NonOpts.Count-1])) or |
| 333 |
|
if HasOption('u','user') then |
| 334 |
|
FIBDatabase.Params.Values['user_name'] := GetOptionValue('u','user'); |
| 335 |
|
|
| 336 |
+ |
if HasOption('c','charset') then |
| 337 |
+ |
FIBDatabase.Params.Values['lc_ctype'] := GetOptionValue('c','charset'); |
| 338 |
+ |
|
| 339 |
|
{Validation} |
| 340 |
|
|
| 341 |
|
FIBDatabase.LoginPrompt := (FIBDatabase.Params.IndexOfName('user_name') <> -1) and |
| 449 |
|
writeln(stderr,' CSV for CSV format'); |
| 450 |
|
writeln(stderr,' INS for Insert Statement format'); |
| 451 |
|
writeln(stderr,'-u <username> open database with this username (defaults to SYSDBA)'); |
| 452 |
+ |
writeln(stderr,'-c <character set name> connection charset'); |
| 453 |
|
writeln; |
| 454 |
|
writeln(stderr,'Environment Variables:'); |
| 455 |
|
writeln(stderr,'ISC_USER Login user Name'); |
