program pld_v2;

{$APPTYPE CONSOLE}
uses windows;
type
 Tlogs=packed record
  magic:array[0..3] of char;
  id:LongWord;
  size:LongWord;
 end;

 var
 opera_del:boolean=false;

function fileexists(s:string):boolean;
var
 FindData:TWin32FindData;
 Handle:integer;
begin
 Handle:=FindFirstFile(PChar(s),FindData);
 if Handle<0 then result:=false else result:=true;
end;

function Str2DW(s:string):dword;
begin
 result:=ord(s[5])+ord(s[6]) shl 8+ord(s[7])shl 16+ord(s[8]) shl 24 ;
end;

function doctor(file_in,file_out:string):integer;
var
 f_in,f_out:thandle;
 logs:Tlogs;
 rb:cardinal;
 file_size:dword;
 block:string;
 rec:string;
 rec_size:dword;
const
 P3ML='P3ML';
begin
 result:=1;
 f_in:=CreateFile(PChar(file_in), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 if f_in=INVALID_HANDLE_VALUE then exit;
 file_size:=GetFileSize(f_in,nil);
 setlength(block,file_size);
 ReadFile(f_in, block[1], file_size, rb, nil);
 CloseHandle(f_in);
 if rb<>file_size then
  begin
   setlength(block,0);
   inc(result);
   exit;
  end;
 if copy(block,1,4)<>'P3ML' then
  begin
   setlength(block,0);
   inc(result);
   exit;
  end;
 inc(result);
 f_out:=CreateFile(PChar(file_out), GENERIC_READ or GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
 if f_out=INVALID_HANDLE_VALUE then exit;

 delete(block,1,4);
 while pos('P3ML',block)<>0 do
  begin
   rec:=copy(block,1,pos('P3ML',block)+3);
   if length(rec)<12 then
    begin
     Delete(block,1,length(rec));
     continue;
    end;
   rec_size:=Str2DW(rec);
   if (rec_size=length(rec)-8) then
    begin
     if (opera_del=true) and (rec[1]=#$0F) then
      begin
       Delete(block,1,length(rec));
       continue;
      end;
     WriteFile(f_out, P3ML, 4,rb, nil);
     WriteFile(f_out, rec[1], length(rec)-4,rb, nil);
    end;
   Delete(block,1,length(rec));
  end;

 logs.magic:=P3ML;
 logs.id:=$FFFFFFFF;
 logs.size:=0;
 WriteFile(f_out, logs, 12,rb, nil);
 CloseHandle(f_out);
 result:=0;
end;

function GetSmallName(s:string):string;
begin
 while pos('\',s)<>0 do delete(s,1,pos('\',s));
 result:=s;
end;

var
 fd:_WIN32_FIND_DATAA;
 fh:dword;
 out_dir:string;
 param:integer;
begin
writeln('Pinch Log Doctor (C) SLESH 2008');
writeln('E-MAIL: SLESH-2000@mail.ru');
writeln('ICQ: 266-334-734');
writeln('WMZ: Z671833489051');
writeln('WMR: R156568501269');
param:=1;
 if (paramstr(param)='') then
  begin
   writeln(#13#10'Usage: pld.exe -d -o in_dir_name [out_dir_name] - All *.err file');
   writeln('       pld.exe -o file_in - One file');
   writeln('-o Delete Opera Module');
   exit;
  end;
if paramstr(param)='-d' then
 begin
  inc(param);
  if paramstr(param)='-o' then
   begin
    opera_del:=true;
    inc(param);
   end;

  if (paramstr(param)='') then
  begin
   writeln(#13#10'Usage: pld.exe -d in_dir_name [out_dir_name]- All *.err file');
   writeln('       pld.exe file_in - One file');
   exit;
  end;
  out_dir:=paramstr(param+1);
  if out_dir='' then out_dir:=paramstr(param);
  writeln;
  fh:=FindFirstFile(pchar(paramstr(param)+'\*.err'),fd);
  if fh=INVALID_HANDLE_VALUE then exit;
  repeat
   write(GetSmallName(fd.cFileName)+' ');
   case doctor(paramstr(param)+'\'+fd.cFileName,out_dir+'\'+fd.cFileName+'.pld') of
    1:writeln('[-] Can not open input file');
    2:writeln('[-] Can not read input file');
    3:writeln('[-] Can not correct');
    4:writeln('[-] Can not create output file');
    0:writeln('[+] Report is corrected successfully');
   end;
  until FindNextFile(fh,fd)=false;
  exit;
 end;

if paramstr(param)='-o' then
 begin
  opera_del:=true;
  inc(param);
  end;
if not fileexists(paramstr(param)) then
 begin
  writeln(#13#10'[-] Error: input file not found');
  exit;
 end;
deletefile(pchar(paramstr(1)+'.pld'));
case doctor(paramstr(param),paramstr(param)+'.pld') of
    1:writeln(#13#10'[-] Can not open input file');
    2:writeln(#13#10'[-] Can not read input file');
    3:writeln(#13#10'[-] Can not correct');
    4:writeln(#13#10'[-] Can not create output file');
    0:writeln(#13#10'[+] Report is corrected successfully');
end;
end.