Annotation of sbbs/src/sbbs3/ctrl/mailcfgdlgunit.dfm, revision 1.1.1.2

1.1       root        1: object MailCfgDlg: TMailCfgDlg
1.1.1.2 ! root        2:   Left = 516
        !             3:   Top = 157
1.1       root        4:   BorderStyle = bsDialog
                      5:   Caption = 'Mail Server Configuration'
                      6:   ClientHeight = 303
                      7:   ClientWidth = 352
                      8:   Color = clBtnFace
                      9:   ParentFont = True
                     10:   OldCreateOrder = True
                     11:   Position = poScreenCenter
                     12:   OnShow = FormShow
                     13:   DesignSize = (
                     14:     352
                     15:     303)
                     16:   PixelsPerInch = 120
                     17:   TextHeight = 16
                     18:   object OKBtn: TButton
                     19:     Left = 25
                     20:     Top = 258
                     21:     Width = 92
                     22:     Height = 31
                     23:     Anchors = [akLeft, akBottom]
                     24:     Caption = 'OK'
                     25:     Default = True
                     26:     ModalResult = 1
                     27:     TabOrder = 0
                     28:     OnClick = OKBtnClick
                     29:   end
                     30:   object CancelBtn: TButton
                     31:     Left = 128
                     32:     Top = 258
                     33:     Width = 94
                     34:     Height = 31
                     35:     Anchors = [akLeft, akBottom]
                     36:     Cancel = True
                     37:     Caption = 'Cancel'
                     38:     ModalResult = 2
                     39:     TabOrder = 1
                     40:   end
                     41:   object ApplyButton: TButton
                     42:     Left = 233
                     43:     Top = 258
                     44:     Width = 92
                     45:     Height = 31
                     46:     Anchors = [akLeft, akBottom]
                     47:     Caption = 'Apply'
                     48:     TabOrder = 2
                     49:     OnClick = OKBtnClick
                     50:   end
                     51:   object PageControl: TPageControl
                     52:     Left = 4
                     53:     Top = 4
                     54:     Width = 342
                     55:     Height = 245
1.1.1.2 ! root       56:     ActivePage = DNSBLTabSheet
        !            57:     TabIndex = 6
1.1       root       58:     TabOrder = 3
                     59:     object GeneralTabSheet: TTabSheet
                     60:       Caption = 'General'
                     61:       object InterfaceLabel: TLabel
                     62:         Left = 9
                     63:         Top = 44
                     64:         Width = 104
                     65:         Height = 24
                     66:         AutoSize = False
                     67:         Caption = 'Interface (IP)'
                     68:         ParentShowHint = False
                     69:         ShowHint = True
                     70:       end
                     71:       object MaxClientsLabel: TLabel
                     72:         Left = 9
                     73:         Top = 76
                     74:         Width = 104
                     75:         Height = 24
                     76:         AutoSize = False
                     77:         Caption = 'Max Clients'
                     78:       end
                     79:       object MaxInactivityLabel: TLabel
                     80:         Left = 9
                     81:         Top = 108
                     82:         Width = 104
                     83:         Height = 24
                     84:         AutoSize = False
                     85:         Caption = 'Max Inactivity'
                     86:       end
                     87:       object LinesPerYieldLabel: TLabel
                     88:         Left = 9
                     89:         Top = 140
                     90:         Width = 104
                     91:         Height = 24
                     92:         AutoSize = False
                     93:         Caption = 'Lines Per Yield'
                     94:       end
                     95:       object AutoStartCheckBox: TCheckBox
                     96:         Left = 9
                     97:         Top = 12
                     98:         Width = 145
                     99:         Height = 24
                    100:         Hint = 'Automatically startup mail servers'
                    101:         Caption = 'Auto Startup'
                    102:         ParentShowHint = False
                    103:         ShowHint = True
                    104:         TabOrder = 0
                    105:       end
                    106:       object NetworkInterfaceEdit: TEdit
                    107:         Left = 113
                    108:         Top = 44
                    109:         Width = 185
                    110:         Height = 24
                    111:         Hint = 
                    112:           'Enter your Network adapter'#39's static IP address here or blank for' +
                    113:           ' <ANY>'
                    114:         ParentShowHint = False
                    115:         ShowHint = True
                    116:         TabOrder = 2
                    117:       end
                    118:       object MaxClientsEdit: TEdit
                    119:         Left = 113
                    120:         Top = 76
                    121:         Width = 48
                    122:         Height = 24
                    123:         Hint = 'Maximum number of simultaneous clients (default=10)'
                    124:         ParentShowHint = False
                    125:         ShowHint = True
                    126:         TabOrder = 3
                    127:       end
                    128:       object MaxInactivityEdit: TEdit
                    129:         Left = 113
                    130:         Top = 108
                    131:         Width = 48
                    132:         Height = 24
                    133:         Hint = 
                    134:           'Maximum number of seconds of inactivity before disconnect (defau' +
                    135:           'lt=120)'
                    136:         ParentShowHint = False
                    137:         ShowHint = True
                    138:         TabOrder = 4
                    139:       end
                    140:       object HostnameCheckBox: TCheckBox
                    141:         Left = 185
                    142:         Top = 12
                    143:         Width = 146
                    144:         Height = 24
                    145:         Hint = 'Automatically lookup client'#39's hostnames via DNS'
                    146:         Caption = 'Hostname Lookup'
                    147:         ParentShowHint = False
                    148:         ShowHint = True
                    149:         TabOrder = 1
                    150:       end
                    151:       object DebugTXCheckBox: TCheckBox
                    152:         Left = 185
                    153:         Top = 76
                    154:         Width = 146
                    155:         Height = 24
                    156:         Hint = 'Log all transmitted mail commands and responses (for debugging)'
                    157:         Caption = 'Log Transmissions'
                    158:         ParentShowHint = False
                    159:         ShowHint = True
                    160:         TabOrder = 6
                    161:       end
                    162:       object LogFileCheckBox: TCheckBox
                    163:         Left = 185
