Subversion Repositories fastphp

Rev

Rev 83 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 83 Rev 91
Line 108... Line 108...
108 
begin
 108 
begin
109 
  // TODO: problem:  mysqli::commit has /res/mysqli.commit.html -> keyword is NOT commit alone
 109 
  // TODO: problem:  mysqli::commit has /res/mysqli.commit.html -> keyword is NOT commit alone
110 
 
 110 
 
111 
  outFile := ChangeFileExt(chmFile, '.ini');
 111 
  outFile := ChangeFileExt(chmFile, '.ini');
112 
  DeleteFile(outFile);
 112 
  DeleteFile(outFile);
113 
  test := LoadFileToStr(chmFile);
 113 
  test := LoadFileToStr(chmFile); // TODO: RawByteString instead of AnsiString?
114 
  if Pos('/php_manual_', test) = -1 then
 114 
  if Pos('/php_manual_', test) = -1 then
115 
  begin
 115 
  begin
116 
    result := false;
 116 
    result := false;
117 
    exit;
 117 
    exit;
118 
  end;
 118 
  end;
Line 211... Line 211...
211 
 
 211 
 
212 
function IsValidPHPExe(const exeFile: TFileName): boolean;
 212 
function IsValidPHPExe(const exeFile: TFileName): boolean;
213 
var
 213 
var
214 
  cont: string;
 214 
  cont: string;
215 
begin
 215 
begin
216 
  cont := LoadFileToStr(exeFile);
 216 
  cont := LoadFileToStr(exeFile); // TODO: RawByteString instead of AnsiString?
217 
  result := (Pos('php://stdout', cont) >= 0) or
 217 
  result := (Pos('php://stdout', cont) >= 0) or
218 
            (Pos('PHP_SELF', cont) >= 0);
 218 
            (Pos('PHP_SELF', cont) >= 0);
219 
end;
 219 
end;
220 
 
 220 
 
221 
end.
 221 
end.