summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-14 17:48:18 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-14 17:48:18 +0000
commit48504a7d6f3f72889ecb93e6b5fce407e60f6cef (patch)
treea040cb8144f20fa15b40da048ff47352621f2ba6 /perl-install
parent72e41c87b82d7652d4a31302cb40df4606b6fb5c (diff)
downloaddrakx-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_applet15
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;