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;
The problem is that it only extracts the first line of the file_id.diz. Anyone have any ideas?
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;
The problem is that it only extracts the first line of the file_id.diz. Anyone have any ideas?
--begin--
--end--
--begin--
--end--
Sysop: | digital man |
---|---|
Location: | Riverside County, California |
Users: | 1,048 |
Nodes: | 15 (0 / 15) |
Uptime: | 86:00:31 |
Calls: | 236,065 |
Files: | 60,366 |
D/L today: |
10 files (1,489K bytes) |
Messages: | 289,982 |