projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a714f06
)
Debugging this makes me want to shoot somebody
author
Tim Pope
<code@tpope.net>
Wed, 1 Jun 2005 05:11:25 +0000
(
05:11
+0000)
committer
Tim Pope
<code@tpope.net>
Wed, 1 Jun 2005 05:11:25 +0000
(
05:11
+0000)
perl/mobile-phone-monitor
patch
|
blob
|
history
diff --git
a/perl/mobile-phone-monitor
b/perl/mobile-phone-monitor
index 5c7065f5c0f36ea8752cc0ba3490eb92a022c787..dbc549f08d54b6a06f8823e070ea76f9ea4c1811 100755
(executable)
--- a/
perl/mobile-phone-monitor
+++ b/
perl/mobile-phone-monitor
@@
-51,7
+51,6
@@
while($status{"is_active"} ne 0) {
} elsif(!defined($number)) { $status{"is_active"}=0; last; };
}
my %newstatus=gather_data($gsm);
- print $newstatus{'call'}." ".$status{'call'}."\n";
ring() if($newstatus{"call"}!=0 && $status{"call"}==0 && !$status{"number"});
foreach (keys %newstatus) {
$status{$_} = $newstatus{$_} if(defined ($newstatus{$_}));