services.cgi: Use new perl system functions

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

diff --git a/html/cgi-bin/services.cgi b/html/cgi-bin/services.cgi
index ee4ac185a270d30d4d8e6c409d9db9a779cee26c..e25201c1ccc6bf6e80aec9d5dae0e4a795ce8674 100644 (file)
--- a/html/cgi-bin/services.cgi
+++ b/html/cgi-bin/services.cgi
@@ -141,7 +141,7 @@ END
        my $paramstr=$ENV{QUERY_STRING};
        my @param=split(/!/, $paramstr);
        if ($param[1] ne ''){
-               system("/usr/local/bin/addonctrl @param[0] @param[1] > /dev/null 2>&1");
+               &General::system("/usr/local/bin/addonctrl", "$param[0]", "$param[1]");
        }
 
        print <<END