Subj : file_id.diz extraction function
To   : All
From : Ignatius
Date : Mon Dec 18 2017 08:05 pm

Hi,

I have a function:

--begin--

function DizExists(const fn:astr):boolean;
var
ok:boolean;
T:Text;
S:string[50];
Index:byte;

begin

   star('Checking for description...'#29);

   if (pos('.zip',fn)<>0) then fpsystem('unzip -L -o '+fn+' file_id.diz -d
'+general.temppath+cstr(node)+'/ARC/ >/dev/null')
   else if (pos('.lzh',fn)<>0) then fpsystem('lha e f '+fn+' file_id.diz
'+general.temppath+cstr(node)+'/ARC/ >/dev/null')
   else if (pos('.arj',fn)<>0) then fpsystem('arj e f '+fn+' file_id.diz
'+general.temppath+cstr(node)+'/ARC/ >/dev/null')
   else if (pos('.rar',fn)<>0) then fpsystem('unrar x -cl '+fn+' file_id.diz 
'+general.temppath+cstr(node)+'/ARC/ >/dev/null');

     if (exist('/home/rg/TEMP' + cstr(node) + '/ARC/file_id.diz')) then
     assign(T,'/home/rg/TEMP' +cstr(node) + '/ARC/file_id.diz');
     reset(T);
        if (IOResult <> 0) then exit;
        star('Importing description.');
        Index := 1;
        erase(T);
end;

--end--

The problem is that it only extracts the first line of the file_id.diz.
Anyone have any ideas?

Thanks,

|09ignatius |15[|07cia|15]|07[

--- Renegade vY2Ka3
 * Origin: catch twenty two >>> >>  > (1:340/800)

.