Issue #401: Extend SSH tunnel options: Allow user to set SHH host/ip and port, and a private key file used for authentication. If SSH host is not set, use what the user specified as MySQL server host.

This commit is contained in:
Ansgar Becker
2010-04-01 23:34:07 +00:00
parent 7e80d8dd34
commit adf68ecc65
5 changed files with 157 additions and 36 deletions

View File

@ -3608,9 +3608,12 @@ begin
Result.Username := GetRegValue(REGNAME_USER, '', Session);
Result.Password := decrypt(GetRegValue(REGNAME_PASSWORD, '', Session));
Result.Port := StrToIntDef(GetRegValue(REGNAME_PORT, '', Session), DEFAULT_PORT);
Result.SSHHost := GetRegValue(REGNAME_SSHHOST, '', Session);
Result.SSHPort := GetRegValue(REGNAME_SSHPORT, DEFAULT_SSHPORT, Session);
Result.SSHUser := GetRegValue(REGNAME_SSHUSER, '', Session);
Result.SSHPassword := decrypt(GetRegValue(REGNAME_SSHPASSWORD, '', Session));
Result.SSHPort := GetRegValue(REGNAME_SSHPORT, 0, Session);
Result.SSHPrivateKey := GetRegValue(REGNAME_SSHKEY, '', Session);
Result.SSHLocalPort := GetRegValue(REGNAME_SSHLOCALPORT, 0, Session);
Result.SSHPlinkExe := GetRegValue(REGNAME_PLINKEXE, '');
Result.SSLPrivateKey := GetRegValue(REGNAME_SSL_KEY, '', Session);
Result.SSLCertificate := GetRegValue(REGNAME_SSL_CERT, '', Session);