From: Tim Pope <code@tpope.net>
Date: Tue, 30 Nov 2004 01:09:49 +0000 (+0000)
Subject: Added -b option to quit when on battery power
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=51802422e65a00d0533a09adbcf413942afdfdd8

Added -b option to quit when on battery power
---

diff --git a/perl/mobile-phone-monitor b/perl/mobile-phone-monitor
index 249f5a5..535b4f6 100755
--- a/perl/mobile-phone-monitor
+++ b/perl/mobile-phone-monitor
@@ -10,6 +10,8 @@ use strict;
 use Device::Nokia;
 my $number;
 my %status;
+my $quiton;
+my $daemonize;
 
 my $gsm = new Device::Nokia( port => '/dev/rfcomm1', log => 'file,/dev/null');
 
@@ -27,7 +29,12 @@ sub initialize {
 
 initialize($gsm) || die "Could not initialize modem: $!";
 
-daemonize() if (shift eq "-d");
+while($_=shift) {
+    $daemonize=1 if ($_ eq "-d");
+    $quiton=1 if ($_ eq "-b");
+}
+
+daemonize() if $daemonize;
 
 while(1) {
 %status=("is_active"=>1);
@@ -49,6 +56,7 @@ while($status{"is_active"} ne 0) {
     }
     undef $status{"number"} if (!$number && $status{"callsetup"}==0 && $status{"call"}==0);
     output_status(%status);
+    death() if ($status{"source"}==0 && $status{"callsetup"}==0 && $status{"call"}==0 && $quiton);
 }
 $gsm->disconnect();
 #print "Chillin'...\n";