modem.cgi: Use new perl system functions

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

diff --git a/html/cgi-bin/modem.cgi b/html/cgi-bin/modem.cgi
index a13f8b2654a72376888496be6c35390fbc51077b..bf5080d01dd726f9227ed9307a26afefede20a43 100644 (file)
--- a/html/cgi-bin/modem.cgi
+++ b/html/cgi-bin/modem.cgi
@@ -57,7 +57,7 @@ ERROR:
 
 if ($modemsettings{'ACTION'} eq $Lang::tr{'restore defaults'})
 {
 
 if ($modemsettings{'ACTION'} eq $Lang::tr{'restore defaults'})
 {

-       system('/bin/cp', "${General::swroot}/modem/defaults", "${General::swroot}/modem/settings", '-f');
+       &General::system("cp", "-f", "${General::swroot}/modem/defaults", "${General::swroot}/modem/settings");

 }
 
 &General::readhash("${General::swroot}/modem/settings", \%modemsettings);
 }
 
 &General::readhash("${General::swroot}/modem/settings", \%modemsettings);