From 1aecf8a341541259100fd8e953933028f53ec88b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 13 Jul 2005 03:51:36 +0000
Subject: initial import

---
 perl-install/network/monitor.pm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 perl-install/network/monitor.pm

(limited to 'perl-install/network')

diff --git a/perl-install/network/monitor.pm b/perl-install/network/monitor.pm
new file mode 100644
index 000000000..91289e93a
--- /dev/null
+++ b/perl-install/network/monitor.pm
@@ -0,0 +1,27 @@
+package network::monitor;
+
+use dbus_object;
+
+our @ISA = qw(dbus_object);
+
+sub new {
+    my ($type, $bus) = @_;
+    dbus_object::new($type,
+		       $bus,
+		       "com.mandriva.monitoring",
+		       "/com/mandriva/monitoring/network",
+		       "com.mandriva.monitoring.network");
+}
+
+sub list_wireless {
+    my ($o) = @_;
+    my $networks;
+    eval { $networks = $o->call_method('ListWireless') };
+    my %networks;
+    while ($networks =~ /^((?:[0-9a-f]{2}:){5}[0-9a-f]{2})\t(\d+)\t(\d+)\t(.*?)\t(.*)$/mg) {
+        $networks{$1} = { frequency => $2, signal_level => $3, flags => $4, ssid => $5 };
+    }
+    \%networks;
+}
+
+1;
-- 
cgit v1.2.1