From 9a2bfbb599f3c477e37f4dc25b6aaab90b9a4224 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tom=C3=A1=C5=A1=20Brada?= Date: Tue, 15 Dec 2015 16:25:43 +0100 Subject: [PATCH] Changed Load sheduling and disabled Save on shutdown. Save after 20s then every 40s. --- dhtPersist.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/dhtPersist.pas b/dhtPersist.pas index 95a8095..50d0d03 100644 --- a/dhtPersist.pas +++ b/dhtPersist.pas @@ -99,10 +99,12 @@ end; procedure t.Init; begin LoadID; - Shedule(1200,@doSoon); - Shedule(40000,@doPeriodic); + Shedule(2000,@doSoon); + Shedule(20000,@doPeriodic); + { pot:=ServerLoop.OnTerminate; ServerLoop.OnTerminate:=@doLast; + } end; var o:t; -- 2.11.4.GIT