From 8f7fb029ef716bfacef918ed2356dba3e0ba31ba Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@venexma.es>
Date: Tue, 29 Apr 2008 14:22:31 +0200
Subject: [PATCH] Gruta::CGI now correctly creates an admin session.

---
 Gruta/CGI.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/Gruta/CGI.pm b/Gruta/CGI.pm
index 3834d97..ca6b6db 100644
--- a/Gruta/CGI.pm
+++ b/Gruta/CGI.pm
@@ -117,10 +117,19 @@ sub run {
 			email		=> 'webmaster@localhost'
 		);
 
-		$u->password('admin');
+		# set a random password (to be promptly changed)
+		$u->password(rand());
 
+		# insert the user
 		$data->insert_user($u);
 
+		# create a new session
+		my $session = Gruta::Data::Session->new(user_id => 'admin');
+		$u->source->insert_session($session);
+
+		my $sid = $session->get('id');
+		$self->cookie("sid=$sid");
+
 		$data->auth($u);
 	}
 
-- 
2.11.4.GIT