Frontend: Better way of generating session tokens

2023-09-09 10:52:28 +02:00
parent 606b13470e
commit 1e7bea8e5f
2 changed files with 7 additions and 2 deletions
--- a/frontend_session.pm
+++ b/frontend_session.pm
@@ -16,11 +16,17 @@

 package frontend_session;

+use Digest::SHA;
+
 use strict;
 use warnings;

 our %sessions;

+sub newSessionToken {
+	return Digest::SHA::sha256_hex(sprintf("%x", rand(0xFFFFFFFF)));
+}
+
 sub isValidSession {
 	my $aSession = $_[0];