home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 341.img / TCS161S.ZIP / PROCESS2.PAS < prev    next >
Pascal/Delphi Source File  |  1989-10-08  |  1KB  |  32 lines
  1.  
  2.   procedure acceptfile(tramp:integer);
  3.   var process:boolean; dir1,extend:lstr; f1,f2:text; fn1,fn2:mstr; fn3:lstr;
  4.   begin
  5.     process:=true;
  6.     dir1:=copy(area.xmodemdir,1,length(area.xmodemdir)-1);
  7.     extend:=copy(fnames[tramp],length(fnames[tramp])-3,4);
  8.     extend:=upstring(extend);
  9.     write(^R'Received File: '^S+fnames[tramp]);
  10.     fn1:=forumdir+'PROCNAME.TXT'; fn2:=forumdir+'PROCMSG.TXT';
  11.     assign(f1,fn1); assign(f2,fn2);
  12.     if exist(fn1) then erase(f1);
  13.     if exist(fn2) then erase(f2);
  14.     if process then processfile(fnames[tramp],extend);
  15.     if exist(fn1) then begin
  16.                 reset(f1);
  17.                 readln(f1,fn3);
  18.                 close(f1);
  19.                 fnames[tramp]:=fn3;
  20.                end;
  21.     if exist(fn2) then begin
  22.                 reset(f2);
  23.                 readln(f2,fn3);
  24.                 close(f2);
  25.                 write(^S'  '+fn3+'... ');
  26.                end;
  27.     if not exist('c:\workdir\'+fnames[tramp]) then exit;
  28.  
  29.     writeln(^R'  posting...');
  30. exec(getenv('COMSPEC'),' /C copy c:\workdir\'+fnames[tramp]+' '+dir1+' >etc.tcs');
  31. exec(getenv('COMSPEC'),' /C del c:\workdir\'+fnames[tramp]+' >etc.tcs');
  32.