Hi Graham, Graham Chiu wrote: > What do ppl use to transfer files across a network?
Here're two minimalistic scripts I once used ----- sending ------ #!/bin/r REBOL [] print ">>> File Send Utility >>>^/" fn: ask "Filename: " if #"%" = first fn [ remove/part fn 1 ] fn: to-file fn sv: ask "Server : " data: read/binary fn p: open/binary join tcp:// [sv ":" 4321] insert p data ----- end sending ------ ----- recieving ------ REBOL [] print "<<< File Recieve Utility <<<" fn: ask "Filename: " if #"%" = first fn [ remove/part fn 1 ] fn: to-file fn sp: open/binary tcp://:4321 wait sp cp: first sp while [data: copy cp] [ write/append/binary fn data ] ----- end recieving ------ I turned 'em into a single script that may act as sender or reciever, depending on how you call it, too. If anyone is interested, I'll send it along ... Kind regards, Ingo -- To unsubscribe from this list, please send an email to [EMAIL PROTECTED] with "unsubscribe" in the subject, without the quotes.
