services.cgi: Use new perl system functions

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Michael Tremer
2021-06-10 14:55:52 +01:00
parent 0fd1f8bba6
commit 150fadab40

View File

@@ -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