Added checkbox to enable DNSBL debug logging.

src/sbbs3/ctrl/MailCfgDlgUnit.cpp

@@ -135,6 +135,8 @@ void __fastcall TMailCfgDlg::FormShow(TObject *Sender)
 	    BLIgnoreRadioButton->Checked=true;
 	else
 	    BLTagRadioButton->Checked=true;
+    BLDebugCheckBox->Checked=MainForm->mail_startup.options
+    	&MAIL_OPT_DNSBL_DEBUG;
 
     TcpDnsCheckBox->Checked=MainForm->mail_startup.options
     	&MAIL_OPT_USE_TCP_DNS;
@@ -232,6 +234,8 @@ void __fastcall TMailCfgDlg::OKBtnClick(TObject *Sender)
     	MainForm->mail_startup.options|=MAIL_OPT_ALLOW_RELAY;
     else
 	    MainForm->mail_startup.options&=~MAIL_OPT_ALLOW_RELAY;
+
+    /* DNSBL */
 	MainForm->mail_startup.options&=
     	~(MAIL_OPT_DNSBL_IGNORE|MAIL_OPT_DNSBL_REFUSE|MAIL_OPT_DNSBL_BADUSER);
 	if(BLIgnoreRadioButton->Checked==true)
@@ -240,6 +244,11 @@ void __fastcall TMailCfgDlg::OKBtnClick(TObject *Sender)
     	MainForm->mail_startup.options|=MAIL_OPT_DNSBL_REFUSE;
     else if(BLBadUserRadioButton->Checked==true)
     	MainForm->mail_startup.options|=MAIL_OPT_DNSBL_BADUSER;
+    if(BLDebugCheckBox->Checked==true)
+    	MainForm->mail_startup.options|=MAIL_OPT_DNSBL_DEBUG;
+    else
+	    MainForm->mail_startup.options&=~MAIL_OPT_DNSBL_DEBUG;
+
 	if(HostnameCheckBox->Checked==false)
     	MainForm->mail_startup.options|=MAIL_OPT_NO_HOST_LOOKUP;
     else

src/sbbs3/ctrl/MailCfgDlgUnit.dfm

@@ -53,8 +53,8 @@ object MailCfgDlg: TMailCfgDlg
     Top = 4
     Width = 342
     Height = 245
-    ActivePage = GeneralTabSheet
-    TabIndex = 0
+    ActivePage = DNSBLTabSheet
+    TabIndex = 5
     TabOrder = 3
     object GeneralTabSheet: TTabSheet
       Caption = 'General'
@@ -677,6 +677,15 @@ object MailCfgDlg: TMailCfgDlg
         TabOrder = 2
         OnClick = DNSBLExemptionsButtonClick
       end
+      object BLDebugCheckBox: TCheckBox
+        Left = 256
+        Top = 8
+        Width = 73
+        Height = 26
+        Hint = 'Enable debug logging of DNSBL lookups'
+        Caption = 'Debug'
+        TabOrder = 3
+      end
     end
   end
   object OpenDialog: TOpenDialog

src/sbbs3/ctrl/MailCfgDlgUnit.h

@@ -123,6 +123,7 @@ __published:
 	TEdit *MaxRecipientsEdit;
 	TButton *DNSBLExemptionsButton;
 	TCheckBox *DebugRXCheckBox;
+	TCheckBox *BLDebugCheckBox;
     void __fastcall InboundSoundButtonClick(TObject *Sender);
     void __fastcall OutboundSoundButtonClick(TObject *Sender);
     void __fastcall FormShow(TObject *Sender);