diff options
| -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; |