/* Routine to dig information out of the Amiga UUCP system */

parse arg name

/* Try the environment first */
if open(env, 'env:'name) then do
	out = readln(env)
	call close env
	return strip(out)
	end

/* Otherwise, search uulib:config */
if ~open(config, 'uulib:config') then
	if ~open(config, 's:uuconfig') then return ""

do while ~eof(config)
	line = readln(config)
	if left(line, 1) = '#' then iterate
	parse var line configname value
	if upper(configname) = upper(name) then return strip(value)
	end

return ""