Fix all the DXUser API changes to use JSON

[spider.git] / cmd / show / dxuser_stats.pl

diff --git a/cmd/show/dxuser_stats.pl b/cmd/show/dxuser_stats.pl
new file mode 100644 (file)
index 0000000..2a54477
--- /dev/null
+++ b/cmd/show/dxuser_stats.pl
@@ -0,0 +1,20 @@
+#
+# show the state of the DXUser statistics
+#
+#  Copyright (c) 2020 Dirk Koopman G1TLH
+#
+my $self = shift;
+
+if ($self->priv < 9) {
+       return (1, $self->msg('e5'));
+}
+
+my @out;
+
+push @out, "      New Users: $DXUser::newusers";
+push @out, " Modified Users: $DXUser::modusers";
+push @out, "    Total Users: $DXUser::totusers";
+push @out, "  Deleted Users: $DXUser::delusers";
+push @out, "   Cached Users: $DXUser::cachedusers";
+
+return (1, @out);