projects
/
mirror
/
userdir-ldap-cgi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Different uuid lib
[mirror/userdir-ldap-cgi.git]
/
update.cgi
diff --git
a/update.cgi
b/update.cgi
index
de3932a
..
3077e6a
100755
(executable)
--- a/
update.cgi
+++ b/
update.cgi
@@
-8,7
+8,7
@@
use lib '.';
use strict vars;
#use Apache::Registry;
use CGI;
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;
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));
}
# 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;
$newsudo = "$uuid unconfirmed $host $newsudopassword";
$newsudo_hosts = $host;