1.1.1.2 ! root      164:         Top = 172
1.1       root      165:         Width = 146
                    166:         Height = 24
                    167:         Hint = 'Save log entries to a file (in your DATA directory)'
                    168:         Caption = 'Log to Disk'
                    169:         ParentShowHint = False
                    170:         ShowHint = True
1.1.1.2 ! root      171:         TabOrder = 9
1.1       root      172:       end
                    173:       object LinesPerYieldEdit: TEdit
                    174:         Left = 113
                    175:         Top = 140
                    176:         Width = 48
                    177:         Height = 24
                    178:         Hint = 
                    179:           'Number of lines of message text sent/received between time-slice' +
                    180:           ' yields'
                    181:         ParentShowHint = False
                    182:         ShowHint = True
                    183:         TabOrder = 5
                    184:       end
                    185:       object DebugRXCheckBox: TCheckBox
                    186:         Left = 185
                    187:         Top = 108
                    188:         Width = 146
                    189:         Height = 24
                    190:         Hint = 'Log all transmitted mail commands and responses (for debugging)'
                    191:         Caption = 'Log Responses'
                    192:         ParentShowHint = False
                    193:         ShowHint = True
1.1.1.2 ! root      194:         TabOrder = 7
        !           195:       end
        !           196:       object DebugHeadersCheckBox: TCheckBox
        !           197:         Left = 185
        !           198:         Top = 140
        !           199:         Width = 146
        !           200:         Height = 24
        !           201:         Hint = 'Log all received mail headers (for debugging)'
        !           202:         Caption = 'Log RX Headers'
        !           203:         ParentShowHint = False
        !           204:         ShowHint = True
1.1       root      205:         TabOrder = 8
                    206:       end
                    207:     end
                    208:     object SMTPTabSheet: TTabSheet
                    209:       Caption = 'SMTP'
                    210:       ImageIndex = 1
1.1.1.2 ! root      211:       object SMTPPortLabel: TLabel
1.1       root      212:         Left = 9
                    213:         Top = 12
                    214:         Width = 104
                    215:         Height = 24
                    216:         AutoSize = False
1.1.1.2 ! root      217:         Caption = 'Transfer Port'
1.1       root      218:       end
                    219:       object DefaultUserLabel: TLabel
                    220:         Left = 9
                    221:         Top = 108
                    222:         Width = 104
                    223:         Height = 24
                    224:         AutoSize = False
                    225:         Caption = 'Default User'
                    226:       end
                    227:       object MaxRecipientsLabel: TLabel
