summaryrefslogtreecommitdiffstats
path: root/perl-install/tinyfirewall.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-16 18:35:07 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-16 18:35:07 +0000
commit8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb (patch)
tree9521630ef9f9857cc3bb5c5ce606a958de4516cf /perl-install/tinyfirewall.pm
parentcf616f12521a0f539e4f02f70d0210beb0102320 (diff)
downloaddrakx-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.pm5
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};