/*--------------------------------------------------------------*/
/*reading fax settings and writing them into some vars*/

faxprogram = upper(getclip('AVMFaxProgram'))
if faxprogram ~= 'TRAPFAX' then exit

  call open('cservcfg', 'avm:servers.cfg', 'r')

 do forever
    cfaxidl = readln('cservcfg')
    equpos = index(cfaxidl,'=')
    if equpos > 0 then cfaxidh = left(cfaxidl, (equpos - 1))
    clength = length(cfaxidl)
    clength = clength - equpos
    cfaxid = right(cfaxidl, clength)

   if eof('cservcfg') then break

    if cfaxidh = 'faxid' then
     do
      address command 'sys:rexxc/rxset TFaxID '|| cfaxid
     end
    else
    if cfaxidh = 'faxCapability' then
     do
      address command 'sys:rexxc/rxset TFaxCap '|| cfaxid
     end
    else
    if cfaxidh = 'faxsetup1' then
     do
      address command 'sys:rexxc/rxset TFaxStp1 '|| cfaxid
     end
    else
    if cfaxidh = 'faxsetup2' then
     do
      address command 'sys:rexxc/rxset TFaxStp2 '|| cfaxid
     end
    else
    if cfaxidh = 'faxsetup3' then
     do
      address command 'sys:rexxc/rxset TFaxStp3 '|| cfaxid
     end
    else
    if cfaxidh = 'faxsetup4' then
     do
      address command 'sys:rexxc/rxset TFaxStp4 '|| cfaxid
     end
    else
    if cfaxidh = 'faxsetup5' then
     do
      address command 'sys:rexxc/rxset TFaxStp5 '|| cfaxid
     end
 end

  call close('cservcfg')

/*--------------------------------------------------------------*/