1.1.1.2 ! root      228:         Left = 193
        !           229:         Top = 76
1.1       root      230:         Width = 104
                    231:         Height = 24
                    232:         AutoSize = False
                    233:         Caption = 'Max Recipients'
                    234:       end
                    235:       object MaxMsgSizeLabel: TLabel
                    236:         Left = 9
                    237:         Top = 76
                    238:         Width = 104
                    239:         Height = 24
                    240:         AutoSize = False
                    241:         Caption = 'Max Msg Size'
                    242:       end
1.1.1.2 ! root      243:       object SubPortLabel: TLabel
        !           244:         Left = 9
        !           245:         Top = 44
        !           246:         Width = 104
        !           247:         Height = 24
        !           248:         AutoSize = False
        !           249:         Caption = 'Submission Port'
        !           250:       end
1.1       root      251:       object SMTPPortEdit: TEdit
                    252:         Left = 113
                    253:         Top = 12
                    254:         Width = 48
                    255:         Height = 24
                    256:         Hint = 'TCP port number for incoming SMTP connections (default=25)'
                    257:         ParentShowHint = False
                    258:         ShowHint = True
                    259:         TabOrder = 0
                    260:       end
                    261:       object DefaultUserEdit: TEdit
                    262:         Left = 113
                    263:         Top = 108
1.1.1.2 ! root      264:         Width = 176
1.1       root      265:         Height = 24
                    266:         Hint = 
                    267:           'Mail for unknown users will go into this user'#39's mailbox (e.g. "s' +
                    268:           'ysop")'
                    269:         ParentShowHint = False
                    270:         ShowHint = True
1.1.1.2 ! root      271:         TabOrder = 6
1.1       root      272:       end
                    273:       object AllowRelayCheckBox: TCheckBox
                    274:         Left = 9
                    275:         Top = 143
                    276:         Width = 288
                    277:         Height = 23
                    278:         Hint = 'Allow authenticated users to relay mail through this server'
                    279:         Caption = 'Allow Authenticated Users to Relay Mail'
                    280:         ParentShowHint = False
                    281:         ShowHint = True
1.1.1.2 ! root      282:         TabOrder = 7
1.1       root      283:         OnClick = AllowRelayCheckBoxClick
                    284:       end
                    285:       object MaxRecipientsEdit: TEdit
1.1.1.2 ! root      286:         Left = 296
        !           287:         Top = 76
        !           288:         Width = 33
1.1       root      289:         Height = 24
                    290:         Hint = 'Maximum number of recipients for a single message'
                    291:         ParentShowHint = False
                    292:         ShowHint = True
1.1.1.2 ! root      293:         TabOrder = 5
1.1       root      294:       end
                    295:       object MaxMsgSizeEdit: TEdit
                    296:         Left = 113
                    297:         Top = 76
1.1.1.2 ! root      298:         Width = 72
1.1       root      299:         Height = 24
                    300:         Hint = 'Maximum received message size (in bytes)'
                    301:         ParentShowHint = False
                    302:         ShowHint = True
1.1.1.2 ! root      303:         TabOrder = 4
1.1       root      304:       end
                    305:       object AuthViaIpCheckBox: TCheckBox
                    306:         Left = 9
                    307:         Top = 175
                    308:         Width = 288
                    309:         Height = 23
                    310:         Hint = 
                    311:           'Allow SMTP authentication via other protocols (e.g. POP3, Telnet' +
                    312:           ', etc) for relay'
                    313:         Caption = 'Allow Authentication via POP3, Telnet, etc.'
                    314:         ParentShowHint = False
                    315:         ShowHint = True
1.1.1.2 ! root      316:         TabOrder = 8
1.1       root      317:       end
                    318:       object NotifyCheckBox: TCheckBox
                    319:         Left = 185
1.1.1.2 ! root      320:         Top = 12
1.1       root      321:         Width = 146
                    322:         Height = 24
                    323:         Hint = 'Notify local mail recipients of received e-mails'
                    324:         Caption = 'Notify Recipients'
                    325:         ParentShowHint = False
                    326:         ShowHint = True
