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 [