From c3ed7ef1b20adb2e86c69e159cbff9b35acf7aac Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 25 Jun 2008 13:57:21 +0000
Subject: [PATCH] =?utf8?q?Administration:=20Wenn=20eine=20neue=20Authentif?=
 =?utf8?q?izierungsdatenbank=20angelegt=20wird=20und=20keine=20Benutzermig?=
 =?utf8?q?ration=20erfolgt=20(sprich=20eine=20frische=20Installation=20von?=
 =?utf8?q?=202.6.0=20oder=20neuer),=20so=20wird=20eine=20Standardgruppe=20?=
 =?utf8?q?namens=20"Vollzugriff"=20angelegt,=20die=20volle=20Rechte=20auf?=
 =?utf8?q?=20alle=20Funktionen=20erh=C3=A4lt.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bin/mozilla/admin.pl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index 4248a9c12..c22dc7616 100644
--- a/bin/mozilla/admin.pl
+++ b/bin/mozilla/admin.pl
@@ -176,6 +176,18 @@ sub create_auth_tables {
   $auth->set_session_value('rpw', $form->{rpw});
   $auth->create_or_refresh_session();
 
+  if (!-f $memberfile) {
+    # New installation -- create a standard group with full access
+    my $group = {
+      'name'        => $locale->text('Full Access'),
+      'description' => $locale->text('Full access to all functions'),
+      'rights'      => { map { $_ => 1 } SL::Auth::all_rights() },
+      'members'     => [ map { $_->{id} } values %members ],
+    };
+
+    $auth->save_group($group);
+  }
+
   login();
 }
 
-- 
2.20.1