[Da-tools-commits] ./debian/userdir-ldap-cgi r104: Different uuid lib

[Peter Palfrader]

------------------------------------------------------------
revno: 104
committer: Peter Palfrader <peter at palfrader.org>
branch nick: userdir-ldap-cgi
timestamp: Sun 2008-09-14 23:59:44 +0200
message:
  Different uuid lib
modified:
  debian/control
  update.cgi
-------------- next part --------------
=== modified file 'debian/control'
--- a/debian/control	2008-09-14 21:42:48 +0000
+++ b/debian/control	2008-09-14 21:59:44 +0000
@@ -8,7 +8,7 @@
 
 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

=== modified file 'update.cgi'
--- a/update.cgi	2008-09-14 21:42:48 +0000
+++ b/update.cgi	2008-09-14 21:59:44 +0000
@@ -8,7 +8,7 @@
 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 @@
     }
     # 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;