From ea7337c7f59ef70871c61e4048744f0f704e168c Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 22 Jul 2005 03:46:40 +0000
Subject: allow to select a wireless network

---
 perl-install/network/monitor.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl-install/network')

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;
-- 
cgit v1.2.1