From 6cf4b84da914560d29e5bee31e599fd1ffb49f39 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 26 Mar 2008 17:58:16 +0000 Subject: reorder --- bin/drakguard | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'bin') diff --git a/bin/drakguard b/bin/drakguard index f1dde04..1443780 100755 --- a/bin/drakguard +++ b/bin/drakguard @@ -22,6 +22,13 @@ my %dansguardian_levels = ( 50 => N_("High"), ); +my $blacklist_url_file = "/etc/dansguardian/lists/blacklists/drakguard/urls"; +my $whitelist_url_file = "/etc/dansguardian/lists/whitelists/drakguard/urls"; +my ($enable, $level, $time_control, $allow_time_change); +my $shorewall = network::shorewall::read(); +load(); + + my $toolname = 'drakguard'; my $title = N("Parental Control"); my $icon = "IC-control-52"; @@ -32,10 +39,6 @@ my $w = ugtk2->new($title); $::main_window = $w->{real_window}; my $in = interactive->vnew('su'); -my $shorewall = network::shorewall::read(); -my $blacklist_url_file = "/etc/dansguardian/lists/blacklists/drakguard/urls"; -my $whitelist_url_file = "/etc/dansguardian/lists/whitelists/drakguard/urls"; - my $allusers_list = Gtk2::SimpleList->new(N("All users") => 'text'); $allusers_list->get_selection->set_mode('multiple'); @{$allusers_list->{data}} = sort(list_users()); @@ -51,9 +54,6 @@ my $blacklist = Gtk2::SimpleList->new(N("Forbidden addresses") => 'text'); $blacklist->get_selection->set_mode('multiple'); @{$blacklist->{data}} = read_url_list($blacklist_url_file); -my ($enable, $level, $time_control, $allow_time_change); -load(); - sub update_time_change() { gtkval_modify(\$allow_time_change, $enable && $time_control); } -- cgit v1.2.1