diff options
| -rw-r--r-- | perl-install/standalone/net_applet | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index 0dca7d17f..68e02fc92 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -186,23 +186,15 @@ sub setDBusWatch { $con->set_watch_callbacks(sub { my ($con, $watch) = @_; my $flags = $watch->get_flags; - #print "watch callback (enable)\n"; if ($flags & &Net::DBus::Binding::Watch::READABLE) { Gtk2::Helper->add_watch($watch->get_fileno, 'in', sub { - #print "READABLE event\n"; $watch->handle(&Net::DBus::Binding::Watch::READABLE); $con->dispatch; 1; }); } - # do nothing for WRITABLE watch, we dispatch when needed - }, sub { - my ($con, $watch) = @_; - #print "watch callback (disable)\n"; - }, sub { - my ($con, $watch) = @_; - #print "watch callback (toggle)\n"; - }); + #- do nothing for WRITABLE watch, we dispatch when needed + }, undef, undef); #- do nothing when watch is disabled or toggled yet } sub initDBus { @@ -239,9 +231,6 @@ sub initDBus { sub handleAttack { my ($seq, $timestamp, $indev, $prefix, $sensor, $protocol, $addr, $port, $icmp_type) = @_; - use Data::Dumper; - print Dumper(\@_); - my $ip_addr = join(".", unpack('C4', $addr)); #- try to resolve address, timeout after 2 seconds my $hostname; |