Hi Gabriele,
that looks much better than my solution ...
about pass-thru, I think I don't understand enough to create
my own version of 'copy and friends without help.
Also be warned, I assembled it by looking what another client,
and the server really did, it doesn't work on the 20000228
(snapshot or later?) any more, but I can send the updated
version, if someone is interested ...
thank you,
Ingo
Those were the words of [EMAIL PROTECTED]:
> [EMAIL PROTECTED] wrote:
>
> > find-port: func["Find a free port to connect to" /local port-num p] [
> > port-num: + random 9999 10000
> > while [error? try [p: system/words/open join tcp://: port-num]] [
> > print "while"
> > port-num: port-num + 1
> > ]
> > system/words/close p
> > port-num
> > ]
>
> If you want a free listen port, try:
>
> >> port: open tcp://:0
> >> port/port-id
> == 2891
>
> (I'll give it a look more deeply later... too few time now. :-)
>
> Ciao,
> /Gabriele./
> o--------------------) .-^-. (----------------------------------o
> | Gabriele Santilli / /_/_\_\ \ Amiga Group Italia --- L'Aquila |
> | GIESSE on IRC \ \-\_/-/ / http://www.amyresource.it/AGI/ |
> o--------------------) `-v-' (----------------------------------o
>
Hi Rebols,
regards,
Ingo
-- _ . _
ingo@)|_ /| _| _ <We ARE all ONE www._|_o _ _ ._ _
www./_|_) |o(_|(/_ We ARE all FREE> ingo@| |(_|o(_)| (_|
http://www.2b1.de/Rebol/ ._| ._|
