summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/activefw.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/network/activefw.pm b/perl-install/network/activefw.pm
index f8a9d1d6a..2b4392271 100644
--- a/perl-install/network/activefw.pm
+++ b/perl-install/network/activefw.pm
@@ -1,13 +1,12 @@
package network::activefw;
-use Net::DBus;
-use Net::DBus::Binding::Watch;
use Gtk2::Helper;
use Socket;
sub new {
my ($type, $filter) = @_;
+ require Net::DBus;
my $bus = Net::DBus->system;
my $con = $bus->{connection};
@@ -38,6 +37,7 @@ sub set_DBus_watch {
$con->set_watch_callbacks(sub {
my ($con, $watch) = @_;
my $flags = $watch->get_flags;
+ require Net::DBus::Binding::Watch;
if ($flags & &Net::DBus::Binding::Watch::READABLE) {
Gtk2::Helper->add_watch($watch->get_fileno, 'in', sub {
$watch->handle(&Net::DBus::Binding::Watch::READABLE);
@@ -70,6 +70,7 @@ sub call_method {
sub blacklist {
my ($o, $seq, $blacklist) = @_;
+ require Net::DBus::Binding::Watch;
$o->call_method('Blacklist',
Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $seq),
Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $blacklist));
@@ -77,18 +78,21 @@ sub blacklist {
sub unblacklist {
my ($o, $addr) = @_;
+ require Net::DBus::Binding::Watch;
$o->call_method('UnBlacklist',
Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $addr));
}
sub whitelist {
my ($o, $addr) = @_;
+ require Net::DBus::Binding::Watch;
$o->call_method('Whitelist',
Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $addr));
}
sub unwhitelist {
my ($o, $addr) = @_;
+ require Net::DBus::Binding::Watch;
$o->call_method('UnWhitelist',
Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $addr));
}
@@ -100,6 +104,7 @@ sub get_interactive {
sub set_interactive {
my ($o, $mode) = @_;
+ require Net::DBus::Binding::Watch;
$o->call_method('SetMode',
Net::DBus::Binding::Value->new(&Net::DBus::Binding::Message::TYPE_UINT32, $mode));
}