1.1.1.2 ! root      327:         TabOrder = 1
        !           328:       end
        !           329:       object SubPortEdit: TEdit
        !           330:         Left = 113
        !           331:         Top = 44
        !           332:         Width = 48
        !           333:         Height = 24
        !           334:         Hint = 'TCP port number for incoming SMTP submissions (default=587)'
        !           335:         ParentShowHint = False
        !           336:         ShowHint = True
        !           337:         TabOrder = 2
        !           338:       end
        !           339:       object UseSubPortCheckBox: TCheckBox
        !           340:         Left = 185
        !           341:         Top = 44
        !           342:         Width = 144
        !           343:         Height = 17
        !           344:         Hint = 'Enable the SMTP submission port'
        !           345:         Caption = 'Enabled'
        !           346:         TabOrder = 3
        !           347:         OnClick = UseSubPortCheckBoxClick
1.1       root      348:       end
                    349:     end
                    350:     object POP3TabSheet: TTabSheet
                    351:       Caption = 'POP3'
                    352:       ImageIndex = 2
                    353:       object POP3PortLabel: TLabel
                    354:         Left = 9
                    355:         Top = 12
                    356:         Width = 102
                    357:         Height = 24
                    358:         AutoSize = False
                    359:         Caption = 'Listening Port'
                    360:       end
                    361:       object POP3PortEdit: TEdit
                    362:         Left = 113
                    363:         Top = 12
                    364:         Width = 48
                    365:         Height = 24
                    366:         Hint = 'TCP port number for incoming POP3 connections (default=110)'
                    367:         ParentShowHint = False
                    368:         ShowHint = True
                    369:         TabOrder = 0
                    370:       end
                    371:       object POP3LogCheckBox: TCheckBox
                    372:         Left = 185
                    373:         Top = 12
                    374:         Width = 70
                    375:         Height = 24
                    376:         Hint = 'Log all POP3 user activity'
                    377:         Caption = 'Log'
                    378:         ParentShowHint = False
                    379:         ShowHint = True
                    380:         TabOrder = 1
                    381:       end
                    382:       object POP3EnabledCheckBox: TCheckBox
                    383:         Left = 256
                    384:         Top = 12
                    385:         Width = 81
                    386:         Height = 24
                    387:         Hint = 'Enable the POP3 server (requires restart of mail server)'
                    388:         Caption = 'Enabled'
                    389:         ParentShowHint = False
                    390:         ShowHint = True
                    391:         TabOrder = 2
                    392:         OnClick = POP3EnabledCheckBoxClick
                    393:       end
                    394:     end
                    395:     object SendMailTabSheet: TTabSheet
                    396:       Caption = 'SendMail'
                    397:       ImageIndex = 3
                    398:       object DeliveryAttemptsLabel: TLabel
                    399:         Left = 9
                    400:         Top = 44
                    401:         Width = 104
                    402:         Height = 24
                    403:         AutoSize = False
                    404:         Caption = 'Max Attempts'
                    405:       end
                    406:       object RescanFreqLabel: TLabel
                    407:         Left = 167
                    408:         Top = 44
                    409:         Width = 71
                    410:         Height = 24
                    411:         Hint = 'Frequency (in seconds) of delivery attempts'
                    412:         Alignment = taRightJustify
                    413:         AutoSize = False
                    414:         Caption = 'Frequency'
                    415:       end
                    416:       object DNSServerLabel: TLabel
                    417:         Left = 9
                    418:         Top = 152
                    419:         Width = 72
                    420:         Height = 16
                    421:         Caption = 'DNS Server'
                    422:       end
                    423:       object DefCharsetLabel: TLabel
                    424:         Left = 9
                    425:         Top = 76
                    426:         Width = 104
                    427:         Height = 24
                    428:         AutoSize = False
                    429:         Caption = 'Default Charset'
                    430:       end
                    431:       object DNSRadioButton: TRadioButton
                    432:         Left = 9
                    433:         Top = 116
                    434:         Width = 184
                    435:         Height = 26
                    436:         Hint = 
                    437:           'Send mail directly to addressed mail server (requires DNS server' +
                    438:           ' access)'
                    439:         Caption = 'Direct Mail Delivery'
                    440:         Checked = True
                    441:         ParentShowHint = False
                    442:         ShowHint = True
