summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-11-21 15:14:34 +0000
committerOlivier Blin <oblin@mandriva.org>2005-11-21 15:14:34 +0000
commit0e18f1c7a08a591f3be8dbfb758c3d163044878b (patch)
tree93429fb61274635de0f2db3f70e7a5980215783b /perl-install
parent015127ef9c0b88d0947f19859e70d186e19c7054 (diff)
downloaddrakx-backup-do-not-use-0e18f1c7a08a591f3be8dbfb758c3d163044878b.tar
drakx-backup-do-not-use-0e18f1c7a08a591f3be8dbfb758c3d163044878b.tar.gz
drakx-backup-do-not-use-0e18f1c7a08a591f3be8dbfb758c3d163044878b.tar.bz2
drakx-backup-do-not-use-0e18f1c7a08a591f3be8dbfb758c3d163044878b.tar.xz
drakx-backup-do-not-use-0e18f1c7a08a591f3be8dbfb758c3d163044878b.zip
use new DBus typing facilities
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/ifw.pm21
-rw-r--r--perl-install/network/monitor.pm3
2 files changed, 7 insertions, 17 deletions
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;