From mboxrd@z Thu Jan 1 00:00:00 1970 From: Michael Tremer To: development@lists.ipfire.org Subject: [PATCH 04/16] vpnmain.cgi: Generate random UUIDs Date: Thu, 28 May 2020 17:58:38 +0000 Message-ID: <20200528175850.12638-5-michael.tremer@ipfire.org> In-Reply-To: <20200528175850.12638-1-michael.tremer@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============0314823495667232332==" List-Id: --===============0314823495667232332== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Signed-off-by: Michael Tremer --- html/cgi-bin/vpnmain.cgi | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/html/cgi-bin/vpnmain.cgi b/html/cgi-bin/vpnmain.cgi index 9c0d72c88..c004b6087 100644 --- a/html/cgi-bin/vpnmain.cgi +++ b/html/cgi-bin/vpnmain.cgi @@ -19,6 +19,7 @@ # = # ############################################################################= ### =20 +use Data::UUID; use MIME::Base64; use Net::DNS; use File::Copy; @@ -1184,11 +1185,14 @@ END &General::readhasharray("${General::swroot}/vpn/config", \%confighash); my $key =3D $cgiparams{'KEY'}; =20 - my $uuid1 =3D "AAAABBBB"; - my $uuid2 =3D "CCCCDDDD"; + # Create a UUID generator + my $uuid =3D Data::UUID->new(); + + my $uuid1 =3D $uuid->create_str(); + my $uuid2 =3D $uuid->create_str(); =20 my $cert =3D ""; - my $cert_uuid =3D "123456789"; + my $cert_uuid =3D $uuid->create_str(); =20 # Read and encode certificate if ($confighash{$key}[4] eq "cert") { --=20 2.20.1 --===============0314823495667232332==--