1.1.1.2 ! root      443:         TabOrder = 4
1.1       root      444:         TabStop = True
                    445:         OnClick = DNSRadioButtonClick
                    446:       end
                    447:       object DNSServerEdit: TEdit
                    448:         Left = 113
                    449:         Top = 148
                    450:         Width = 185
                    451:         Height = 24
                    452:         Hint = 'Host name or IP address of your ISP'#39's DNS server'
                    453:         ParentShowHint = False
                    454:         ShowHint = True
1.1.1.2 ! root      455:         TabOrder = 6
1.1       root      456:       end
                    457:       object TcpDnsCheckBox: TCheckBox
                    458:         Left = 250
                    459:         Top = 180
                    460:         Width = 65
                    461:         Height = 24
                    462:         Hint = 'Use TCP packets (instead of UDP) for DNS queries'
                    463:         Caption = 'TCP'
                    464:         ParentShowHint = False
                    465:         ShowHint = True
1.1.1.2 ! root      466:         TabOrder = 7
1.1       root      467:       end
                    468:       object RelayRadioButton: TRadioButton
                    469:         Left = 169
                    470:         Top = 116
                    471:         Width = 192
                    472:         Height = 26
                    473:         Hint = 'Route all mail through an SMTP relay server'
                    474:         Caption = 'Use Relay Server'
                    475:         ParentShowHint = False
                    476:         ShowHint = True
1.1.1.2 ! root      477:         TabOrder = 5
1.1       root      478:         OnClick = DNSRadioButtonClick
                    479:       end
                    480:       object DeliveryAttemptsEdit: TEdit
                    481:         Left = 113
                    482:         Top = 44
                    483:         Width = 48
                    484:         Height = 24
                    485:         Hint = 'Maximum number of delivery attempts'
                    486:         ParentShowHint = False
                    487:         ShowHint = True
                    488:         TabOrder = 1
                    489:       end
                    490:       object RescanFreqEdit: TEdit
                    491:         Left = 250
                    492:         Top = 44
                    493:         Width = 48
                    494:         Height = 24
                    495:         Hint = 'Seconds between message base rescans'
                    496:         ParentShowHint = False
                    497:         ShowHint = True
                    498:         TabOrder = 2
                    499:       end
                    500:       object SendMailCheckBox: TCheckBox
                    501:         Left = 9
                    502:         Top = 12
                    503:         Width = 81
                    504:         Height = 24
                    505:         Hint = 'Enable the SendMail thread (requires restart of mail server)'
                    506:         Caption = 'Enabled'
                    507:         ParentShowHint = False
                    508:         ShowHint = True
                    509:         TabOrder = 0
                    510:         OnClick = SendMailCheckBoxClick
                    511:       end
                    512:       object DefCharsetEdit: TEdit
                    513:         Left = 113
                    514:         Top = 76
                    515:         Width = 80
                    516:         Height = 24
                    517:         Hint = 'Character set specified for locally generated e-mail messages'
                    518:         ParentShowHint = False
                    519:         ShowHint = True
