Procházet zdrojové kódy

Do not timeout at boot

Zachary Kotlarek před 13 roky
rodič
revize
d67193e983
3 změnil soubory, kde provedl 33 přidání a 2 odebrání
  1. 31 0
      dmx/launchd/com.uberzach.ola.leds.plist
  2. 1 1
      dmx/leds.pl
  3. 1 1
      dmx/rope.pl

+ 31 - 0
dmx/launchd/com.uberzach.ola.leds.plist

@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
+<plist version="1.0">
+<dict>
+	<key>UserName</key>
+	<string>tv</string>
+	<key>LimitLoadToHosts</key>
+	<array>
+		<string>heady.uberzach.com</string>
+	</array>
+	<key>RunAtLoad</key>
+	<true/>
+	<key>Label</key>
+	<string>com.uberzach.ola.rope</string>
+	<key>KeepAlive</key>
+	<dict>
+		<key>OtherJobEnabled</key>
+		<dict>
+			<key>com.uberzach.ola.dmx</key>
+			<true/>
+			<key>com.uberzach.state</key>
+			<true/>
+		</dict>
+	</dict>
+	<key>ProgramArguments</key>
+	<array>
+		<string>/Users/tv/bin/video/dmx/leds.pl</string>
+		<string>0.25</string>
+	</array>
+</dict>
+</plist>

+ 1 - 1
dmx/leds.pl

@@ -100,7 +100,7 @@ my $stateLast  = $state;
 my $lights     = 0;
 my $lights     = 0;
 my $updateLast = 0;
 my $updateLast = 0;
 my $pushLast   = 0;
 my $pushLast   = 0;
-my $pullLast   = 0;
+my $pullLast   = time();
 
 
 # Always force lights out at launch
 # Always force lights out at launch
 dim({ 'channel' => 13, 'value' => 0, 'time' => 0 });
 dim({ 'channel' => 13, 'value' => 0, 'time' => 0 });

+ 1 - 1
dmx/rope.pl

@@ -128,7 +128,7 @@ my $stateLast  = $state;
 my $lights     = 0;
 my $lights     = 0;
 my $updateLast = 0;
 my $updateLast = 0;
 my $pushLast   = 0;
 my $pushLast   = 0;
-my $pullLast   = 0;
+my $pullLast   = time();
 
 
 # Always force lights out at launch
 # Always force lights out at launch
 dim({ 'channel' => 0, 'value' => 0, 'time' => 0 });
 dim({ 'channel' => 0, 'value' => 0, 'time' => 0 });