summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/net_applet
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-22 13:34:22 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-22 13:34:22 +0000
commit0a42161309e40543ec191acb7fab0a4db52db698 (patch)
treed003e2ceccefae7d781a1aac22bb9bf258ed078b /perl-install/standalone/net_applet
parentf76c8f0377c6f019323117b69c203a63689a5153 (diff)
downloaddrakx-backup-do-not-use-0a42161309e40543ec191acb7fab0a4db52db698.tar
drakx-backup-do-not-use-0a42161309e40543ec191acb7fab0a4db52db698.tar.gz
drakx-backup-do-not-use-0a42161309e40543ec191acb7fab0a4db52db698.tar.bz2
drakx-backup-do-not-use-0a42161309e40543ec191acb7fab0a4db52db698.tar.xz
drakx-backup-do-not-use-0a42161309e40543ec191acb7fab0a4db52db698.zip
disable activefw by default
Diffstat (limited to 'perl-install/standalone/net_applet')
-rw-r--r--perl-install/standalone/net_applet31
1 files changed, 19 insertions, 12 deletions
diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index c09f4e252..6930031bb 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -16,6 +16,8 @@ use Gtk2::TrayIcon;
use ugtk2 qw(:create :helpers :wrappers);
+my $enable_activefw;
+
my ($eventbox, $img);
my ($current_state, $menu, $timeout);
my $onstartupfile = "$ENV{HOME}/.net_applet";
@@ -24,7 +26,6 @@ add_icon_path("/usr/share/libDrakX/pixmaps/");
is_running('net_applet') and die "net_applet already running\n";
my $prog_name = "/usr/bin/net_applet";
my $current_md5 = md5file($prog_name);
-
my %appletstate = (
connected => {
colour => [ 'connected' ],
@@ -77,19 +78,23 @@ if ($opt eq '--force' || $opt eq '-f') { setAutoStart('TRUE') }
shouldStart() or die "$onstartupfile should be set to TRUE or use net_applet --force";
-my $activefw = activefw->new(sub {
- my ($con, $msg) = @_;
- handle_attack($msg->get_args_list) if
- $msg->get_interface eq "com.mandrakesoft.activefirewall" &&
- $msg->get_path eq "/com/mandrakesoft/activefirewall" &&
- $msg->get_member eq "Attack";
-});
+my $activefw;
my $interactive_cb;
my @attacks_queue;
+if ($enable_activefw) {
+ $activefw = activefw->new(sub {
+ my ($con, $msg) = @_;
+ handle_attack($msg->get_args_list) if
+ $msg->get_interface eq "com.mandrakesoft.activefirewall" &&
+ $msg->get_path eq "/com/mandrakesoft/activefirewall" &&
+ $msg->get_member eq "Attack";
+ });
+}
+
checkNetwork();
cronNetwork();
-get_unprocessed_attacks();
+get_unprocessed_attacks() if $enable_activefw;
$icon->show_all;
Gtk2->main;
@@ -168,9 +173,11 @@ sub setState {
$menu->append(gtksignal_connect(gtkshow(Gtk2::MenuItem->new_with_label($name)), activate => sub { $launch->($interface) }));
}
$menu->append(gtkshow(Gtk2::SeparatorMenuItem->new));
- $menu->append($interactive_cb = gtkshow(gtksignal_connect(gtkset_active(Gtk2::CheckMenuItem->new_with_label(N("Interactive intrusion detection")),
- $activefw->get_interactive),
- toggled => sub { $activefw->set_interactive(to_bool($_[0]->get_active)) })));
+ if ($enable_activefw) {
+ $menu->append($interactive_cb = gtkshow(gtksignal_connect(gtkset_active(Gtk2::CheckMenuItem->new_with_label(N("Interactive intrusion detection")),
+ $activefw->get_interactive),
+ toggled => sub { $activefw->set_interactive(to_bool($_[0]->get_active)) })));
+ }
$menu->append(gtkshow(gtksignal_connect(gtkset_active(Gtk2::CheckMenuItem->new_with_label(N("Always launch on startup")), shouldStart()),
toggled => sub { setAutoStart(uc(bool2text($_[0]->get_active))) })));
$menu->append(gtksignal_connect(gtkshow(Gtk2::MenuItem->new_with_label(N("Quit"))), activate => sub { mainQuit() }));