1.1.1.2 ! root      520:         TabOrder = 3
1.1       root      521:       end
                    522:     end
                    523:     object RelayTabSheet: TTabSheet
                    524:       Caption = 'Relay'
                    525:       ImageIndex = 6
                    526:       object RelayPortLabel: TLabel
                    527:         Left = 240
                    528:         Top = 12
                    529:         Width = 33
                    530:         Height = 26
                    531:         Alignment = taRightJustify
                    532:         AutoSize = False
                    533:         Caption = 'Port'
                    534:       end
                    535:       object RelayServerLabel: TLabel
                    536:         Left = 9
                    537:         Top = 12
                    538:         Width = 40
                    539:         Height = 16
                    540:         Caption = 'Server'
                    541:       end
                    542:       object RelayServerEdit: TEdit
                    543:         Left = 65
                    544:         Top = 12
                    545:         Width = 168
                    546:         Height = 24
                    547:         Hint = 
                    548:           'Host name or IP address of external SMTP server (for relaying ma' +
                    549:           'il)'
                    550:         ParentShowHint = False
                    551:         ShowHint = True
                    552:         TabOrder = 0
                    553:       end
                    554:       object RelayPortEdit: TEdit
                    555:         Left = 282
                    556:         Top = 12
                    557:         Width = 39
                    558:         Height = 24
                    559:         Hint = 'TCP port number for the SMTP relay server (default=25)'
                    560:         ParentShowHint = False
                    561:         ShowHint = True
                    562:         TabOrder = 1
                    563:       end
                    564:       object RelayAuthGroupBox: TGroupBox
                    565:         Left = 9
                    566:         Top = 41
                    567:         Width = 320
                    568:         Height = 160
                    569:         Caption = 'Authentication:'
                    570:         TabOrder = 2
                    571:         object RelayAuthNameLabel: TLabel
                    572:           Left = 16
                    573:           Top = 92
                    574:           Width = 80
                    575:           Height = 26
                    576:           AutoSize = False
                    577:           Caption = 'Name'
                    578:         end
                    579:         object RelayAuthPassLabel: TLabel
                    580:           Left = 16
                    581:           Top = 121
                    582:           Width = 80
                    583:           Height = 25
                    584:           AutoSize = False
                    585:           Caption = 'Password'
                    586:         end
                    587:         object RelayAuthNoneRadioButton: TRadioButton
                    588:           Left = 16
                    589:           Top = 28
                    590:           Width = 113
                    591:           Height = 24
                    592:           Caption = 'None'
                    593:           Checked = True
                    594:           TabOrder = 0
                    595:           TabStop = True
                    596:           OnClick = RelayAuthRadioButtonClick
                    597:         end
                    598:         object RelayAuthPlainRadioButton: TRadioButton
                    599:           Left = 169
                    600:           Top = 28
                    601:           Width = 113
                    602:           Height = 24
                    603:           Caption = 'Plain'
                    604:           TabOrder = 1
                    605:           OnClick = RelayAuthRadioButtonClick
                    606:         end
                    607:         object RelayAuthLoginRadioButton: TRadioButton
                    608:           Left = 169
                    609:           Top = 57
                    610:           Width = 113
                    611:           Height = 24
                    612:           Caption = 'Login'
                    613:           TabOrder = 2
                    614:           OnClick = RelayAuthRadioButtonClick
                    615:         end
                    616:         object RelayAuthCramMD5RadioButton: TRadioButton
                    617:           Left = 16
                    618:           Top = 57
                    619:           Width = 113
                    620:           Height = 24
                    621:           Caption = 'CRAM-MD5'
                    622:           TabOrder = 3
                    623:           OnClick = RelayAuthRadioButtonClick
                    624:         end
                    625:         object RelayAuthNameEdit: TEdit
                    626:           Left = 105
                    627:           Top = 92
                    628:           Width = 185
                    629:           Height = 24
                    630:           Hint = 'User name to authenticate as'
                    631:           ParentShowHint = False
                    632:           ShowHint = True
                    633:           TabOrder = 4
                    634:         end
                    635:         object RelayAuthPassEdit: TEdit
                    636:           Left = 105
                    637:           Top = 121
                    638:           Width = 185
                    639:           Height = 24
                    640:           Hint = 'Password for authentication'
                    641:           ParentShowHint = False
                    642:           PasswordChar = '*'
                    643:           ShowHint = True
                    644:           TabOrder = 5
                    645:         end
                    646:       end
                    647:     end
                    648:     object SoundTabSheet: TTabSheet
                    649:       Caption = 'Sound'
                    650:       ImageIndex = 4
                    651:       object SMTPSoundLabel: TLabel
                    652:         Left = 9
                    653:         Top = 12
                    654:         Width = 101
                    655:         Height = 24
                    656:         AutoSize = False
                    657:         Caption = 'Receive Mail'
                    658:       end
                    659:       object POP3SoundLabel: TLabel
                    660:         Left = 9
                    661:         Top = 76
                    662:         Width = 101
                    663:         Height = 26
                    664:         AutoSize = False
                    665:         Caption = 'POP3 Login'
                    666:       end
                    667:       object OutboundSoundLabel: TLabel
                    668:         Left = 9
                    669:         Top = 44
                    670:         Width = 101
                    671:         Height = 24
                    672:         AutoSize = False
                    673:         Caption = 'Sending Mail'
                    674:       end
                    675:       object InboundSoundEdit: TEdit
                    676:         Left = 113
                    677:         Top = 12
                    678:         Width = 185
                    679:         Height = 24
                    680:         Hint = 'Sound file to play when inbound SMTP connections are accepted'
                    681:         ParentShowHint = False
                    682:         ShowHint = True
                    683:         TabOrder = 0
                    684:       end
                    685:       object InboundSoundButton: TButton
                    686:         Left = 304
                    687:         Top = 12
                    688:         Width = 25
                    689:         Height = 26
                    690:         Caption = '...'
                    691:         TabOrder = 1
                    692:         OnClick = InboundSoundButtonClick
                    693:       end
                    694:       object POP3SoundEdit: TEdit
                    695:         Left = 113
                    696:         Top = 76
                    697:         Width = 185
                    698:         Height = 24
                    699:         Hint = 'Sound file to play when accepting POP3 connections'
                    700:         ParentShowHint = False
                    701:         ShowHint = True
                    702:         TabOrder = 4
                    703:       end
                    704:       object POP3SoundButton: TButton
                    705:         Left = 304
                    706:         Top = 76
                    707:         Width = 25
                    708:         Height = 26
                    709:         Caption = '...'
                    710:         TabOrder = 5
                    711:         OnClick = POP3SoundButtonClick
                    712:       end
                    713:       object OutboundSoundEdit: TEdit
                    714:         Left = 113
                    715:         Top = 44
                    716:         Width = 185
                    717:         Height = 24
                    718:         Hint = 'Sound file to play when sending mail'
                    719:         ParentShowHint = False
                    720:         ShowHint = True
                    721:         TabOrder = 2
                    722:       end
                    723:       object OutboundSoundButton: TButton
                    724:         Left = 304
                    725:         Top = 44
                    726:         Width = 25
                    727:         Height = 26
                    728:         Caption = '...'
                    729:         TabOrder = 3
                    730:         OnClick = OutboundSoundButtonClick
                    731:       end
                    732:     end
                    733:     object DNSBLTabSheet: TTabSheet
                    734:       Caption = 'DNSBL'
                    735:       ImageIndex = 5
                    736:       ParentShowHint = False
                    737:       ShowHint = True
                    738:       object Label1: TLabel
                    739:         Left = 128
                    740:         Top = 105
                    741:         Width = 41
                    742:         Height = 16
                    743:         Caption = 'Label1'
                    744:       end
                    745:       object DNSBLServersButton: TButton
                    746:         Left = 9
                    747:         Top = 9
                    748:         Width = 112
                    749:         Height = 25
                    750:         Hint = 'DNS-based Blacklists'
                    751:         Caption = 'Blacklists'
                    752:         TabOrder = 0
                    753:         OnClick = DNSBLServersButtonClick
                    754:       end
                    755:       object DNSBLGroupBox: TGroupBox
                    756:         Left = 9
                    757:         Top = 41
                    758:         Width = 320
                    759:         Height = 160
                    760:         Caption = 'Mail from Blacklisted Servers:'
                    761:         ParentShowHint = False
                    762:         ShowHint = True
