diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-04-30 19:23:07 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-04-30 19:23:07 +0000 |
| commit | 908cafda2c2585220d0b5ce222dc09ff8460874d (patch) | |
| tree | db4cc95d2912a76656ecd0cc8c121ab2f18694df /lib | |
| parent | 45a711161a85f185159fbaac6470e8308195cb8e (diff) | |
| download | drakx-net-908cafda2c2585220d0b5ce222dc09ff8460874d.tar drakx-net-908cafda2c2585220d0b5ce222dc09ff8460874d.tar.gz drakx-net-908cafda2c2585220d0b5ce222dc09ff8460874d.tar.bz2 drakx-net-908cafda2c2585220d0b5ce222dc09ff8460874d.tar.xz drakx-net-908cafda2c2585220d0b5ce222dc09ff8460874d.zip | |
move out some variables (for future usage)
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/network/monitor.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lib/network/monitor.pm b/lib/network/monitor.pm index 2b0ba94..fb9247a 100644 --- a/lib/network/monitor.pm +++ b/lib/network/monitor.pm @@ -5,13 +5,13 @@ use dbus_object; our @ISA = qw(dbus_object); +my $monitor_service = "com.mandriva.monitoring"; +my $monitor_path = "/com/mandriva/monitoring/wireless"; +my $monitor_interface = "com.mandriva.monitoring.wireless"; + sub new { my ($type, $bus) = @_; - dbus_object::new($type, - $bus, - "com.mandriva.monitoring", - "/com/mandriva/monitoring/wireless", - "com.mandriva.monitoring.wireless"); + dbus_object::new($type, $bus, $monitor_service, $monitor_path, $monitor_interface); } sub list_wireless { @@ -104,7 +104,8 @@ sub list_wireless { sub select_network { my ($o, $id) = @_; - $o->call_method('SelectNetwork', Net::DBus::dbus_uint32($id)); + my $method = 'SelectNetwork'; + $o->call_method($method, Net::DBus::dbus_uint32($id)); } 1; |