perl/mobile-phone-monitor

   1 #!/usr/bin/perl
   2 # $Id$
   3 # -*- perl -*- vim: ft=perl sw=4 sts=4
   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).
   8
   9 use strict;
  10 use Device::Nokia;
  11 my $number;
  12 my %status;
  13 my $quiton;
  14 my $daemonize;
  15
  16 my $gsm = new Device::Nokia( port => '/dev/rfcomm1', log => 'file,/dev/null');
  17
  18 $SIG{INT}  = 'death';
  19 $SIG{TERM} = 'death';
  20 $SIG{QUIT} = 'death';
  21
  22 sub initialize {
  23     my $gsm=shift;
  24     $gsm->connect() || return 0;
  25     $gsm->atsend( 'AT+CLIP=1' . Device::Modem::CR );
  26     $gsm->answer();
  27     return 1;
  28 }
  29
  30 initialize($gsm) || die "Could not initialize modem: $!";
  31
  32 while($_=shift) {
  33     $daemonize=1 if ($_ eq "-d");
  34     $quiton=1 if ($_ eq "-b");
  35 }
  36
  37 daemonize() if $daemonize;
  38
  39 while(1) {
  40 %status=("is_active"=>1);
  41 while($status{"is_active"} ne 0) {
  42     for(my $i=0;$i<8;$i++) {
  43         sleep 1;
  44         $number = wait_for_ring();
  45         if($number) {
  46             $status{"number"} = $number;
  47             output_status(%status);
  48             ring($number);
  49             last;
  50         } elsif(!defined($number)) { $status{"is_active"}=0; last; };
  51     }
  52     my %newstatus=gather_data($gsm);
  53     ring() if($newstatus{"call"}!=0 && $status{"call"}!=0);
  54     foreach (keys %newstatus) {
  55         $status{$_} = $newstatus{$_} if(defined ($newstatus{$_}));
  56     }
  57     undef $status{"number"} if (!$number && $status{"callsetup"}==0 && $status{"call"}==0);
  58     output_status(%status);
  59     death() if ($status{"source"}==0 && $status{"callsetup"}==0 && $status{"call"}==0 && $quiton);
  60 }
  61 $gsm->disconnect();
  62 #print "Chillin'...\n";
  63 output_status(is_active => 0);
  64 do {sleep 60}
  65 until(initialize($gsm));
  66 }
  67
  68 sub wait_for_ring {
  69     local $_;
  70     eval {
  71         local $SIG{ALRM} = sub { die "alarm\n" };
  72         alarm 5;
  73         $_ = $gsm->answer("\\+CLIP: \"[0-9]+\",[0-9]+\$", 30);
  74         alarm 0
  75     };
  76     if($@) {
  77         die unless $@ eq "alarm\n";
  78         return undef;
  79     } else {
  80         m/CLIP: "([0-9]+)",/;
  81         return "$1";
  82     }
  83 }
  84
  85 sub ring {
  86     system($ENV{"HOME"} . "/bin/phone-call " . $_[0]);
  87 }
  88
  89 sub gather_data {
  90   my %data;
  91   my $gsm=shift;
  92     eval {
  93         local $SIG{ALRM} = sub { die "alarm\n" };
  94         alarm 15;
  95   %data=$gsm->indicators();
  96   my ($first, $second) = $gsm->battery_strength();
  97   $data{"source"}=$first;
  98   $data{"battery"}=$second;
  99   ($first, $second) = $gsm->signal_quality();
 100   $data{"signal"}=$first;
 101   alarm 0;
 102   };
 103     if($@) {
 104         die unless $@ eq "alarm\n";
 105         return (is_active => 0);
 106     } else {
 107         $data{"is_active"}=$gsm->is_active() && $data{"signal"} && 1 || 0;
 108         return %data;
 109     }
 110 }
 111
 112 sub output_status {
 113     my %status = @_;
 114     open STATUS, ">/tmp/.phone-status.new" || die $!;
 115     foreach my $indicator (sort keys %status) {
 116         print STATUS "$indicator=" . $status{$indicator} . "\n";
 117     };
 118     close STATUS;
 119     rename "/tmp/.phone-status.new", "/tmp/.phone-status" || die $!;
 120 }
 121
 122
 123 sub daemonize {
 124     chdir "/";
 125     my $pid=fork();
 126     if($pid) {
 127         exit(0)
 128     }
 129     elsif(defined($pid))
 130     {
 131         close STDIN;
 132         close STDOUT;
 133         close STDERR;
 134     }
 135     else { exit(1); }
 136 }
 137
 138 sub death {
 139     $gsm->disconnect() if($gsm);
 140     unlink "/tmp/.phone-status.new", "/tmp/.phone-status";
 141     exit(0);
 142 }