REBOL [
	Title:	"Wysylaczka aktualnego stanu liczenia SETI"
	Date:	03-Jul-2003
	Author:	"noster@ruchoporu.org"
	Version	1.3
]

arg: system/script/args

if (arg <> none) and ((arg = "?") or (arg = "help")) [
    print "Uzycie: rebol -s wysylaczka.r [nazwa_komputera]"
    quit
]

state: read/lines %state.sah
temp: read/lines %temp.sah
user: read/lines %user_info.sah
prog: fifth state
email: fourth temp
name: fifth temp
results: pick user 16
cpu: fourth state
remove/part prog 5
remove/part email 11
remove/part name 5
remove/part results 9
remove/part cpu 4
url: join "http://ruchoporu.org/setimon?" ["progress=" prog "&email=" email "&user=" name "&unitNo=" results "&time=" cpu]
replace/all url " " "%20"
if arg <> none [append url join "&computer=" arg]
read to-url url
quit