vpnmain.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 15:23:52 +01:00
parent 7b7b3bb962
commit d22c7c1062

View File

@@ -208,10 +208,10 @@ sub newcleanssldatabase {
close FILE; close FILE;
} }
if (! -s ">${General::swroot}/certs/index.txt") { if (! -s ">${General::swroot}/certs/index.txt") {
system ("touch ${General::swroot}/certs/index.txt"); &General::system("touch", "${General::swroot}/certs/index.txt");
} }
if (! -s ">${General::swroot}/certs/index.txt.attr") { if (! -s ">${General::swroot}/certs/index.txt.attr") {
system ("touch ${General::swroot}/certs/index.txt.attr"); &General::system("touch", "${General::swroot}/certs/index.txt.attr");
} }
unlink ("${General::swroot}/certs/index.txt.old"); unlink ("${General::swroot}/certs/index.txt.old");
unlink ("${General::swroot}/certs/index.txt.attr.old"); unlink ("${General::swroot}/certs/index.txt.attr.old");
@@ -568,9 +568,9 @@ if ($cgiparams{'ACTION'} eq $Lang::tr{'save'} && $cgiparams{'TYPE'} eq '' && $cg
&General::writehash("${General::swroot}/vpn/settings", \%vpnsettings); &General::writehash("${General::swroot}/vpn/settings", \%vpnsettings);
&writeipsecfiles(); &writeipsecfiles();
if (&vpnenabled) { if (&vpnenabled) {
system('/usr/local/bin/ipsecctrl', 'S'); &General::system('/usr/local/bin/ipsecctrl', 'S');
} else { } else {
system('/usr/local/bin/ipsecctrl', 'D'); &General::system('/usr/local/bin/ipsecctrl', 'D');
} }
sleep $sleepDelay; sleep $sleepDelay;
SAVE_ERROR: SAVE_ERROR: