--- sbbs/sbbs3/ctrl/ftpcfgdlgunit.dfm	2018/04/24 16:39:34	1.1.1.1
+++ sbbs/sbbs3/ctrl/ftpcfgdlgunit.dfm	2018/04/24 16:40:57	1.1.1.2
@@ -1,63 +1,75 @@
 object FtpCfgDlg: TFtpCfgDlg
-  Left = 466
-  Top = 622
+  Left = 600
+  Top = 428
   BorderStyle = bsDialog
   Caption = 'FTP Server Configuration'
-  ClientHeight = 288
+  ClientHeight = 301
   ClientWidth = 352
   Color = clBtnFace
   ParentFont = True
   OldCreateOrder = True
   Position = poScreenCenter
   OnShow = FormShow
+  DesignSize = (
+    352
+    301)
   PixelsPerInch = 120
   TextHeight = 16
   object PageControl: TPageControl
     Left = 4
     Top = 4
     Width = 342
-    Height = 229
-    ActivePage = GeneralTabSheet
+    Height = 245
+    ActivePage = SoundTabSheet
+    TabIndex = 3
     TabOrder = 0
     object GeneralTabSheet: TTabSheet
       Caption = 'General'
       object MaxClientesLabel: TLabel
         Left = 9
-        Top = 102
+        Top = 106
         Width = 96
-        Height = 24
+        Height = 25
         AutoSize = False
         Caption = 'Max Clients'
       end
       object MaxInactivityLabel: TLabel
         Left = 9
-        Top = 132
+        Top = 138
         Width = 96
-        Height = 24
+        Height = 25
         AutoSize = False
         Caption = 'Max Inactivity'
       end
       object PortLabel: TLabel
         Left = 9
-        Top = 68
+        Top = 74
         Width = 96
-        Height = 24
+        Height = 25
         AutoSize = False
         Caption = 'Control Port'
       end
       object InterfaceLabel: TLabel
         Left = 9
-        Top = 36
+        Top = 42
         Width = 96
-        Height = 24
+        Height = 25
         AutoSize = False
         Caption = 'Interface (IP)'
       end
+      object QwkTimeoutLabel: TLabel
+        Left = 9
+        Top = 170
+        Width = 96
+        Height = 25
+        AutoSize = False
+        Caption = 'QWK Timeout'
+      end
       object AutoStartCheckBox: TCheckBox
         Left = 9
-        Top = 6
+        Top = 12
         Width = 144
-        Height = 24
+        Height = 25
         Hint = 'Automatically start FTP server'
         Caption = 'Auto Startup'
         ParentShowHint = False
@@ -66,17 +78,17 @@ object FtpCfgDlg: TFtpCfgDlg
       end
       object MaxClientsEdit: TEdit
         Left = 105
-        Top = 100
+        Top = 106
         Width = 48
         Height = 24
         Hint = 'Maximum number of simultaneous clients (default=10)'
         ParentShowHint = False
         ShowHint = True
-        TabOrder = 1
+        TabOrder = 4
       end
       object MaxInactivityEdit: TEdit
         Left = 105
-        Top = 132
+        Top = 138
         Width = 48
         Height = 24
         Hint = 
@@ -84,11 +96,11 @@ object FtpCfgDlg: TFtpCfgDlg
           'lt=300)'
         ParentShowHint = False
         ShowHint = True
-        TabOrder = 2
+        TabOrder = 5
       end
       object PortEdit: TEdit
         Left = 105
-        Top = 68
+        Top = 74
         Width = 48
         Height = 24
         Hint = 'TCP port to use for FTP control connections (default=21)'
@@ -98,39 +110,19 @@ object FtpCfgDlg: TFtpCfgDlg
       end
       object NetworkInterfaceEdit: TEdit
         Left = 105
-        Top = 36
+        Top = 42
         Width = 192
         Height = 24
         Hint = 'Your network adapter'#39's static IP address or blank for <ANY>'
         ParentShowHint = False
         ShowHint = True
