Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] Re: differences between script output and typing with tcp port

From: Gary::Jones::usap::gov at: 6-Apr-2004 16:56

=== 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