examples/disable-modem

   1 #!/usr/pkg/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5
   6 use Net::Radio::oFono;
   7
   8 use Net::DBus qw(:typing);
   9
  10 use Log::Any qw($log);
  11 use Log::Any::Adapter;
  12 use Log::Log4perl;
  13 Log::Log4perl->easy_init($Log::Log4perl::DEBUG);
  14 Log::Any::Adapter->set('Log4perl');
  15
  16 use Net::DBus::Reactor;
  17
  18 use Time::HiRes qw(sleep);
  19
  20 sub on_modem_added
  21 {
  22     my ( $ofono, $event, $modem_path ) = @_;
  23
  24     my $modem = $ofono->get_modem_interface( $modem_path, "Modem" );
  25
  26     if ( $modem->GetProperty("Powered") )
  27     {
  28         # disable before starting workflow to get a clean start ...
  29         $modem->SetProperty( "Powered", dbus_boolean(0) );
  30     }
  31     else
  32     {
  33         Net::DBus::Reactor->main->shutdown();
  34     }
  35
  36     return;
  37 }
  38
  39 sub on_modem_power_changed
  40 {
  41     my ( $ofono, $event, $info ) = @_;
  42     my ( $modem_path, $power_state ) = @$info;
  43
  44     if ($power_state)
  45     {
  46         $ofono->get_modem_interface( $modem_path, "Modem" )
  47           ->SetProperty( "Powered", dbus_boolean(0) );
  48     }
  49     else
  50     {
  51         Net::DBus::Reactor->main->shutdown();
  52     }
  53
  54     return;
  55 }
  56
  57 my $oFono = Net::Radio::oFono->new( "ON_MODEM_ADDED"                    => \&on_modem_added,
  58                                     "ON_MODEM_PROPERTY_POWERED_CHANGED" => \&on_modem_power_changed,
  59                                   );
  60
  61 Net::DBus::Reactor->main->run();
  62 $log->debug("Leaving");
  63 undef $oFono; # force DESTROY