-        TabOrder = 4
-      end
-      object AutoIndexCheckBox: TCheckBox
-        Left = 9
-        Top = 162
-        Width = 96
-        Height = 24
-        Hint = 'Automatically generate index files for file descriptions'
-        Caption = 'Auto Index'
-        TabOrder = 5
-        OnClick = AutoIndexCheckBoxClick
-      end
-      object IndexFileNameEdit: TEdit
-        Left = 105
-        Top = 164
-        Width = 192
-        Height = 24
-        Hint = 'Name of auto-index file (default=00index)'
-        ParentShowHint = False
-        ShowHint = True
-        TabOrder = 6
+        TabOrder = 2
       end
       object AllowQWKCheckBox: TCheckBox
         Left = 182
-        Top = 68
+        Top = 74
         Width = 147
-        Height = 24
+        Height = 25
         Hint = 'Allow QWK packet transfers'
         Caption = 'QWK Packets'
         ParentShowHint = False
@@ -139,9 +131,9 @@ object FtpCfgDlg: TFtpCfgDlg
       end
       object LocalFileSysCheckBox: TCheckBox
         Left = 182
-        Top = 100
+        Top = 106
         Width = 147
-        Height = 24
+        Height = 25
         Hint = 
           'Allow sysop access to local file system (requires sysop password' +
           ')'
@@ -152,25 +144,101 @@ object FtpCfgDlg: TFtpCfgDlg
       end
       object HostnameCheckBox: TCheckBox
         Left = 182
-        Top = 6
+        Top = 12
         Width = 147
-        Height = 24
+        Height = 25
         Hint = 'Automatically lookup client'#39's hostnames via DNS'
         Caption = 'Hostname Lookup'
         ParentShowHint = False
         ShowHint = True
-        TabOrder = 9
+        TabOrder = 1
       end
       object DirFilesCheckBox: TCheckBox
         Left = 182
-        Top = 129
+        Top = 135
         Width = 154
         Height = 25
         Hint = 'Allow users access to files in directory, but not in database'
         Caption = 'Directory File Access'
         ParentShowHint = False
         ShowHint = True
-        TabOrder = 10
+        TabOrder = 9
+      end
+      object QwkTimeoutEdit: TEdit
+        Left = 105
+        Top = 170
+        Width = 48
+        Height = 24
+        Hint = 'Maximum number of seconds before QWK packet creation timeout'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 6
+      end
+    end
+    object IndexTabSheet: TTabSheet
+      Caption = 'Index'
+      ImageIndex = 3
+      object HtmlJavaScriptLabel: TLabel
+        Left = 9
+        Top = 76
+        Width = 80
+        Height = 25
+        AutoSize = False
+        Caption = 'JavaScript'
+      end
+      object AutoIndexCheckBox: TCheckBox
+        Left = 9
+        Top = 12
+        Width = 96
+        Height = 24
+        Hint = 'Automatically generate index files for file descriptions'
+        Caption = 'ASCII'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 0
+        OnClick = AutoIndexCheckBoxClick
+      end
+      object IndexFileNameEdit: TEdit
+        Left = 105
+        Top = 12
+        Width = 192
+        Height = 24
+        Hint = 'Name of ASCII index file (default=00index)'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 1
+      end
+      object HtmlIndexCheckBox: TCheckBox
+        Left = 9
+        Top = 44
+        Width = 96
+        Height = 24
+        Hint = 'Automatically generate HTML index files for file descriptions'
+        Caption = 'HTML'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 2
+        OnClick = HtmlIndexCheckBoxClick
+      end
+      object HtmlFileNameEdit: TEdit
+        Left = 105
+        Top = 44
+        Width = 192
+        Height = 24
+        Hint = 'Name of HTML index file (default=00index.html)'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 3
+      end
+      object HtmlJavaScriptEdit: TEdit
+        Left = 105
+        Top = 76
+        Width = 192
+        Height = 24
+        Hint = 'JavaScript filename to execute to generate HTML index file'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 4
       end
     end
     object LogTabSheet: TTabSheet