1.1.1.2 ! root      763:         TabOrder = 3
1.1       root      764:         object BLSubjectLabel: TLabel
                    765:           Left = 16
                    766:           Top = 92
                    767:           Width = 80
                    768:           Height = 26
                    769:           AutoSize = False
                    770:           Caption = 'Subject'
                    771:         end
                    772:         object BLHeaderLabel: TLabel
                    773:           Left = 16
                    774:           Top = 121
                    775:           Width = 80
                    776:           Height = 25
                    777:           AutoSize = False
                    778:           Caption = 'Header'
                    779:         end
                    780:         object BLRefuseRadioButton: TRadioButton
                    781:           Left = 16
                    782:           Top = 28
                    783:           Width = 153
                    784:           Height = 24
                    785:           Hint = 'Refuse mail session with blacklisted servers'
                    786:           Caption = 'Refuse Session'
                    787:           ParentShowHint = False
                    788:           ShowHint = True
                    789:           TabOrder = 0
                    790:           OnClick = DNSBLRadioButtonClick
                    791:         end
                    792:         object BLIgnoreRadioButton: TRadioButton
                    793:           Left = 16
                    794:           Top = 57
                    795:           Width = 161
                    796:           Height = 24
                    797:           Hint = 'Pretend to receive blacklisted mail'
                    798:           Caption = 'Silently Ignore'
                    799:           ParentShowHint = False
                    800:           ShowHint = True
                    801:           TabOrder = 2
                    802:           OnClick = DNSBLRadioButtonClick
                    803:         end
                    804:         object BLBadUserRadioButton: TRadioButton
                    805:           Left = 169
                    806:           Top = 28
                    807:           Width = 128
                    808:           Height = 24
                    809:           Hint = 'Refuse mail address from blacklisted servers'
                    810:           Caption = 'Refuse Mail'
                    811:           TabOrder = 1
                    812:           OnClick = DNSBLRadioButtonClick
                    813:         end
                    814:         object BLTagRadioButton: TRadioButton
                    815:           Left = 169
                    816:           Top = 57
                    817:           Width = 96
                    818:           Height = 24
                    819:           Hint = 'Tag blacklisted mail with header and/or subject'
                    820:           Caption = 'Tag with:'
                    821:           ParentShowHint = False
                    822:           ShowHint = True
                    823:           TabOrder = 3
                    824:           OnClick = DNSBLRadioButtonClick
                    825:         end
                    826:         object BLSubjectEdit: TEdit
                    827:           Left = 105
                    828:           Top = 92
                    829:           Width = 185
                    830:           Height = 24
                    831:           Hint = 'Flag to add to subject of DNS-blacklisted mail'
                    832:           ParentShowHint = False
                    833:           ShowHint = True
                    834:           TabOrder = 4
                    835:         end
                    836:         object BLHeaderEdit: TEdit
                    837:           Left = 105
                    838:           Top = 121
                    839:           Width = 185
                    840:           Height = 24
                    841:           Hint = 'Flag to add to subject of DNS-blacklisted mail'
                    842:           ParentShowHint = False
                    843:           ShowHint = True
                    844:           TabOrder = 5
                    845:         end
                    846:       end
                    847:       object DNSBLExemptionsButton: TButton
                    848:         Left = 128
                    849:         Top = 9
                    850:         Width = 113
                    851:         Height = 25
