diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-11-21 15:14:34 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-11-21 15:14:34 +0000 |
| commit | 0e18f1c7a08a591f3be8dbfb758c3d163044878b (patch) | |
| tree | 93429fb61274635de0f2db3f70e7a5980215783b /perl-install | |
| parent | 015127ef9c0b88d0947f19859e70d186e19c7054 (diff) | |
| download | drakx-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.pm | 21 | ||||
| -rw-r--r-- | perl-install/network/monitor.pm | 3 |
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; |