On 2017 Dec 18 20:05:50, you wrote to All:   
      
    Ig>    if (pos('.zip',fn)<>0) then fpsystem('unzip -L -o '+fn+' file_id.diz -d   
    Ig> '+general.temppath+cstr(node)+'/ARC/ >/dev/null')   
    Ig>    else if (pos('.lzh',fn)<>0) then fpsystem('lha e f '+fn+' file_id.diz   
    Ig> '+general.temppath+cstr(node)+'/ARC/ >/dev/null')   
    Ig>    else if (pos('.arj',fn)<>0) then fpsystem('arj e f '+fn+' file_id.diz   
    Ig> '+general.temppath+cstr(node)+'/ARC/ >/dev/null')   
    Ig>    else if (pos('.rar',fn)<>0) then fpsystem('unrar x -cl '+fn+'   
    Ig> file_id.diz '+general.temppath+cstr(node)+'/ARC/ >/dev/null');   
      
   these extrtact the file_id.diz file... the whole file... there's no way to   
   extract only part of it...   
      
    Ig>      if (exist('/home/rg/TEMP' + cstr(node) + '/ARC/file_id.diz'))   
    Ig> then   
    Ig>      assign(T,'/home/rg/TEMP' +cstr(node) + '/ARC/file_id.diz');   
    Ig>      reset(T);   
    Ig>         if (IOResult <> 0) then exit;   
    Ig>         star('Importing description.');   
    Ig>         Index := 1;   
    Ig>         erase(T);   
    Ig> end;   
      
   nothing here does anything with the file except where you assign it, reset it,   
   and then erase it... you don't ever read it... you don't even have a begin and   
   end inside the "if" statement...   
      
    Ig> The problem is that it only extracts the first line of the file_id.diz.   
    Ig> Anyone have any ideas?   
      
   nope, sorry...   
      
   but i do have a question... why are you using general.temppath+cstr(node) in   
   the extraction lines but you have hardcoded /home/rg/TEMP+cstr(node) in the   
   importing part? if i had to guess, general.temppath contains /home/rg/TEMP...   
      
   but that brings up something else... why keep calling cstr over and over and   
   over... build your string one time and use it over and over... the code will   
   be much more efficient...   
      
     eg: mytempARCpath:=general.temppath+cstr(node)+'/ARC/';   
      
        if (pos('.zip',fn)<>0) then fpsystem('unzip -L -o '+fn+' file_id.diz -d   
     '+mytempARCpath+' >/dev/null')   
        else if (pos('.lzh',fn)<>0) then fpsystem('lha e f '+fn+' file_id.diz   
     '+mytempARCpath+' >/dev/null')   
        else if (pos('.arj',fn)<>0) then fpsystem('arj e f '+fn+' file_id.diz   
     '+mytempARCpath+' >/dev/null')   
        else if (pos('.rar',fn)<>0) then fpsystem('unrar x -cl '+fn+' file_id.diz   
   '+mytempARCpath+' >/dev/null');   
      
          if (exist(mytempARCpath + 'file_id.diz')) then   
          BEGIN <-- missing in original code   
          assign(T,mytempARCpath + 'file_id.diz');   
          reset(T);   
             if (IOResult <> 0) then exit;   
             star('Importing description.');   
             Index := 1;   
             erase(T);   
          END; <-- missing in original code   
     end;   
      
      
   )\/(ark   
      
   Always Mount a Scratch Monkey   
   Do you manage your own servers? If you are not running an IDS/IPS yer doin' it   
   wrong...   
   ... It's good to be children sometimes and never better than at Christmas.   
   ---   
    * Origin:  (1:3634/12.73)