From 0e18f1c7a08a591f3be8dbfb758c3d163044878b Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 21 Nov 2005 15:14:34 +0000
Subject: use new DBus typing facilities

---
 perl-install/network/ifw.pm     | 21 ++++++---------------
 perl-install/network/monitor.pm |  3 +--
 2 files changed, 7 insertions(+), 17 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/network/ifw.pm b/perl-install/network/ifw.pm
index 45a45df35..40ff0ac6d 100644
--- a/perl-install/network/ifw.pm
+++ b/perl-install/network/ifw.pm
@@ -13,8 +13,6 @@ sub new {
     $con->add_match("type='signal',interface='com.mandriva.monitoring.ifw'");
 
     require dbus_object;
-    require Net::DBus::Binding::Value;
-
     my $o = dbus_object::new($type,
 			     $bus,
 			     "com.mandriva.monitoring",
@@ -26,27 +24,22 @@ sub new {
 
 sub set_blacklist_verdict {
     my ($o, $seq, $blacklist) = @_;
-    $o->call_method('SetBlacklistVerdict',
-                    Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $seq),
-                    Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $blacklist));
+    $o->call_method('SetBlacklistVerdict', Net::DBus::dbus_uint32($seq), Net::DBus::dbus_uint32($blacklist));
 }
 
 sub unblacklist {
     my ($o, $addr) = @_;
-    $o->call_method('UnBlacklist',
-                    Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $addr));
+    $o->call_method('UnBlacklist', Net::DBus::dbus_uint32($addr));
 }
 
 sub whitelist {
     my ($o, $addr) = @_;
-    $o->call_method('Whitelist',
-                    Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $addr));
+    $o->call_method('Whitelist', Net::DBus::dbus_uint32($addr));
 }
 
 sub unwhitelist {
     my ($o, $addr) = @_;
-    $o->call_method('UnWhitelist',
-                    Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $addr));
+    $o->call_method('UnWhitelist', Net::DBus::dbus_uint32($addr));
 }
 
 sub get_interactive {
@@ -56,14 +49,12 @@ sub get_interactive {
 
 sub set_interactive {
     my ($o, $mode) = @_;
-    $o->call_method('SetMode',
-                    Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $mode));
+    $o->call_method('SetMode', Net::DBus::dbus_uint32($mode));
 }
 
 sub get_reports {
     my ($o, $o_include_processed) = @_;
-    $o->call_method('GetReports',
-                    Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, to_bool($o_include_processed)));
+    $o->call_method('GetReports', Net::DBus::dbus_uint32(to_bool($o_include_processed)));
 }
 
 sub get_blacklist {
diff --git a/perl-install/network/monitor.pm b/perl-install/network/monitor.pm
index a0a198128..c0ed8f80e 100644
--- a/perl-install/network/monitor.pm
+++ b/perl-install/network/monitor.pm
@@ -77,8 +77,7 @@ sub list_wireless {
 
 sub select_network {
     my ($o, $id) = @_;
-    $o->call_method('SelectNetwork',
-                    Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $id));
+    $o->call_method('SelectNetwork', Net::DBus::dbus_uint32($id));
 }
 
 1;
-- 
cgit v1.2.1