From 86376913c5502f97edd9f53506971423bda36d3a Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 2 Jul 2021 17:58:04 +0100
Subject: [PATCH] disorder-ondemand.in: Rename `$STOPTIME' to `$WAKETIME'.

I plan to use it for other kinds of wakeup things.
---
 disorder-ondemand.in | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/disorder-ondemand.in b/disorder-ondemand.in
index 86b9249..3cb3850 100755
--- a/disorder-ondemand.in
+++ b/disorder-ondemand.in
@@ -30,7 +30,7 @@ my $PAUSETIME = 300;
 my $PID = undef;
 my $STATE = "off"; # `off', `on', `killed'
 my $WANT = "off"; # `off', `on', `pause'
-my $STOPTIME = undef; # if $WANT eq "pause"
+my $WAKETIME = undef;
 my $NOW = time;
 
 $SIG{CHLD} = sub {
@@ -52,16 +52,16 @@ $SIG{TERM} = $SIG{INT} = sub {
 sub start () { $WANT = "on"; $STOPTIME = undef; }
 
 sub pause () {
-  if ($WANT eq "on") { $WANT = "pause"; $STOPTIME = $NOW + $PAUSETIME; }
+  if ($WANT eq "on") { $WANT = "pause"; $WAKETIME = $NOW + $PAUSETIME; }
 }
 
 sub fix_state () {
 
   ##mumble "state = $STATE ($PID)";
-  ##mumble "want = $WANT ($STOPTIME <=> $NOW)";
+  ##mumble "want = $WANT ($WAKETIME <=> $NOW)";
 
-  if ($WANT eq "pause" && $NOW >= $STOPTIME) {
-    $WANT = "off"; $STOPTIME = undef;
+  if ($WANT eq "pause" && $NOW >= $WAKETIME) {
+    $WANT = "off"; $WAKETIME = undef;
     mumble "pause time up: stopping" if $STATE eq "on";
   }
 
@@ -99,7 +99,7 @@ sub watch_status () {
     SEL: {
       eval {
 	$nfd = select my $rdout = $rdin, undef, undef,
-	  defined($STOPTIME) ? $STOPTIME - $NOW : 60;
+	  defined($WAKETIME) ? $WAKETIME - $NOW : 60;
       };
       if ($@ && $@->errno == EINTR) { next SEL; }
       elsif ($@) { mumble "error from select: " . $@->errno; last WATCH; }
-- 
2.11.0