quick script to convert rt links from one database name to another

[freeside.git] / bin / mapsecrets2access_user

diff --git a/bin/mapsecrets2access_user b/bin/mapsecrets2access_user
index 934cd76..3fcd506 100755 (executable)
--- 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' } );
@@ -44,7 +46,7 @@ unless ( $supergroup ) {
 my $supergroupnum = $supergroup->groupnum;
 
 my $mapsecrets = '/usr/local/etc/freeside/mapsecrets';
-open(MAPSECRETS, "<$mapsecrets");
+open(MAPSECRETS, "<$mapsecrets") or die $!;
 while (<MAPSECRETS>) {
   /([\w]+)\s+secrets\s*$/ or die "unparsable line in mapsecrets: $_";
   my $username = $1;
@@ -68,9 +70,10 @@ while (<MAPSECRETS>) {
   die $aug_error if $aug_error;
 
 }
+close MAPSECRETS;
 
 # okay to clobber mapsecrets now i guess
 cp $mapsecrets, "$mapsecrets.bak$$";
-open(MAPSECRETS, ">$mapsecrets");
+open(MAPSECRETS, ">$mapsecrets") or die $!;
 print MAPSECRETS '* secrets'. "\n";
-close MAPSECRETS;
+close MAPSECRETS or die $!;