Subj : Rejecting an incoming connection
To   : Paul Hayton
From : Oli
Date : Thu May 20 2021 01:13 pm

Works:

+ 13:06 [2106] call to 4095:1/2@testnet
  13:06 [2106] connected
+ 13:06 [2106] outgoing session with localhost:24554
- 13:06 [2106] OPT CRAM-MD5-999cab24e1f847d0f6ffb387ad8bb2ee
+ 13:06 [2106] Remote requests MD mode
- 13:06 [2106] SYS 🌺
- 13:06 [2106] ZYZ Oli
- 13:06 [2106] LOC ⛅
- 13:06 [2106] NDL IBNS
- 13:06 [2106] TIME Thu, 20 May 2021 12:06:07 +0000
- 13:06 [2106] VER binkd/1.1a-111/Linux binkp/1.1
+ 13:06 [2106] addr: 4095:1/2@testnet
+ 13:06 [2106] pwd protected session (MD5)
- 13:06 [2106] session in CRYPT mode
? 13:06 [2106] aborted by Perl after_handshake(): Get lost!
+ 13:06 [2106] done (to 4095:1/2@testnet, failed, S/R: 0/0 (0/0 bytes))


Script:
sub after_handshake
{
    if ($sysop eq "Oli") {
        return "Get lost!";
    }
    else
    {
        return 0
    }
}


Shorter version:

sub after_handshake
{
  return ($sysop eq "Oli" ? "Get lost!" : 0);
}


I don't code in Perl, maybe there are better ways to do it.

---
 * Origin: . (2:280/464.47)

.