MSGID: 2:203/2 61de92d2   
   REPLY: 2:280/464.47 61389274   
   PID: JamNNTPd/Win32 1   
   CHRS: CP437 2   
   TZUTC: 0100   
   TID: CrashMail II/Win32 0.71   
   Hey Paul, if your editor supports comment linking, here's the start of an   
   interesting exchange of messages regarding Perl hooks.   
      
      If it does not, you have the date and time, it started, below. Maybe that   
   can help you find the chain, 140 messages ago.   
      
   Oli -> All wrote 2021-09-08 12:37:   
      
    O> HELP! ;)   
    O> I'm trying to use the @me array in on_handshake(), but no matter what I   
    O> do I always get the error:   
      
    O> "Perl on_handshake(): @me contains no valid addresses"   
      
    O> even with this simple sub:   
      
    O> sub on_handshake   
    O> {   
    O> @me;   
    O> }   
      
    O> + 08 Sep 09:45:26 [51014] incoming session with unknown   
    O> - 08 Sep 09:45:27 [51014] VER binkd/1.1a-112/Linux binkp/1.1   
    O> + 08 Sep 09:45:27 [51014] addr: 4000:1/1@testnet   
    O> + 08 Sep 09:45:27 [51014] Perl on_handshake(): @me contains no valid   
    O> addresses   
    O> - 08 Sep 09:45:27 [51014] hiding aka 2000:1/2@fakenet   
      
    O> Is this a bug or how do I use @me? The perlhooks documentation says   
      
    O> 5) on_handshake()   
    O> - for server called after receiving remote addresses (before addr is sent)   
    O> - best for hide_aka and present_aka logic :-)   
    O> - return non-empty string to abort session with that reason   
    O> otherwise, if @me is defined present @me as our akas   
      
      
    O> The error message is from perlhooks.c   
      
    O> if ((me = perl_get_av("me", FALSE)) != NULL) {   
    O> FTN_ADDR addr;   
    O> int n = 0, N = av_len(me) + 1;   
    O> if (N > 0) state->pAddr = xalloc(N*sizeof(FTN_ADDR));   
    O> for (i = 0; i < N; i++) {   
    O> svp = av_fetch(me, i, FALSE);   
    O> if (svp == NULL) continue;   
    O> if (!parse_ftnaddress(SvPV(*svp, len), &addr, cfg->pDomains.first))   
    O> continue;   
    O> exp_ftnaddress(&addr, cfg->pAddr, cfg->nAddr, cfg->pDomains.first);   
    state->> pAddr[n++] = addr;   
    O> }   
    state->> nAddr = n;   
    O> if (n == 0) Log(LL_WARN, "Perl on_handshake(): @me contains no valid   
    O> addresses");   
    O> }   
      
    O> ---   
    O> * Origin: 1995| Invention of the Cookie. The End. (2:280/464.47)   
      
      
   --    
      
      
      
      
   ..   
      
   --- Mozilla/5.0 (Windows; U; Windows NT 5.1; sv-SE; rv:1.9.1.16) Gecko/20101125   
    * Origin: news://eljaco.se (2:203/2)   
   SEEN-BY: 1/123 14/0 15/0 90/1 103/705 105/81 106/201 114/705 709 120/340   
   SEEN-BY: 123/120 131 124/5016 129/305 153/250 757 7715 154/10 201/0   
   SEEN-BY: 203/0 2 124 218/840 220/70 221/0 1 226/17 30 227/114 229/110   
   SEEN-BY: 229/200 307 424 426 550 664 700 230/0 240/5832 249/206 317   
   SEEN-BY: 250/5 8 266/512 267/800 280/464 5003 5555 282/1038 292/854   
   SEEN-BY: 292/8125 298/25 301/1 305/3 310/31 317/3 320/219 322/757   
   SEEN-BY: 341/234 342/200 396/45 423/120 460/58 633/280 712/848 770/1   
   SEEN-BY: 770/100 340 772/210 220 230 2452/250   
   PATH: 203/2 0 280/464 770/1 317/3 229/426