diff options
Diffstat (limited to 'plugins/Actman30/tasks/i_options.inc')
-rw-r--r-- | plugins/Actman30/tasks/i_options.inc | 100 |
1 files changed, 0 insertions, 100 deletions
diff --git a/plugins/Actman30/tasks/i_options.inc b/plugins/Actman30/tasks/i_options.inc deleted file mode 100644 index da5cce0c40..0000000000 --- a/plugins/Actman30/tasks/i_options.inc +++ /dev/null @@ -1,100 +0,0 @@ -{}
-const
- opt_task :PAnsiChar = 'Task';
- opt_tasks :PAnsiChar = 'Tasks';
- opt_count :PAnsiChar = 'numtasks';
-
- opt_name :PAnsiChar = 'name';
- opt_flags :PAnsiChar = 'flags';
- opt_action :PAnsiChar = 'action';
- opt_repeat :PAnsiChar = 'repeat';
- opt_days :PAnsiChar = 'dayoffset';
- opt_intdays :PAnsiChar = 'intdays';
-
- opt_time_lo :PAnsiChar = 'starttime_lo';
- opt_time_hi :PAnsiChar = 'starttime_hi';
- opt_interval_lo:PAnsiChar = 'interval_lo';
- opt_interval_hi:PAnsiChar = 'interval_hi';
- opt_lastcall_lo:PAnsiChar = 'lastcall_lo';
- opt_lastcall_hi:PAnsiChar = 'lastcall_hi';
-
-procedure SaveTasks;
-var
- section:array [0..63] of AnsiChar;
- p,p1:PAnsiChar;
- i,amount:integer;
-begin
- DBDeleteGroup(0,DBBranch,opt_tasks);
- amount:=0;
- p1:=StrCopyE(section,opt_tasks);
- p1^:='/'; inc(p1);
- p1:=StrCopyE(p1,opt_task);
- for i:=0 to MaxTasks-1 do
- begin
- if (TaskList[i].flags and ACF_ASSIGNED)=0 then
- continue;
-
- p:=StrEnd(IntToStr(p1,amount));
- p^:='/'; inc(p);
- with TaskList[i] do
- begin
- StrCopy(p,opt_flags ); DBWriteDWord (0,DBBranch,section,flags);
- StrCopy(p,opt_name ); DBWriteUnicode(0,DBBranch,section,name);
- StrCopy(p,opt_action); DBWriteDWord (0,DBBranch,section,action);
- StrCopy(p,opt_repeat); DBWriteWord (0,DBBranch,section,count);
- StrCopy(p,opt_days ); DBWriteByte (0,DBBranch,section,dayoffset);
- //systemtime to filetime if needs
- StrCopy(p,opt_time_lo ); DBWriteDWord(0,DBBranch,section,starttime.dwLowDateTime);
- StrCopy(p,opt_time_hi ); DBWriteDWord(0,DBBranch,section,starttime.dwHighDateTime);
- StrCopy(p,opt_interval_lo); DBWriteDWord(0,DBBranch,section,interval .dwLowDateTime);
- StrCopy(p,opt_interval_hi); DBWriteDWord(0,DBBranch,section,interval .dwHighDateTime);
- StrCopy(p,opt_intdays ); DBWriteByte (0,DBBranch,section,intdays);
- StrCopy(p,opt_lastcall_lo); DBWriteDWord(0,DBBranch,section,lastcall .dwLowDateTime);
- StrCopy(p,opt_lastcall_hi); DBWriteDWord(0,DBBranch,section,lastcall .dwHighDateTime);
- end;
- inc(amount);
- end;
- DBWriteByte(0,DBBranch,opt_count,amount);
-end;
-
-function LoadTasks:integer;
-var
- section:array [0..63] of AnsiChar;
- p,p1:PAnsiChar;
- i:integer;
-begin
- MaxTasks:=DBReadByte(0,DBBranch,opt_count);
- result:=MaxTasks;
- if MaxTasks>0 then
- begin
- GetMem (TaskList ,MaxTasks*SizeOf(tTaskRec));
- FillChar(TaskList^,MaxTasks*SizeOf(tTaskRec),0);
- p1:=StrCopyE(section,opt_tasks);
- p1^:='/'; inc(p1);
- p1:=StrCopyE(p1,opt_task);
- for i:=0 to MaxTasks-1 do
- begin
- p:=StrEnd(IntToStr(p1,i));
- p^:='/'; inc(p);
-
- with TaskList[i] do
- begin
- StrCopy(p,opt_flags ); flags :=DBReadDWord (0,DBBranch,section);
- StrCopy(p,opt_name ); name :=DBReadUnicode(0,DBBranch,section);
- StrCopy(p,opt_action); action :=DBReadDWord (0,DBBranch,section);
- StrCopy(p,opt_days ); dayoffset:=DBReadByte (0,DBBranch,section);
- //!! smallint?
- StrCopy(p,opt_repeat); count :=Shortint(DBReadWord(0,DBBranch,section));
-
- StrCopy(p,opt_time_lo ); starttime.dwLowDateTime :=DBReadDWord(0,DBBranch,section);
- StrCopy(p,opt_time_hi ); starttime.dwHighDateTime:=DBReadDWord(0,DBBranch,section);
- StrCopy(p,opt_interval_lo); interval .dwLowDateTime :=DBReadDWord(0,DBBranch,section);
- StrCopy(p,opt_interval_hi); interval .dwHighDateTime:=DBReadDWord(0,DBBranch,section);
- StrCopy(p,opt_intdays ); intdays:=DBReadByte(0,DBBranch,section);
- StrCopy(p,opt_lastcall_lo); lastcall .dwLowDateTime :=DBReadDWord(0,DBBranch,section);
- StrCopy(p,opt_lastcall_hi); lastcall .dwHighDateTime:=DBReadDWord(0,DBBranch,section);
- // filetime to systemtime if needs
- end;
- end;
- end;
-end;
|