Merge branch 'perl-system' into next

[people/pmueller/ipfire-2.x.git] / html / cgi-bin / index.cgi

diff --git a/html/cgi-bin/index.cgi b/html/cgi-bin/index.cgi
index 4ac237d0fe7c007376ac4c2cc8badfd311f837e1..fafbe0aa1a97537f1f3fe61da5755346c97f24b6 100644 (file)
--- a/html/cgi-bin/index.cgi
+++ b/html/cgi-bin/index.cgi
@@ -118,10 +118,10 @@ if ($cgiparams{'ACTION'} eq $Lang::tr{'dial profile'})
 }
 
 if ($cgiparams{'ACTION'} eq $Lang::tr{'dial'}) {
-       system('/usr/local/bin/redctrl start > /dev/null') == 0
+       &General::system('/usr/local/bin/redctrl', 'start') == 0
        or &General::log("Dial failed: $?"); sleep 1;
 }elsif ($cgiparams{'ACTION'} eq $Lang::tr{'hangup'}) {
-       system('/usr/local/bin/redctrl stop > /dev/null') == 0
+       &General::system('/usr/local/bin/redctrl', 'stop') == 0
        or &General::log("Hangup failed: $?"); sleep 1;
 }