update token now honors context config

1 files changed, 1 insertions, 7 deletions

diff --git a/utils/update-rd-tokens b/utils/update-rd-tokens
index 4004e5d..0fda599 100755
--- a/utils/update-rd-tokens
+++ b/utils/update-rd-tokens
@@ -30,17 +30,11 @@ if ($> != 0 ) {
   exit 1;
 }
 
-my $num_args = $#ARGV + 1;
-if ($num_args <= 0) {
-  print STDERR "WARNING: this will update all user tokens (except for admin)\n";
-}
-
-my %EXCLUDED_USERS = map { $_ => 1 } @ARGV;
-$EXCLUDED_USERS{'admin'} = 1;
 my $ret = 0;
 
 my ($ctx, undef, $errorstring) = RHRD::rddb::init();
 if(defined $ctx) {
+  my %EXCLUDED_USERS = map { $_ => 1 } @{$ctx->{'config'}{'specialusers'}{'no-update-token'}};
   my @users = RHRD::rddb::list_users($ctx);
   if(!defined $users[0] && defined $users[2]) {
     print STDERR "$users[2]\n";