avoid alerts on wake from sleep

Author: mining-visualizer

src/main.lfm

@@ -4490,4 +4490,10 @@ object LogView: TLogView
     left = 307
     top = 140
   end
+  object sleepDetector: TTimer
+    Interval = 400
+    OnTimer = sleepDetectorTimer
+    left = 380
+    top = 140
+  end
 end

src/main.pas

@@ -71,6 +71,7 @@ TLogView = class(TForm)
 	menuHelp: TMenuItem;
 	mnuWebSite: TMenuItem;
 	mnuContents: TMenuItem;
+	sleepDetector: TTimer;
 	txtDonation1: TEdit;
 	txtDonation2: TEdit;
 	txtDonation3: TEdit;
@@ -98,7 +99,7 @@ TLogView = class(TForm)
 	mnuTools: TMenuItem;
 	txtLog: TMemo;
 	procedure actExitExecute(Sender: TObject);
- procedure actPreferencesExecute(Sender: TObject);
+ 	procedure actPreferencesExecute(Sender: TObject);
 	procedure actRefreshGaugeExecute(Sender: TObject);
 	procedure actRestoreExecute(Sender: TObject);
 	procedure actStartMinimizedExecute(Sender: TObject);
@@ -115,14 +116,18 @@ TLogView = class(TForm)
 	procedure mnuWebSiteClick(Sender: TObject);
 	procedure onSocketReceive(msg: string; ip: string);
 	procedure onSocketError(msg: string);
+	procedure sleepDetectorTimer(Sender: TObject);
 	procedure Timer1Timer(Sender: TObject);
 	procedure txtDonation1Change(Sender: TObject);
 	procedure txtDonation2Change(Sender: TObject);
 	procedure txtDonation3Change(Sender: TObject);
 
-public
+//public
 	procedure LogMsg(msg: string);
 
+private
+   m_lastSleepCheck: TDateTime;
+   
 end;
 
 var
@@ -181,6 +186,8 @@ procedure TLogView.FormCreate(Sender: TObject);
    txtDonation1.Text := DONATION_ENS;
    txtDonation2.Text := DONATION_ETH;
    txtDonation3.Text := DONATION_ETC;
+   
+   m_lastSleepCheck := Now;
 end;
 
 procedure TLogView.FormShow(Sender: TObject);
@@ -282,9 +289,20 @@ procedure TLogView.onSocketError(msg: string);
    LogMsg('ERR : ' + msg);
 end;
 
+procedure TLogView.sleepDetectorTimer(Sender: TObject);
+begin
+	if MillisecondsBetween(Now, m_lastSleepCheck) > sleepDetector.Interval * 10 then begin
+      g_collector.awakeFromSleep;
+	end;
+   m_lastSleepCheck := Now;
+end;
+
 procedure TLogView.Timer1Timer(Sender: TObject);
 begin
    if g_widgetData.widgetOnline then begin
+      // if MVis is configured to boot with the OS, it might start before Rainmeter/Geektool, and 
+      // the gauges might then contain garbage. so we wait until the widget utility is running
+      // and then do a gauge refresh.
       Timer1.Enabled := false;
 		g_collector.gaugeRefresh;
    end;

src/uCollector.pas

@@ -36,7 +36,6 @@ interface
    INTVL_POLL_OFFLINE = 10 * 1000;
    INTVL_PEER_COUNT = 20 * 1000;
    INTVL_BALANCE = 30 * 1000;
-   INTVL_ALERTS_START_DELAY = 5000;
 
 type
 
@@ -89,7 +88,9 @@ CCollector = class(TThread)
       // used to detect when hash rates change significantly (some things need recalculation)
       m_hashRateReference: double;
       m_lastWebAlert: string;
+      // when did we start, or last awake from sleep.
       m_startedAt: TDateTime;
+      m_alertsStartDelay: integer;
 
 end;
 