1.1.1.2 ! root      852:         Hint = 'Blacklist Exempted IPs, hostnames, and e-mail addresses'
        !           853:         Caption = 'Exemptions'
        !           854:         TabOrder = 1
1.1       root      855:         OnClick = DNSBLExemptionsButtonClick
                    856:       end
1.1.1.2 ! root      857:       object DNSBLSpamHashCheckBox: TCheckBox
1.1       root      858:         Left = 256
                    859:         Top = 9
                    860:         Width = 73
                    861:         Height = 25
1.1.1.2 ! root      862:         Hint = 'Store hashes of messages from blacklisted servers in SPAM base '
        !           863:         Caption = 'Hash'
        !           864:         TabOrder = 2
1.1       root      865:       end
                    866:     end
                    867:     object AdvancedTabSheet: TTabSheet
                    868:       Caption = 'Advanced'
                    869:       ImageIndex = 7
                    870:       object AdvancedCheckListBox: TCheckListBox
                    871:         Left = 16
                    872:         Top = 16
                    873:         Width = 305
                    874:         Height = 185
                    875:         ItemHeight = 16
                    876:         Items.Strings = (
                    877:           'SendMail: Ignore '#39'in transit'#39' attribute'
                    878:           'Retain received mail files (in temp directory)'
                    879:           'Allow receipt of mail by user number'
1.1.1.2 ! root      880:           'Allow receipt of mail to '#39'sysop'#39' and '#39'postmaster'#39
1.1       root      881:           'Check '#39'Received'#39' header fields against DNSBL'
1.1.1.2 ! root      882:           'Throttle DNS blacklisted server sessions'
        !           883:           'Auto-exempt sent-mail recipients from DNSBL')
1.1       root      884:         TabOrder = 0
                    885:       end
                    886:     end
                    887:   end
                    888:   object OpenDialog: TOpenDialog
                    889:     Filter = 'Wave Files|*.wav'
                    890:     Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing, ofDontAddToRecent]
                    891:     Left = 8
                    892:     Top = 480
                    893:   end
                    894: end

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.