Zadanie: potrzebujemy regularnie robić kopię danych poprzez ftp
REBOL []serwer: ftp://uzytkownik:haslo@twoj_serwer/katalog/ katalog: to-file rejoin [ now/year ;;; dla miesięcy od 1 do 9 wstawiamy 0 ;;; (to samo w dniach) either 10 > now/month ["0"][""] now/month either 10 > now/day ["0"][""] now/day ;;; wymieniamy znak : na _ "_" replace/all to-string now/time ":" "_" "/" ] if not exists? katalog [ make-dir katalog foreach el read serwer [ write/binary join katalog el read/binary join serwer el ] ]
Działanie:
- Skrypt łączy się z serwerem
- Tworzy w katalogu z którego jest wykonywany katalog o formacie RokMiesiacDzien_godzina_minuty_sekundy – 20070921_11_04_13
- Kopiuje pliki z katalogu zrodlowego (serwer) do utworzonego katalogu