From: Peter Palfrader <peter@palfrader.org>
Date: Sun, 14 Sep 2008 21:59:44 +0000 (+0200)
Subject: Different uuid lib
X-Git-Tag: release-0.3.33~58
X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=commitdiff_plain;h=40370d4d18e676d84988530673ce69f6193aab4a

Different uuid lib
---

diff --git a/debian/control b/debian/control
index 5034e25..f555fae 100644
--- a/debian/control
+++ b/debian/control
@@ -8,7 +8,7 @@ Uploaders: Ryan Murray <rmurray@debian.org>, Joey Schulze <joey@debian.org>
 
 Package: userdir-ldap-cgi
 Architecture: all
-Depends: userdir-ldap, perl5, libnet-ldap-perl, libcrypt-blowfish-perl, gnupg (>= 1.0.3), libdate-manip-perl, liburi-perl, libio-socket-ssl-perl, libuuid-perl, libdigest-hmac-perl
+Depends: userdir-ldap, perl5, libnet-ldap-perl, libcrypt-blowfish-perl, gnupg (>= 1.0.3), libdate-manip-perl, liburi-perl, libio-socket-ssl-perl, libossp-uuid-perl, libdigest-hmac-perl
 Replaces: userdir-ldap
 Description: CGI programs for the db.debian.org
  These programs are run on http://db.debian.org/ to simplify the
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;