summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/drakedm2
-rwxr-xr-xperl-install/standalone/drakgw4
-rwxr-xr-xperl-install/standalone/draksec2
3 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/drakedm b/perl-install/standalone/drakedm
index a4f44417b..337e8d9b9 100644
--- a/perl-install/standalone/drakedm
+++ b/perl-install/standalone/drakedm
@@ -76,7 +76,7 @@ several different X sessions on your local machine at the same time.")),
if (any::running_window_manager()) {
$in->ask_yesorno('', N("The change is done, do you want to restart the dm service ?"), 1) and
$in->ask_yesorno('', N("You are going to close all running programs and lose your current session. Are you really sure that you want to restart the dm service ?"), 1) and
- run_program::rooted($::prefix, "nohup", "/etc/rc.d/init.d/dm", "restart");
+ run_program::run("nohup", "/etc/rc.d/init.d/dm", "restart");
}
}
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index 3e7997208..00e700a02 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -139,7 +139,7 @@ What would you like to do?"),
substInFile {
s/#LAST LINE -- ADD YOUR ENTRIES BEFORE THIS ONE -- DO NOT REMOVE/REDIRECT\tloc\t$squid_port\ttcp\twww\t-\nACCEPT\tfw\tnet\ttcp\twww\n#LAST LINE -- ADD YOUR ENTRIES BEFORE THIS ONE -- DO NOT REMOVE/;
} "/etc/shorewall/rules";
- run_program::rooted($::prefix, 'chkconfig', '--add', 'shorewall');
+ run_program::run('chkconfig', '--add', 'shorewall');
run_program::run('service', '>', '/dev/null', 'shorewall', 'restart') if $::isStandalone;
}
log::l("[drakgw] Enabled");
@@ -586,7 +586,7 @@ print "add rules entries\n";
substInFile {
s/#LAST LINE -- ADD YOUR ENTRIES BEFORE THIS ONE -- DO NOT REMOVE/REDIRECT\tloc\t$squid_port\ttcp\twww\t-\nACCEPT\tfw\tnet\ttcp\twww\n#LAST LINE -- ADD YOUR ENTRIES BEFORE THIS ONE -- DO NOT REMOVE/;
} "/etc/shorewall/rules";
-run_program::rooted($::prefix, 'chkconfig', '--add', 'shorewall');
+run_program::run('chkconfig', '--add', 'shorewall');
run_program::run('service', '>', '/dev/null', 'shorewall', 'restart') if $::isStandalone;
#- bye-bye message
diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index a3d11490f..e0ff0013f 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -286,7 +286,7 @@ gtkpack_($vbox,
}
$msec->apply_functions;
log::explanations("Applying msec changes");
- run_program::rooted($::prefix, "/usr/sbin/msec");
+ run_program::run("/usr/sbin/msec");
remove_wait_msg($w);