cmd/show/dxuser_stats.pl

   1 #
   2 # show the state of the DXUser statistics
   3 #
   4 #  Copyright (c) 2020 Dirk Koopman G1TLH
   5 #
   6 my $self = shift;
   7
   8 if ($self->priv < 9) {
   9         return (1, $self->msg('e5'));
  10 }
  11
  12 my @out;
  13
  14 push @out, "      New Users: $DXUser::newusers";
  15 push @out, " Modified Users: $DXUser::modusers";
  16 push @out, "    Total Users: $DXUser::totusers";
  17 push @out, "  Deleted Users: $DXUser::delusers";
  18 push @out, "   Cached Users: $DXUser::cachedusers";
  19
  20 return (1, @out);