Skip to content
Snippets Groups Projects
Commit 4df69ee6 authored by rswindell's avatar rswindell
Browse files

Default SSH port is 22 (not 513).

parent bf7acd60
Branches
Tags
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/sbbs3/ctrl/TelnetCfgDlgUnit.dfm
+ 161
− 161
View file @ 4df69ee6
...@@ -3,46 +3,46 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -3,46 +3,46 @@ object TelnetCfgDlg: TTelnetCfgDlg
Top = 354 Top = 354
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Telnet Server Configuration' Caption = 'Telnet Server Configuration'
ClientHeight = 234 ClientHeight = 288
ClientWidth = 286 ClientWidth = 352
Color = clBtnFace Color = clBtnFace
ParentFont = True ParentFont = True
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 120
TextHeight = 13 TextHeight = 16
object PageControl: TPageControl object PageControl: TPageControl
Left = 3 Left = 4
Top = 3 Top = 4
Width = 278 Width = 342
Height = 186 Height = 229
ActivePage = TelnetTabSheet ActivePage = SshTabSheet
TabIndex = 1 TabIndex = 3
TabOrder = 0 TabOrder = 0
object GeneralTabSheet: TTabSheet object GeneralTabSheet: TTabSheet
Caption = 'General' Caption = 'General'
object FirstNodeLabel: TLabel object FirstNodeLabel: TLabel
Left = 7 Left = 9
Top = 10 Top = 12
Width = 78 Width = 96
Height = 20 Height = 25
AutoSize = False AutoSize = False
Caption = 'First Node' Caption = 'First Node'
end end
object LastNodeLabel: TLabel object LastNodeLabel: TLabel
Left = 7 Left = 9
Top = 36 Top = 44
Width = 74 Width = 91
Height = 20 Height = 25
AutoSize = False AutoSize = False
Caption = 'Last Node' Caption = 'Last Node'
end end
object AutoStartCheckBox: TCheckBox object AutoStartCheckBox: TCheckBox
Left = 148 Left = 182
Top = 10 Top = 12
Width = 117 Width = 144
Height = 19 Height = 24
Hint = 'Automatically start Telnet server' Hint = 'Automatically start Telnet server'
Caption = 'Auto Startup' Caption = 'Auto Startup'
ParentShowHint = False ParentShowHint = False
...@@ -50,9 +50,9 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -50,9 +50,9 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 4 TabOrder = 4
end end
object FirstNodeEdit: TEdit object FirstNodeEdit: TEdit
Left = 85 Left = 105
Top = 10 Top = 12
Width = 39 Width = 48
Height = 21 Height = 21
Hint = 'First node number available for Telnet logins' Hint = 'First node number available for Telnet logins'
ParentShowHint = False ParentShowHint = False
...@@ -60,10 +60,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -60,10 +60,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 0 TabOrder = 0
end end
object XtrnMinCheckBox: TCheckBox object XtrnMinCheckBox: TCheckBox
Left = 148 Left = 182
Top = 36 Top = 44
Width = 117 Width = 144
Height = 20 Height = 25
Hint = 'External programs run in a minimized window' Hint = 'External programs run in a minimized window'
Caption = 'Minimize Externals' Caption = 'Minimize Externals'
ParentShowHint = False ParentShowHint = False
...@@ -71,9 +71,9 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -71,9 +71,9 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 5 TabOrder = 5
end end
object LastNodeEdit: TEdit object LastNodeEdit: TEdit
Left = 85 Left = 105
Top = 36 Top = 44
Width = 39 Width = 48
Height = 21 Height = 21
Hint = 'Last node number available for Telnet logins' Hint = 'Last node number available for Telnet logins'
ParentShowHint = False ParentShowHint = False
...@@ -81,10 +81,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -81,10 +81,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 1 TabOrder = 1
end end
object HostnameCheckBox: TCheckBox object HostnameCheckBox: TCheckBox
Left = 7 Left = 9
Top = 88 Top = 108
Width = 117 Width = 144
Height = 19 Height = 24
Hint = 'Automatically lookup client'#39's hostname via DNS' Hint = 'Automatically lookup client'#39's hostname via DNS'
Caption = 'Hostname Lookup' Caption = 'Hostname Lookup'
ParentShowHint = False ParentShowHint = False
...@@ -92,10 +92,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -92,10 +92,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 2 TabOrder = 2
end end
object QWKEventsCheckBox: TCheckBox object QWKEventsCheckBox: TCheckBox
Left = 148 Left = 182
Top = 88 Top = 108
Width = 117 Width = 144
Height = 20 Height = 25
Hint = 'Handle QWK Message Packet Events in This Instance' Hint = 'Handle QWK Message Packet Events in This Instance'
Caption = 'QWK Msg Events' Caption = 'QWK Msg Events'
ParentShowHint = False ParentShowHint = False
...@@ -103,10 +103,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -103,10 +103,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 6 TabOrder = 6
end end
object JavaScriptCheckBox: TCheckBox object JavaScriptCheckBox: TCheckBox
Left = 148 Left = 182
Top = 114 Top = 140
Width = 117 Width = 144
Height = 20 Height = 25
Hint = 'Enable JavaScript Support' Hint = 'Enable JavaScript Support'
Caption = 'JavaScript Support' Caption = 'JavaScript Support'
ParentShowHint = False ParentShowHint = False
...@@ -114,10 +114,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -114,10 +114,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 7 TabOrder = 7
end end
object IdentityCheckBox: TCheckBox object IdentityCheckBox: TCheckBox
Left = 7 Left = 9
Top = 114 Top = 140
Width = 117 Width = 144
Height = 19 Height = 24
Hint = 'Automatically lookup client'#39's identity via IDENT protocol' Hint = 'Automatically lookup client'#39's identity via IDENT protocol'
Caption = 'Identity Lookup' Caption = 'Identity Lookup'
ParentShowHint = False ParentShowHint = False
...@@ -125,10 +125,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -125,10 +125,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 3 TabOrder = 3
end end
object EventsCheckBox: TCheckBox object EventsCheckBox: TCheckBox
Left = 148 Left = 182
Top = 62 Top = 76
Width = 117 Width = 144
Height = 20 Height = 25
Hint = 'Enable the events thread' Hint = 'Enable the events thread'
Caption = 'Events Enabled' Caption = 'Events Enabled'
ParentShowHint = False ParentShowHint = False
...@@ -140,26 +140,26 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -140,26 +140,26 @@ object TelnetCfgDlg: TTelnetCfgDlg
Caption = 'Telnet' Caption = 'Telnet'
ImageIndex = 1 ImageIndex = 1
object InterfaceLabel: TLabel object InterfaceLabel: TLabel
Left = 7 Left = 9
Top = 36 Top = 44
Width = 78 Width = 96
Height = 21 Height = 26
AutoSize = False AutoSize = False
Caption = 'Interface (IP)' Caption = 'Interface (IP)'
end end
object TelnetPortLabel: TLabel object TelnetPortLabel: TLabel
Left = 7 Left = 9
Top = 10 Top = 12
Width = 78 Width = 96
Height = 21 Height = 26
AutoSize = False AutoSize = False
Caption = 'Listening Port' Caption = 'Listening Port'
end end
object CmdLogCheckBox: TCheckBox object CmdLogCheckBox: TCheckBox
Left = 7 Left = 9
Top = 88 Top = 108
Width = 169 Width = 208
Height = 21 Height = 26
Hint = 'Log (debug) all transmitted and received Telnet commands' Hint = 'Log (debug) all transmitted and received Telnet commands'
Caption = 'Log Telnet Commands' Caption = 'Log Telnet Commands'
ParentShowHint = False ParentShowHint = False
...@@ -167,10 +167,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -167,10 +167,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 3 TabOrder = 3
end end
object TelnetInterfaceEdit: TEdit object TelnetInterfaceEdit: TEdit
Left = 85 Left = 105
Top = 36 Top = 44
Width = 156 Width = 192
Height = 21 Height = 24
Hint = Hint =
'Enter your Network adapter'#39's static IP address here or blank for' + 'Enter your Network adapter'#39's static IP address here or blank for' +
' <ANY>' ' <ANY>'
...@@ -179,20 +179,20 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -179,20 +179,20 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 1 TabOrder = 1
end end
object TelnetPortEdit: TEdit object TelnetPortEdit: TEdit
Left = 85 Left = 105
Top = 10 Top = 12
Width = 39 Width = 48
Height = 21 Height = 24
Hint = 'TCP port for incoming connections (default=23)' Hint = 'TCP port for incoming connections (default=23)'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
end end
object TelnetGaCheckBox: TCheckBox object TelnetGaCheckBox: TCheckBox
Left = 7 Left = 9
Top = 62 Top = 76
Width = 169 Width = 208
Height = 21 Height = 26
Hint = Hint =
'Send periodic Telnet GA commands to help detect dropped connecti' + 'Send periodic Telnet GA commands to help detect dropped connecti' +
'ons' 'ons'
...@@ -202,10 +202,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -202,10 +202,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 2 TabOrder = 2
end end
object AutoLogonCheckBox: TCheckBox object AutoLogonCheckBox: TCheckBox
Left = 7 Left = 9
Top = 114 Top = 140
Width = 117 Width = 144
Height = 19 Height = 24
Hint = 'Allow V-exempt users to auto-logon based on their IP address' Hint = 'Allow V-exempt users to auto-logon based on their IP address'
Caption = 'AutoLogon via IP' Caption = 'AutoLogon via IP'
ParentShowHint = False ParentShowHint = False
...@@ -217,25 +217,25 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -217,25 +217,25 @@ object TelnetCfgDlg: TTelnetCfgDlg
Caption = 'RLogin' Caption = 'RLogin'
ImageIndex = 3 ImageIndex = 3
object RLoginPortLabel: TLabel object RLoginPortLabel: TLabel
Left = 7 Left = 9
Top = 10 Top = 12
Width = 78 Width = 96
Height = 21 Height = 26
AutoSize = False AutoSize = False
Caption = 'Listening Port' Caption = 'Listening Port'
end end
object RLoginInterfaceLabel: TLabel object RLoginInterfaceLabel: TLabel
Left = 7 Left = 9
Top = 36 Top = 44
Width = 78 Width = 96
Height = 21 Height = 26
AutoSize = False AutoSize = False
Caption = 'Interface (IP)' Caption = 'Interface (IP)'
end end
object RLoginPortEdit: TEdit object RLoginPortEdit: TEdit
Left = 85 Left = 105
Top = 10 Top = 12
Width = 39 Width = 48
Height = 21 Height = 21
Hint = 'TCP port for incoming connections (default=513)' Hint = 'TCP port for incoming connections (default=513)'
ParentShowHint = False ParentShowHint = False
...@@ -243,9 +243,9 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -243,9 +243,9 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 0 TabOrder = 0
end end
object RLoginInterfaceEdit: TEdit object RLoginInterfaceEdit: TEdit
Left = 85 Left = 105
Top = 36 Top = 44
Width = 156 Width = 192
Height = 21 Height = 21
Hint = Hint =
'Enter your Network adapter'#39's static IP address here or blank for' + 'Enter your Network adapter'#39's static IP address here or blank for' +
...@@ -255,10 +255,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -255,10 +255,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 2 TabOrder = 2
end end
object RLoginEnabledCheckBox: TCheckBox object RLoginEnabledCheckBox: TCheckBox
Left = 184 Left = 226
Top = 10 Top = 12
Width = 73 Width = 90
Height = 17 Height = 21
Hint = 'Enable the RLogin port' Hint = 'Enable the RLogin port'
Caption = 'Enabled' Caption = 'Enabled'
ParentShowHint = False ParentShowHint = False
...@@ -267,10 +267,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -267,10 +267,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
OnClick = RLoginEnabledCheckBoxClick OnClick = RLoginEnabledCheckBoxClick
end end
object RLoginIPallowButton: TButton object RLoginIPallowButton: TButton
Left = 158 Left = 194
Top = 62 Top = 76
Width = 83 Width = 103
Height = 21 Height = 26
Hint = 'IP addresses of trusted hosts to allow RLogins from' Hint = 'IP addresses of trusted hosts to allow RLogins from'
Caption = 'Allowed IPs' Caption = 'Allowed IPs'
ParentShowHint = False ParentShowHint = False
...@@ -279,10 +279,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -279,10 +279,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
OnClick = RLoginIPallowButtonClick OnClick = RLoginIPallowButtonClick
end end
object RLogin2ndNameCheckBox: TCheckBox object RLogin2ndNameCheckBox: TCheckBox
Left = 7 Left = 9
Top = 62 Top = 76
Width = 138 Width = 169
Height = 21 Height = 26
Hint = 'Use 2nd RLogin account name for the BBS user name' Hint = 'Use 2nd RLogin account name for the BBS user name'
Caption = 'Use 2nd Login Name' Caption = 'Use 2nd Login Name'
ParentShowHint = False ParentShowHint = False
...@@ -294,36 +294,36 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -294,36 +294,36 @@ object TelnetCfgDlg: TTelnetCfgDlg
Caption = 'SSH' Caption = 'SSH'
ImageIndex = 4 ImageIndex = 4
object SshPortLabel: TLabel object SshPortLabel: TLabel
Left = 7 Left = 9
Top = 10 Top = 12
Width = 78 Width = 96
Height = 21 Height = 26
AutoSize = False AutoSize = False
Caption = 'Listening Port' Caption = 'Listening Port'
end end
object SshInterfaceLabel: TLabel object SshInterfaceLabel: TLabel
Left = 7 Left = 9
Top = 36 Top = 44
Width = 78 Width = 96
Height = 21 Height = 26
AutoSize = False AutoSize = False
Caption = 'Interface (IP)' Caption = 'Interface (IP)'
end end
object SshPortEdit: TEdit object SshPortEdit: TEdit
Left = 85 Left = 105
Top = 10 Top = 12
Width = 39 Width = 48
Height = 21 Height = 24
Hint = 'TCP port for incoming connections (default=513)' Hint = 'TCP port for incoming connections (default=22)'
ParentShowHint = False ParentShowHint = False
ShowHint = True ShowHint = True
TabOrder = 0 TabOrder = 0
end end
object SshEnabledCheckBox: TCheckBox object SshEnabledCheckBox: TCheckBox
Left = 184 Left = 226
Top = 10 Top = 12
Width = 73 Width = 90
Height = 17 Height = 21
Hint = 'Enable the Secure Shell (SSH) port' Hint = 'Enable the Secure Shell (SSH) port'
Caption = 'Enabled' Caption = 'Enabled'
ParentShowHint = False ParentShowHint = False
...@@ -332,10 +332,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -332,10 +332,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
OnClick = SshEnabledCheckBoxClick OnClick = SshEnabledCheckBoxClick
end end
object SshInterfaceEdit: TEdit object SshInterfaceEdit: TEdit
Left = 85 Left = 105
Top = 36 Top = 44
Width = 156 Width = 192
Height = 21 Height = 24
Hint = Hint =
'Enter your Network adapter'#39's static IP address here or blank for' + 'Enter your Network adapter'#39's static IP address here or blank for' +
' <ANY>' ' <ANY>'
...@@ -348,25 +348,25 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -348,25 +348,25 @@ object TelnetCfgDlg: TTelnetCfgDlg
Caption = 'Sound' Caption = 'Sound'
ImageIndex = 2 ImageIndex = 2
object AnswerSoundLabel: TLabel object AnswerSoundLabel: TLabel
Left = 7 Left = 9
Top = 10 Top = 12
Width = 52 Width = 64
Height = 20 Height = 25
AutoSize = False AutoSize = False
Caption = 'Answer' Caption = 'Answer'
end end
object HnagupSoundLabel: TLabel object HnagupSoundLabel: TLabel
Left = 7 Left = 9
Top = 36 Top = 44
Width = 52 Width = 64
Height = 20 Height = 25
AutoSize = False AutoSize = False
Caption = 'Hangup' Caption = 'Hangup'
end end
object AnswerSoundEdit: TEdit object AnswerSoundEdit: TEdit
Left = 72 Left = 89
Top = 10 Top = 12
Width = 169 Width = 208
Height = 21 Height = 21
Hint = 'Sound file to play when accepting an incoming connection' Hint = 'Sound file to play when accepting an incoming connection'
ParentShowHint = False ParentShowHint = False
...@@ -374,18 +374,18 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -374,18 +374,18 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 0 TabOrder = 0
end end
object AnswerSoundButton: TButton object AnswerSoundButton: TButton
Left = 247 Left = 304
Top = 10 Top = 12
Width = 20 Width = 25
Height = 21 Height = 26
Caption = '...' Caption = '...'
TabOrder = 1 TabOrder = 1
OnClick = AnswerSoundButtonClick OnClick = AnswerSoundButtonClick
end end
object HangupSoundEdit: TEdit object HangupSoundEdit: TEdit
Left = 72 Left = 89
Top = 36 Top = 44
Width = 169 Width = 208
Height = 21 Height = 21
Hint = 'Sound file to play when disconnecting' Hint = 'Sound file to play when disconnecting'
ParentShowHint = False ParentShowHint = False
...@@ -393,10 +393,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -393,10 +393,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
TabOrder = 2 TabOrder = 2
end end
object HangupSoundButton: TButton object HangupSoundButton: TButton
Left = 247 Left = 304
Top = 36 Top = 44
Width = 20 Width = 25
Height = 21 Height = 26
Caption = '...' Caption = '...'
TabOrder = 3 TabOrder = 3
OnClick = HangupSoundButtonClick OnClick = HangupSoundButtonClick
...@@ -404,10 +404,10 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -404,10 +404,10 @@ object TelnetCfgDlg: TTelnetCfgDlg
end end
end end
object OKBtn: TButton object OKBtn: TButton
Left = 20 Left = 25
Top = 201 Top = 247
Width = 76 Width = 93
Height = 25 Height = 31
Caption = 'OK' Caption = 'OK'
Default = True Default = True
ModalResult = 1 ModalResult = 1
...@@ -415,20 +415,20 @@ object TelnetCfgDlg: TTelnetCfgDlg ...@@ -415,20 +415,20 @@ object TelnetCfgDlg: TTelnetCfgDlg
OnClick = OKBtnClick OnClick = OKBtnClick
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 104 Left = 128
Top = 201 Top = 247
Width = 75 Width = 92
Height = 25 Height = 31
Cancel = True Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
ModalResult = 2 ModalResult = 2
TabOrder = 2 TabOrder = 2
end end
object ApplyBtn: TButton object ApplyBtn: TButton
Left = 189 Left = 233
Top = 201 Top = 247
Width = 76 Width = 93
Height = 25 Height = 31
Cancel = True Cancel = True
Caption = 'Apply' Caption = 'Apply'
TabOrder = 3 TabOrder = 3
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment