1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/network/monitor.pm b/perl-install/network/monitor.pm
index 27145ef9f..08fc4c971 100644
--- a/perl-install/network/monitor.pm
+++ b/perl-install/network/monitor.pm
@@ -36,4 +36,10 @@ sub list_wireless {
     \%networks;
 }
 
+sub select_network {
+    my ($o, $id) = @_;
+    $networks = $o->call_method('SelectNetwork',
+                                Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $id));
+}
+
 1;