X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=blobdiff_plain;f=update.cgi;h=3077e6a70cdbc8f613552086e9efc898aa3adb3a;hp=de3932a30579a37d8f12823e2b6ab15032fe7520;hb=40370d4d18e676d84988530673ce69f6193aab4a;hpb=2639ca03902bc809d5e024926a3eab910eb5f18a

diff --git a/update.cgi b/update.cgi
index de3932a..3077e6a 100755
--- a/update.cgi
+++ b/update.cgi
@@ -8,7 +8,7 @@ use lib '.';
 use strict vars;
 #use Apache::Registry;
 use CGI;
-use UUID;
+use Data::UUID;
 use Digest::HMAC_SHA1 qw(hmac_sha1_hex);
 use Util;
 use English;
@@ -245,9 +245,8 @@ if (!($query->param('doupdate'))) {
     }
     # create a md5 crypted password
     my $newsudopassword = crypt($query->param('newsudopass'), &Util::CreateCryptSalt(1));
-    my ($uuidbin, $uuid);
-    UUID::generate($uuidbin);
-    UUID::unparse($uuidbin, $uuid);
+    my $ug = new Data::UUID;
+    my $uuid = $ug->create_str();
 
     $newsudo = "$uuid unconfirmed $host $newsudopassword";
     $newsudo_hosts = $host;