===
On 5 Apr 2004 at 23:06, Anton Rolls wrote:
I think don't use /no-wait.
(You also might not need to use wait myPop, then ...)
Just a quick suggestion.
The difference between console typing session and
script is: the script doesn't pause in between...
===
From: Janeks
I experimented with wait / nowait - it is not a
reason.
...
===
Hi, Janeks,
I think you may not have fully understood what Anton was suggesting. I can't speak
for Anton, but I suspect that he was meaning that you may not have picked the ideal
*combination* of commands for use. Rewritten in a slightly different way:
***
print "Content-Type: text/plain"
print "" ; required
print "<html>"
print "<head>"
print "<title>Rebol script test</title>"
print "</head>"
print "<body>"
print "<h1>Hello!</h1>"
checkPop: func [user-name passe pop-server port-number] [
myCommands: ["user admin" "pass qwerty" "list"]
myPop: open/lines [
scheme: 'tcp
host: pop-server
port-id: port-number
]
response: pick myPop 1
probe response
print "<br>"
foreach myCom myCommands [
print join "<br>>" myCom
print "<br>"
insert myPop myCom
either mycom <> "list" [
response: pick myPop 1
probe response
][
while [(response: pick mypop 1) <> "."] [probe response]
]
]
print "</table>"
print "<pre>quit"
insert myPop "quit"
probe pick myPop 1
print "</pre>"
close myPop
]
checkPop "admin" "qwerty" "localhost" 110
print "</body>"
print "</html>"
****
In this version, the tcp open command reads by line but waits for the line. The pick
command picks the "first" response that comes in on the port, namely the first line.
The main "problem" that comes in are the multiline responses. In this case I borrowed
the technique used in the REBOL's POP scheme, namely read until an end marker is
detected. I left your program in the same form so that you can compare and contrast
what I think Anton meant with your own version.
It is fun to play with the TCP protocols as you have. For a better understanding of
master REBOL techniques, try reading through the REBOL POP scheme:
probe system/schemes/pop
and its companion support utilities:
probe net-utils
Hope that helps on ALL your platforms.
--Scott Jones
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
