From: ivan <ivan>
Date: Mon, 19 Jun 2006 12:22:09 +0000 (+0000)
Subject: ACL bootstrapping
X-Git-Tag: BEFORE_FINAL_MASONIZE~107
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=637378f8fa3c8d76a009cbf92984cdfb571cc5ee

ACL bootstrapping
---

diff --git a/bin/mapsecrets2access_user b/bin/mapsecrets2access_user
index 934cd7698..b34e0321a 100755
--- a/bin/mapsecrets2access_user
+++ b/bin/mapsecrets2access_user
@@ -3,6 +3,7 @@
 use strict;
 use File::Copy "cp";
 use FS::UID qw(adminsuidsetup);
+use FS::CurrentUser;
 use FS::AccessRight;
 use FS::Record qw(qsearchs qsearch);
 use FS::access_group;
@@ -12,6 +13,7 @@ use FS::access_right;
 use FS::access_groupagent;
 use FS::agent;
 
+$FS::CurrentUser::upgrade_hack = 1;
 adminsuidsetup shift;
 
 my $supergroup = qsearchs('access_group', { 'groupname' => 'Superuser' } );