Context Navigation

UModuleACL.pas

Last change on this file was 73, checked in by chronos, 12 years ago
Modified: Packages are now stored as uncomporessed and are linked with relative path to project.
File size: 1.1 KB

Line
1	unit UModuleACL;
2
3	{$mode objfpc}{$H+}
4
5	interface
6
7	uses
8	Classes, SysUtils, UModularSystem;
9
10	type
11	{ TModuleACL }
12
13	TModuleACL = class(TModule)
14	protected
15	procedure DoInstall; override;
16	procedure DoStart; override;
17	procedure DoStop; override;
18	procedure DoUninstall; override;
19	public
20	constructor Create(AOwner: TComponent); override;
21	destructor Destroy; override;
22	end;
23
24
25	implementation
26
27	uses
28	UMainForm;
29
30	{ TModuleACL }
31
32	procedure TModuleACL.DoStart;
33	begin
34	MainForm.Log(Identification + ' started');
35	end;
36
37	procedure TModuleACL.DoStop;
38	begin
39	MainForm.Log(Identification + ' stopped');
40	end;
41
42	procedure TModuleACL.DoInstall;
43	begin
44	MainForm.Log(Identification + ' installed');
45	end;
46
47	procedure TModuleACL.DoUninstall;
48	begin
49	MainForm.Log(Identification + ' uninstalled');
50	end;
51
52	constructor TModuleACL.Create(AOwner: TComponent);
53	begin
54	inherited;
55	Identification := 'UserACL';
56	Title := 'User ACL';
57	Version := '1.0';
58	License := 'GNU/LGPLv3';
59	Dependencies.Add('User');
60	end;
61
62	destructor TModuleACL.Destroy;
63	begin
64	inherited Destroy;
65	end;
66
67	end.
68

Note: See TracBrowser for help on using the repository browser.