need a username arg for now... this should make the error message less confusing

diff --git a/bin/mapsecrets2access_user b/bin/mapsecrets2access_user
index 3fcd506..4efd90b 100755 (executable)
--- a/bin/mapsecrets2access_user
+++ b/bin/mapsecrets2access_user
@@ -14,7 +14,8 @@ use FS::access_groupagent;
 use FS::agent;
 
 $FS::CurrentUser::upgrade_hack = 1;
-adminsuidsetup shift;
+my $user = shift or die &usage;
+adminsuidsetup $user;
 
 my $supergroup = qsearchs('access_group', { 'groupname' => 'Superuser' } );
 unless ( $supergroup ) {
@@ -77,3 +78,8 @@ cp $mapsecrets, "$mapsecrets.bak$$";
 open(MAPSECRETS, ">$mapsecrets") or die $!;
 print MAPSECRETS '* secrets'. "\n";
 close MAPSECRETS or die $!;
+
+sub usage {
+  die "Usage:\n  mapsecrets2access_user user\n"; 
+}
+