diff options
author | Olivier Blin <oblin@mandriva.org> | 2005-02-14 17:48:18 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.org> | 2005-02-14 17:48:18 +0000 |
commit | 48504a7d6f3f72889ecb93e6b5fce407e60f6cef (patch) | |
tree | a040cb8144f20fa15b40da048ff47352621f2ba6 /perl-install | |
parent | 72e41c87b82d7652d4a31302cb40df4606b6fb5c (diff) | |
download | drakx-backup-do-not-use-48504a7d6f3f72889ecb93e6b5fce407e60f6cef.tar drakx-backup-do-not-use-48504a7d6f3f72889ecb93e6b5fce407e60f6cef.tar.gz drakx-backup-do-not-use-48504a7d6f3f72889ecb93e6b5fce407e60f6cef.tar.bz2 drakx-backup-do-not-use-48504a7d6f3f72889ecb93e6b5fce407e60f6cef.tar.xz drakx-backup-do-not-use-48504a7d6f3f72889ecb93e6b5fce407e60f6cef.zip |
remove some debug code
Diffstat (limited to 'perl-install')
-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; |