[Inetremote-cvs] inetremote plugin.pas,1.4,1.5 main.pas,1.9,1.10

[<he...@us...>]

Update of /cvsroot/inetremote/inetremote
In directory sc8-pr-cvs1:/tmp/cvs-serv19747

Modified Files:
	plugin.pas main.pas 
Log Message:
- Added no plugins loaded message
- Changed several things

Index: plugin.pas
===================================================================
RCS file: /cvsroot/inetremote/inetremote/plugin.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** plugin.pas	9 Mar 2003 18:18:19 -0000	1.4
--- plugin.pas	29 Mar 2003 11:11:14 -0000	1.5
***************
*** 17,21 ****
  
  uses
!   IdBaseComponent, IdComponent, IdTCPServer, IdHTTPServer, StdCtrls, Controls, ExtCtrls, Classes,Windows, Messages, SysUtils, Variants, Graphics, Forms,
    Dialogs, ComCtrls, lang;
  
--- 17,21 ----
  
  uses
!   IdCustomHTTPServer, StdCtrls, Controls, ExtCtrls, Classes,Windows, Messages, SysUtils, Variants, Graphics, Forms,
    Dialogs, ComCtrls, lang;
  

Index: main.pas
===================================================================
RCS file: /cvsroot/inetremote/inetremote/main.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** main.pas	10 Mar 2003 17:54:12 -0000	1.9
--- main.pas	29 Mar 2003 11:11:14 -0000	1.10
***************
*** 17,24 ****
  
  uses
-   IdBaseComponent, IdComponent, IdTCPServer, IdHTTPServer,
    StdCtrls, Controls, ExtCtrls, Classes,Windows, Messages, SysUtils, Variants, Graphics, Forms,
!   Dialogs, ComCtrls, lang, IniFiles, Grids, log_prop, plugin, url;
! 
  type
    Tfrm_main = class(TForm)
--- 17,24 ----
  
  uses
    StdCtrls, Controls, ExtCtrls, Classes,Windows, Messages, SysUtils, Variants, Graphics, Forms,
!   Dialogs, ComCtrls, lang, IniFiles, Grids, log_prop, plugin, url,
!   IdComponent, IdTCPServer, IdCustomHTTPServer,
!   IdHTTPServer, IdBaseComponent;
  type
    Tfrm_main = class(TForm)
***************
*** 221,224 ****
--- 221,230 ----
    if (url = '/html/') OR (url = '/html') OR (url = '/wap/') OR (url = '/wap') then
    begin
+     if (plugins.Count = 0) then
+     begin
+       AResponseInfo.ContentText := trans('web','no_plugins');
+       exit;
+     end;
+ 
      for i := 0 to plugins.Count-1 DO
      begin