@@ -178,29 +246,29 @@ object FtpCfgDlg: TFtpCfgDlg
       ImageIndex = 1
       object DebugTxCheckBox: TCheckBox
         Left = 9
-        Top = 36
+        Top = 42
         Width = 192
         Height = 24
         Hint = 'Log (debug) transmitted FTP responses'
         Caption = 'Transmitted Responses'
         ParentShowHint = False
         ShowHint = True
-        TabOrder = 0
+        TabOrder = 1
       end
       object CmdLogCheckBox: TCheckBox
         Left = 9
-        Top = 6
+        Top = 12
         Width = 192
         Height = 24
         Hint = 'Log (debug) all received FTP commands'
         Caption = 'Received Commands'
         ParentShowHint = False
         ShowHint = True
-        TabOrder = 1
+        TabOrder = 0
       end
       object DebugDataCheckBox: TCheckBox
         Left = 9
-        Top = 66
+        Top = 72
         Width = 192
         Height = 24
         Hint = 'Log (debug) data channel operations'
@@ -211,7 +279,7 @@ object FtpCfgDlg: TFtpCfgDlg
       end
       object LogFileCheckBox: TCheckBox
         Left = 9
-        Top = 96
+        Top = 102
         Width = 144
         Height = 25
         Hint = 'Save log entries to a file (in your DATA directory)'
@@ -232,7 +300,7 @@ object FtpCfgDlg: TFtpCfgDlg
         AutoSize = False
         Caption = 'Connect'
       end
-      object HnagupSoundLabel: TLabel
+      object HangupSoundLabel: TLabel
         Left = 9
         Top = 44
         Width = 80
@@ -240,10 +308,18 @@ object FtpCfgDlg: TFtpCfgDlg
         AutoSize = False
         Caption = 'Disconnect'
       end
+      object HackAttemptSoundLabel: TLabel
+        Left = 9
+        Top = 76
+        Width = 80
+        Height = 25
+        AutoSize = False
+        Caption = 'Hack Attempt'
+      end
       object AnswerSoundEdit: TEdit
-        Left = 89
+        Left = 105
         Top = 12
-        Width = 208
+        Width = 192
         Height = 24
         Hint = 'Sound file to play when users connect'
         ParentShowHint = False
@@ -260,9 +336,9 @@ object FtpCfgDlg: TFtpCfgDlg
         OnClick = AnswerSoundButtonClick
       end
       object HangupSoundEdit: TEdit
-        Left = 89
+        Left = 105
         Top = 44
-        Width = 208
+        Width = 192
         Height = 24
         Hint = 'Sound file to play when users disconnect'
         ParentShowHint = False
@@ -278,11 +354,30 @@ object FtpCfgDlg: TFtpCfgDlg
         TabOrder = 3
         OnClick = HangupSoundButtonClick
       end
+      object HackAttemptSoundEdit: TEdit
+        Left = 105
+        Top = 76
+        Width = 192
+        Height = 24
+        Hint = 'Sound file to play when users disconnect'
+        ParentShowHint = False
+        ShowHint = True
+        TabOrder = 4
+      end
+      object HackAttemptSoundButton: TButton
+        Left = 304
+        Top = 76
+        Width = 25
+        Height = 26
+        Caption = '...'
+        TabOrder = 5
+        OnClick = HackAttemptSoundButtonClick
+      end
     end
   end
   object OKBtn: TButton
     Left = 25
-    Top = 247
+    Top = 260
     Width = 93
     Height = 30
     Anchors = [akLeft, akBottom]
@@ -294,7 +389,7 @@ object FtpCfgDlg: TFtpCfgDlg
   end
   object CancelBtn: TButton
     Left = 128
-    Top = 247
+    Top = 260
     Width = 92
     Height = 30
     Anchors = [akLeft, akBottom]
@@ -305,7 +400,7 @@ object FtpCfgDlg: TFtpCfgDlg
   end
   object ApplyBtn: TButton
     Left = 233
-    Top = 247
+    Top = 260
     Width = 93
     Height = 30
     Anchors = [akLeft, akBottom]