add support for using dbus-send to select a network (will require some way to get network IDs first)

1 files changed, 10 insertions, 1 deletions

diff --git a/lib/network/monitor.pm b/lib/network/monitor.pm
index fb9247a..43e9e78 100644
--- a/lib/network/monitor.pm
+++ b/lib/network/monitor.pm
@@ -105,7 +105,16 @@ sub list_wireless {
 sub select_network {
     my ($o, $id) = @_;
     my $method = 'SelectNetwork';
-    $o->call_method($method, Net::DBus::dbus_uint32($id));
+    if ($o) {
+        $o->call_method($method, Net::DBus::dbus_uint32($id));
+    } else {
+        require run_program;
+        run_program::run("dbus-send", "--system", "--type=method_call",
+                         "--dest=" . $monitor_service,
+                         $monitor_path,
+                         $monitor_interface . '.' . $method,
+                         'uint32:' . $id);
+    }
 }
 
 1;