1 files changed, 99 insertions, 0 deletions
diff --git a/plugins/Actman/tasks/i_options.inc b/plugins/Actman/tasks/i_options.inc
new file mode 100644
index 0000000000..527e8d0c88
--- /dev/null
+++ b/plugins/Actman/tasks/i_options.inc
@@ -0,0 +1,99 @@
+{}
+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);
+        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;