diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-07-22 03:46:40 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-07-22 03:46:40 +0000 |
| commit | ea7337c7f59ef70871c61e4048744f0f704e168c (patch) | |
| tree | df7ab8c0521509ae8304841fa58e19daec2685e4 /perl-install | |
| parent | 5ec52c56b184d4f1c9013b79d19ac012c86cd0ba (diff) | |
| download | drakx-ea7337c7f59ef70871c61e4048744f0f704e168c.tar drakx-ea7337c7f59ef70871c61e4048744f0f704e168c.tar.gz drakx-ea7337c7f59ef70871c61e4048744f0f704e168c.tar.bz2 drakx-ea7337c7f59ef70871c61e4048744f0f704e168c.tar.xz drakx-ea7337c7f59ef70871c61e4048744f0f704e168c.zip | |
allow to select a wireless network
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/monitor.pm | 6 |
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; |