Verified Commit 32edb4b8 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Increment server port if already in use

parent 7221f9a4

ip.fs

+8 −6
Original line number Diff line number Diff line
@@ -318,13 +318,15 @@ Forward !my-addr ( -- ) 


Variable net2o-host "net2o.de" net2o-host $!



: net2o-socket ( port -- ) dup >r

: net2o-socket ( port -- )

    BEGIN  [: dup

	  ipv6( ipv4( [IFDEF] no-hybrid

	  create-udp-server6 [ELSE] create-udp-server46 [THEN]

	  )else( create-udp-server6 )

	  )else( create-udp-server )

	;] catch WHILE  1+  REPEAT

    [IFDEF] no-hybrid 0 [THEN] to net2o-sock

    r> ?dup-0=-IF  my-port  THEN to my-port#

    ?dup-0=-IF  my-port  THEN to my-port#

    [IFDEF] no-hybrid

	ipv4( net2o-sock drop my-port# create-udp-server to net2o-sock )

    [THEN]

net2o.fs

+6 −3
Original line number Diff line number Diff line
@@ -1015,16 +1015,19 @@ in net2o : punch ( addr u o:connection -- ) 
    ELSE  2drop  THEN ;



: pings ( o:connection -- )

    \G ping all addresses except the first one

    punch-addrs $@ ( cell safe/string ) bounds ?DO

    \G ping all addresses (why except the first one?)

    punch-addrs $@ cell safe/string bounds ?DO

	I @ ['] ping-addr1 addr>sock

    cell +LOOP ;



: punchs ( addr u o:connection -- )

    \G send a reply to all addresses

\    ret-addr $10 $make { w^ ret }

    punch-addrs $@ bounds ?DO

	I @ ['] send-punch addr>sock

    cell +LOOP  2drop ;

    cell +LOOP  2drop

\    ret $@ ret-addr swap move ret $free

;



\ send chunk

wiki/commands.md

+0 −1
Original line number Diff line number Diff line
@@ -455,4 +455,3 @@ the balance command, which balances the selected asset. 
The signature of a contract signs the wallet's state (serialized in

normalized form) after the contract has been executed.  The current

contract's hash is part of the serialization.
 
  chatgroups: list chatgroups