8 lines
206 B
Plaintext
8 lines
206 B
Plaintext
|
{
|
||
|
|
my $admin = $DB->get('httpd-admin');
|
||
|
|
return unless $admin;
|
||
|
|
return if $admin->prop('TKTAuthSecret');
|
||
|
|
use Data::UUID;
|
||
|
|
$admin->set_prop('TKTAuthSecret', Data::UUID->new->create_str());
|
||
|
|
}
|