diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-16 18:35:07 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-16 18:35:07 +0000 |
| commit | 8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb (patch) | |
| tree | 9521630ef9f9857cc3bb5c5ce606a958de4516cf /perl-install/tinyfirewall.pm | |
| parent | cf616f12521a0f539e4f02f70d0210beb0102320 (diff) | |
| download | drakx-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar drakx-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar.gz drakx-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar.bz2 drakx-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.tar.xz drakx-8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb.zip | |
use new mkdir_p, rm_rf and cp_af from MDK::Common
Diffstat (limited to 'perl-install/tinyfirewall.pm')
| -rw-r--r-- | perl-install/tinyfirewall.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/tinyfirewall.pm b/perl-install/tinyfirewall.pm index 014495c07..32a745094 100644 --- a/perl-install/tinyfirewall.pm +++ b/perl-install/tinyfirewall.pm @@ -1,7 +1,6 @@ package tinyfirewall; use diagnostics; use strict; -use commands; use run_program; use network::netconnect; use network; @@ -74,7 +73,7 @@ my %settings; my $config_file = "/etc/Bastille/bastille-firewall.cfg"; my $default_config_file = "/usr/share/Bastille/bastille-firewall.cfg"; # set this later sub ReadConfig { - -e $config_file or commands::cp($default_config_file, $config_file); + -e $config_file or cp_af($default_config_file, $config_file); add2hash(\%settings, { getVarsFromSh("$config_file") }); } sub SaveConfig { @@ -156,7 +155,7 @@ sub DoInterface { $in->exit(0); return; $_[0] or $in->exit(0); - commands::cp("-f", $config_file, $config_file . ".orig"); + cp_af($config_file, $config_file . ".orig"); substInFile { if(/^(.+)\s*\=/) { $a=$settings{$1}; |