/*
Quick'n'Dirty Arexx script for doing "batch" uploads
*/

arg path list name
name = strip(name)
if name == '' then name = "Mark Montminy"

if path == '' | list == '' then do
	say 'Usage: Qadd <upload path> <batchfile> [uploader name]'
	exit
	end

signal on break_c
call open(in,list,'R')

parse value readln(in) with area filename description

do until eof(in)
description = translate(strip(description),'','"')
if description == '' then exit

	if exists(path||filename) then call addit()

parse value readln(in) with area filename description

end

exit
break_c:

exit

addit:

address command 'closeareas -a 'area' -r "Uploading file" -f'
address command 'Quickadd 'path||filename' 'area' -u "'name'" "'description'"'
address command 'openareas -a 'area' -f'

return