@@ -118,6 +119,7 @@ constructor CCollector.Create;
    m_hashRateReference := -1;
    m_lastWebAlert := '';
    m_startedAt := Now;
+   m_alertsStartDelay := 5000;
 
    // launch the worker thread straight away
 	Inherited Create(false)
@@ -171,7 +173,8 @@ procedure CCollector.Execute;
 	// periodic check to see if any offline miners have come online recently
    m_tasks.scheduleTask(@pollOfflineMiners, 0, INTVL_POLL_OFFLINE, true, 'pollOfflineMiners');
 
-   m_tasks.scheduleTask(@updateAlerts, 1, INTVL_ALERTS_START_DELAY + 1000, false, 'alertsStartDelay');
+   // after things have settled down, check if there are any alerts
+   m_tasks.scheduleTask(@updateAlerts, 0, m_alertsStartDelay + 1000, false, 'alertsStartDelay');
 
    widgetHeartBeat(0);
    m_tasks.scheduleTask(@widgetHeartBeat, 0, 10 * 1000, true, 'widgetHeartBeat');
@@ -188,22 +191,6 @@ procedure CCollector.Execute;
 end;
 
 
-procedure CCollector.awakeFromSleep;
-var
-   i: integer;
-begin
-   Log.Writeln(['Trace: CCollector.awakeFromSleep'], true);
-   // set everybody offline
-   m_nodeLiaison := -1;
-   for i := 0 to g_miners.count - 1 do
-      g_miners.byRow[i].online := false;
-   
-   sleep(5000);
- 	pollOfflineMiners(0);
-   m_tasks.scheduleTask(@delayedStartTasks, Ord(SleepAwake), INTVL_DELAYED_START, false, 'awake:delayedStartTasks');
-end;
-
-
 procedure CCollector.delayedStartTasks(mode: PtrUInt);
 begin
    Log.Writeln(['Trace: CCollector.delayedStartTasks'], true);
@@ -223,6 +210,17 @@ procedure CCollector.delayedStartTasks(mode: PtrUInt);
 end;
 
 
+procedure CCollector.awakeFromSleep;
+begin
+   m_startedAt := Now;
+   // things take longer to settle down after a 'wake from sleep'.
+   m_alertsStartDelay := 20 * 1000;
+   // after things have settled down, check if there are any alerts
+   m_tasks.scheduleTask(@updateAlerts, 0, m_alertsStartDelay + 1000, false, 'alertsStartDelay');
+   Log.Writeln(['Mining Visualizer has detected a wake from sleep event']);
+end;
+
+
 procedure CCollector.onMinerConnect(connectData: TJSONObject);
 var
    minerID: integer;
@@ -802,11 +800,11 @@ procedure CCollector.updateAlerts(data: PtrUInt);
 begin
    jAlerts := CheckAlerts;
    s := jAlerts.AsJSON;
-   // at startup we want to avoid flashing alerts until all miners have reported in and things have 
-   // stabilized somewhat.  there's a delayed start task scheduled at startup slightly after 
-   // INTVL_ALERTS_START_DELAY to make sure we send out the necessary alerts at that time in case there's
-   // a lull in activity right then.
-   if (s <> m_lastWebAlert) and (MillisecondsBetween(Now, m_startedAt) > INTVL_ALERTS_START_DELAY) then begin
+   // at startup, or after we awake from sleep, we want to avoid flashing alerts until all miners 
+   // have reported in and things have stabilized somewhat.  there's a delayed start task scheduled 
+   // at startup slightly after m_alertsStartDelay to make sure we send out the necessary
+   // alerts at that time in case there's a lull in activity right then.
+   if (s <> m_lastWebAlert) and (MillisecondsBetween(Now, m_startedAt) > m_alertsStartDelay) then begin
       if jAlerts['MasterAlert'].AsBoolean then
       	alertUser;
       g_webFace.updateAlerts(jAlerts); // jAlerts is freed in the g_webFace.updateAlerts call chain