diff options
Diffstat (limited to 'perl-install/standalone')
| -rw-r--r-- | perl-install/standalone/drakedm | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakgw | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/draksec | 2 |
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); |