[freeside-commits] freeside/bin mapsecrets2access_user,1.1,1.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail:/tmp/cvs-serv16462

Modified Files:
	mapsecrets2access_user 
Log Message:
ACL bootstrapping

Index: mapsecrets2access_user
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/mapsecrets2access_user,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- mapsecrets2access_user	19 Jun 2006 11:57:39 -0000	1.1
+++ mapsecrets2access_user	19 Jun 2006 12:22:09 -0000	1.2
@@ -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_groupagent;
 use FS::agent;
 
+$FS::CurrentUser::upgrade_hack = 1;
 adminsuidsetup shift;
 
 my $supergroup = qsearchs('access_group', { 'groupname' => 'Superuser' } );