delete TFA entries when deleting a user

[pve-access-control.git] / oathkeygen

diff --git a/oathkeygen b/oathkeygen
index 84b644190bd9ef29c9bea223079efb1733c39537..89e385ab459e05ddcf0b9db86a246fe05139a701 100755 (executable)
--- a/oathkeygen
+++ b/oathkeygen
@@ -2,10 +2,10 @@
 
 use strict;
 use warnings;
-use MIME::Base32 qw(RFC); #libmime-base32-perl
+use MIME::Base32; #libmime-base32-perl
 
 my $test;
 open(RND, "/dev/urandom");
 sysread(RND, $test, 10) == 10 || die "read randon data failed\n";
-print MIME::Base32::encode($test) . "\n";
+print MIME::Base32::encode_rfc3548($test) . "\n";