From 99f09ef37d3b2d6a6051958640d8c857b24db202 Mon Sep 17 00:00:00 2001 From: Papoteur Date: Tue, 28 Jun 2016 22:18:20 +0200 Subject: Switch from dansguardian to e2guardian --- bin/drakguard | 72 +++++++++++++++++++++++++++++------------------------------ 1 file changed, 36 insertions(+), 36 deletions(-) (limited to 'bin') diff --git a/bin/drakguard b/bin/drakguard index 9bd9347..506a2e4 100755 --- a/bin/drakguard +++ b/bin/drakguard @@ -16,21 +16,21 @@ use network::squid; use services; use Encode; -my $dansguardian_main_file = "/etc/e2guardian/e2guardian.conf"; -my $dansguardian_filter_file = "/etc/e2guardian/e2guardianf1.conf"; +my $e2guardian_main_file = "/etc/e2guardian/e2guardian.conf"; +my $e2guardian_filter_file = "/etc/e2guardian/e2guardianf1.conf"; my $time_control_file = "/etc/shorewall/time_control"; -my $dansguardian_bannedsitelist = "/etc/e2guardian/lists/bannedsitelist"; -my $dansguardian_exceptionsitelist = "/etc/e2guardian/lists/exceptionsitelist"; -my $dansguardian_protected_program_list = "/etc/e2guardian/lists/blacklists/drakguard/protected_list"; +my $e2guardian_bannedsitelist = "/etc/e2guardian/lists/bannedsitelist"; +my $e2guardian_exceptionsitelist = "/etc/e2guardian/lists/exceptionsitelist"; +my $e2guardian_protected_program_list = "/etc/e2guardian/lists/blacklists/drakguard/protected_list"; my $msec_conf = "/etc/security/msec/perms.conf"; my $perms_orig = "/etc/security/msec/perms.orig"; my $fstab_file = "/etc/fstab"; -my %dansguardian_levels = ( +my %e2guardian_levels = ( 160 => N_("Low"), 100 => N_("Normal"), 50 => N_("High"), ); -my %dansguardian_langs = ( +my %e2guardian_langs = ( arspanish => 'es_AR', bulgarian => 'bg', chinesebig5 => 'zh_TW', @@ -113,7 +113,7 @@ my @url_lists = ( tab_title => N("Block programs"), list_title => N("Programs with blocked execution"), remove_text => N("Remove from blocked execution list"), - file => $dansguardian_protected_program_list, + file => $e2guardian_protected_program_list, apply => \&apply_block_program, } ); @@ -157,10 +157,10 @@ gtkadd($w->{window}, gtknew('Label', sensitive_ref => \$enable, text_markup => N("Obscenity sensibility"), #Sensitivity to bad words alignment => [ 0, 0.5 ]), gtknew('ComboBox', - list => [ keys %dansguardian_levels ], + list => [ keys %e2guardian_levels ], text_ref => \$level, sensitive_ref => \$enable, - format => sub { translate($dansguardian_levels{$_[0]}) }), + format => sub { translate($e2guardian_levels{$_[0]}) }), ]), 1, gtknew('Label'), 0, gtknew('Title2', label => N("User access")), @@ -386,14 +386,14 @@ sub quit_gui { } sub load() { - my $guardian = read_dansguardian(); - my $levelname = { %dansguardian_levels }->{$guardian->{naughtynesslimit}}; + my $guardian = read_e2guardian(); + my $levelname = { %e2guardian_levels }->{$guardian->{naughtynesslimit}}; $net_control = $guardian->{netblock}; $program_control = $guardian->{programblock}; gtkval_modify(\$not_net_control, $enable && !$net_control); - $level = { reverse %dansguardian_levels }->{$levelname} if $levelname; - $level ||= { reverse %dansguardian_levels }->{High}; - $enable = services::starts_on_boot('dansguardian'); + $level = { reverse %e2guardian_levels }->{$levelname} if $levelname; + $level ||= { reverse %e2guardian_levels }->{High}; + $enable = services::starts_on_boot('e2guardian'); $time_control = cat_($::prefix . "/etc/shorewall/start") =~ /^INCLUDE $time_control_file$/m; my @time_control_settings = grep { /\bnet2fw\b/ } cat_($::prefix . $time_control_file); @@ -454,7 +454,7 @@ sub save() { or quit_gui(1); $_->{apply}(list_get_entries($_->{list})) foreach @url_lists; - write_dansguardian(); + write_e2guardian(); enable_transparent_proxy($proxy_port); #- reload shorewall config if it has just been installed $shorewall ||= network::shorewall::read(); @@ -519,15 +519,15 @@ sub set_permissions { chown "root", "root", $line; #remove msec lines #clean_config_line($msec_conf,"$line"); - subst_config_line($dansguardian_protected_program_list, "$line_info \n"); #adds the file to dansguardian_protected_program_list + subst_config_line($e2guardian_protected_program_list, "$line_info \n"); #adds the file to e2guardian_protected_program_list subst_config_line($msec_conf, "$line\troot.root\t700\tforce\t\n"); #adds the file to msec #`protect $line $_` foreach list_get_entries($users_program_list); #add msec line or lines... foreach my $user_msec (list_get_entries($users_program_list)) { my @msec_line = grep { $_ && m/$line/g } chomp_(cat_($msec_conf)); - my @program_list_line = grep { $_ && m/^$line/g } chomp_(cat_($dansguardian_protected_program_list)); + my @program_list_line = grep { $_ && m/^$line/g } chomp_(cat_($e2guardian_protected_program_list)); `setfacl -m u:$user_msec:r-x $line`; - subst_config_line($dansguardian_protected_program_list, "$_$user_msec,\n") foreach @program_list_line; #adds the users to the programs blocked in msec + subst_config_line($e2guardian_protected_program_list, "$_$user_msec,\n") foreach @program_list_line; #adds the users to the programs blocked in msec subst_config_line($msec_conf, "$_$user_msec:r-x,\n") foreach @msec_line; #adds the users to the programs blocked in msec } } @@ -560,7 +560,7 @@ sub clean_config_line { } $file; } -sub block_internet_dansguardian { +sub block_internet_e2guardian { my ($file) = @_; my $key = "#"; substInFile { @@ -568,7 +568,7 @@ sub block_internet_dansguardian { } $file; } -sub unblock_internet_dansguardian { +sub unblock_internet_e2guardian { my ($file) = @_; my $key = "#"; substInFile { @@ -585,9 +585,9 @@ sub enable_transparent_proxy { } #- mostly duplicated for MDK::Common::System::getVarsFromSh -sub read_dansguardian() { +sub read_e2guardian() { my $guardian = {}; - foreach (cat_($dansguardian_filter_file)) { + foreach (cat_($e2guardian_filter_file)) { s/#.*//; s/^\s*//; my ($v, $val) = /^(\w+)\s*=\s*(.*)/ or next; @@ -597,25 +597,25 @@ sub read_dansguardian() { $guardian; } -sub write_dansguardian() { +sub write_e2guardian() { require lang; my $locale = lang::read(); my $locale_lang = lang::getlocale_for_lang($locale->{lang}, $locale->{country}); - my %lang_to_dansguardian = reverse %dansguardian_langs; - my $dansguardian_lang = $lang_to_dansguardian{$locale_lang} || $lang_to_dansguardian{$locale->{lang}}; + my %lang_to_e2guardian = reverse %e2guardian_langs; + my $e2guardian_lang = $lang_to_e2guardian{$locale_lang} || $lang_to_e2guardian{$locale->{lang}}; - subst_config_line($dansguardian_main_file, "language = '$dansguardian_lang'\n") if $dansguardian_lang; - subst_config_line($dansguardian_filter_file, "naughtynesslimit = '$level'\n"); - subst_config_line($dansguardian_filter_file, "netblock = '$net_control'\n"); - subst_config_line($dansguardian_filter_file, "programblock = '$program_control'\n"); + subst_config_line($e2guardian_main_file, "language = '$e2guardian_lang'\n") if $e2guardian_lang; + subst_config_line($e2guardian_filter_file, "naughtynesslimit = '$level'\n"); + subst_config_line($e2guardian_filter_file, "netblock = '$net_control'\n"); + subst_config_line($e2guardian_filter_file, "programblock = '$program_control'\n"); if ($net_control) { - block_internet_dansguardian($dansguardian_bannedsitelist); + block_internet_e2guardian($e2guardian_bannedsitelist); } else { - unblock_internet_dansguardian($dansguardian_bannedsitelist); + unblock_internet_e2guardian($e2guardian_bannedsitelist); } } @@ -624,7 +624,7 @@ sub include_guardian_file { my $to_add = ".Include<$external_file>\n"; clean_config_line($guardian_file, $to_add); my @all = cat_($guardian_file); - if ($dansguardian_bannedsitelist eq $guardian_file && !$net_control || $dansguardian_exceptionsitelist eq $guardian_file && $net_control) { + if ($e2guardian_bannedsitelist eq $guardian_file && !$net_control || $e2guardian_exceptionsitelist eq $guardian_file && $net_control) { if (!member($to_add, @all)) { output_p($guardian_file, @all, $to_add); } @@ -703,14 +703,14 @@ sub apply_block_program() { if ($val) { #write back in the msec file and set original file permissions #`unprotect $diff --remove`; - remove_acl($dansguardian_protected_program_list, $diff); + remove_acl($e2guardian_protected_program_list, $diff); subst_config_line($msec_conf, "$element\n"); restore_permissions($element); } else { #only make the permissions wright #`unprotect $diff --remove`; - remove_acl($dansguardian_protected_program_list, $diff); + remove_acl($e2guardian_protected_program_list, $diff); clean_config_line($msec_conf, $diff); restore_permissions($element); } @@ -739,7 +739,7 @@ sub apply_block_program() { } #this is just the case to reactivate the parental control #`unprotect $_ --remove` foreach @intersection; - remove_acl($dansguardian_protected_program_list, $_) foreach @intersection; + remove_acl($e2guardian_protected_program_list, $_) foreach @intersection; foreach my $intersec (@intersection) { set_permissions($intersec, grep { $_ && m/$intersec/g } @orig_list); } -- cgit v1.2.1