From f32a6af9655304d547f12cf712f8e47d5c6b7759 Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Wed, 2 Jul 2014 15:48:36 +0200
Subject: [PATCH] Get ride of Data::UUID dependency

---
 public/vroom.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/public/vroom.pl b/public/vroom.pl
index 3341eff..ed05166 100755
--- a/public/vroom.pl
+++ b/public/vroom.pl
@@ -10,7 +10,6 @@ use Mojolicious::Lite;
 use Mojolicious::Plugin::Mailer;
 use Mojo::JSON;
 use DBI;
-use Data::GUID qw(guid_string);
 use Digest::MD5 qw(md5_hex);
 use Crypt::SaltedHash;
 use MIME::Base64;
@@ -170,7 +169,7 @@ helper db => sub {
 helper login => sub {
   my $self = shift;
   return if $self->session('name');
-  my $login = $ENV{'REMOTE_USER'} || lc guid_string();
+  my $login = $ENV{'REMOTE_USER'} || lc $self->get_random(29);
   $self->session( name => $login,
                   ip   => $self->tx->remote_address );
   $self->app->log->info($self->session('name') . " logged in from " . $self->tx->remote_address);