From a22a62d098eae8c3e9c1dc04408e6d85e894aed9 Mon Sep 17 00:00:00 2001 From: Tim Pope Date: Wed, 1 Jun 2005 05:11:25 +0000 Subject: [PATCH] Debugging this makes me want to shoot somebody --- perl/mobile-phone-monitor | 1 - 1 file changed, 1 deletion(-) diff --git a/perl/mobile-phone-monitor b/perl/mobile-phone-monitor index 5c7065f..dbc549f 100755 --- 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{$_})); -- 2.30.2