rebol [ title: "inspector" version: 1.5 date: 2010 author: "Sebastien 'Jedi' Jeudy" email: inspectoring@free.fr url: http://inspectoring.free.fr ] view center-face layout [ across lab "Text" inspector-text: field 600 return lab "Source" inspector-source: field 600 return lab "Ftp" inspector-ftp: field 200 lab "Tempo (s)" inspector-tempo: rotary 75 "10" "30" "60" "300" "900" "1800" "3600" return lab "User" inspector-user: field 200 lab "Password" inspector-password: field hide 150 return pad 225x25 button "Restart" [ either any [ empty? trim inspector-source/text error? try [ inspector-source-list: read/lines to-file trim inspector-source/text ] ] [ alert "Source error" ] [ while [ true ] [ if error? try [ inspector-lines: "" foreach [ source ] inspector-source-list [ either error? try [ inspector-page: to-string read to-url trim source ] [ write/append %errors.log join now [ " : page error with '" source "'" newline ] ] [ if find inspector-page inspector-text/text [ inspector-lines: join inspector-lines reduce [ now" : "trim source" talked about "inspector-text/text
] ] ] ] write to-url join "ftp://" [ trim inspector-user/text ":" trim inspector-password/data "@" trim inspector-ftp/text "/index.html" ] reduce [ "inspectoring"

"inspectoring..."

inspector-lines

"[ ""code"" ] " "[ ""interface"" ] " "[ ""author"" ]"
] ] [ write/append %errors.log join now [ " : inspectoring error" newline ] ] wait to-integer inspector-tempo/text ] ] ] button "Exit" #"^(ESC)" [ quit ] ]