home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 2: PC
/
frozenfish_august_1995.bin
/
bbs
/
d09xx
/
d0907.lha
/
CyberPager
/
rexx
/
mwm
/
getuuenv
next >
Wrap
Text File
|
1993-08-28
|
518b
|
23 lines
/* 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 ""