3 # -*- perl -*- vim: ft=perl sw=4 sts=4
5 # Monitors a bluetooth mobile phome for calls. You'll need to bind rfcomm1 to
6 # your mobile phone's SP service. You'll also need my Device::Nokia module
7 # (the name is misleading, it's not Nokia specific).
14 my $gsm = new Device::Nokia( port => '/dev/rfcomm1', log => 'file,/dev/null');
22 $gsm->connect() || return 0;
23 $gsm->atsend( 'AT+CLIP=1' . Device::Modem::CR );
28 initialize($gsm) || die "Could not initialize modem: $!";
30 daemonize() if (shift eq "-d");
33 %status=("is_active"=>1);
34 while($status{"is_active"} ne 0) {
35 for(my $i=0;$i<8;$i++) {
37 $number = wait_for_ring();
39 $status{"number"} = $number;
40 output_status(%status);
43 } elsif(!defined($number)) { $status{"is_active"}=0; last; };
45 my %newstatus=gather_data($gsm);
46 ring() if($newstatus{"call"}!=0 && $status{"call"}!=0);
47 foreach (keys %newstatus) {
48 $status{$_} = $newstatus{$_} if(defined ($newstatus{$_}));
50 undef $status{"number"} if (!$number && $status{"callsetup"}==0 && $status{"call"}==0);
51 output_status(%status);
54 #print "Chillin'...\n";
55 output_status(is_active => 0);
57 until(initialize($gsm));
63 local $SIG{ALRM} = sub { die "alarm\n" };
65 $_ = $gsm->answer("\\+CLIP: \"[0-9]+\",[0-9]+\$", 30);
69 die unless $@ eq "alarm\n";
78 system($ENV{"HOME"} . "/bin/phone-call " . $_[0]);
85 local $SIG{ALRM} = sub { die "alarm\n" };
87 %data=$gsm->indicators();
88 my ($first, $second) = $gsm->battery_strength();
89 $data{"source"}=$first;
90 $data{"battery"}=$second;
91 ($first, $second) = $gsm->signal_quality();
92 $data{"signal"}=$first;
96 die unless $@ eq "alarm\n";
97 return (is_active => 0);
99 $data{"is_active"}=$gsm->is_active() && $data{"signal"} && 1 || 0;
106 open STATUS, ">/tmp/.phone-status.new" || die $!;
107 foreach my $indicator (sort keys %status) {
108 print STATUS "$indicator=" . $status{$indicator} . "\n";
111 rename "/tmp/.phone-status.new", "/tmp/.phone-status" || die $!;
131 $gsm->disconnect() if($gsm);
132 unlink "/tmp/.phone-status.new", "/tmp/.phone-status";