From 0c1b6cc2808b4fd45779cce4835a6a80eae48265 Mon Sep 17 00:00:00 2001 From: Doug Freed Date: Fri, 4 Dec 2015 12:12:28 +0400 Subject: Initial commit --- cgi-bin/showUsers.pl | 75 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 75 insertions(+) create mode 100755 cgi-bin/showUsers.pl (limited to 'cgi-bin/showUsers.pl') diff --git a/cgi-bin/showUsers.pl b/cgi-bin/showUsers.pl new file mode 100755 index 0000000..913ee22 --- /dev/null +++ b/cgi-bin/showUsers.pl @@ -0,0 +1,75 @@ +#!/usr/bin/perl + +#use warnings; +use Data::Dumper; +use strict; +use DBI; +use XML::Simple qw(:strict); + + +print "Content-type: text/html", "\n\n"; +print < + + AntiSpamMeta User List + + +

Maintaining AntiSpamMeta takes work! Please +
+ + + + +

+ + +HTML + +my $xs1 = XML::Simple->new( KeyAttr => ['id'], Cache => [ qw/memcopy/ ]); +my $users = $xs1->XMLin( "/home/icxcnika/AntiSpamMeta/config-main/users.xml", ForceArray => 'person'); + +sub printout +{ + my ($user) = @_; + print ""; + print ""; + print ""; + print ""; + print ""; + print "\n"; +} + +foreach my $user (keys %{$users->{person}}) { + if (index($users->{person}->{$user}->{flags}, 'd') != -1) { + printout($user); + delete $users->{person}->{$user}; + } +} +foreach my $user (keys %{$users->{person}}) { + if (index($users->{person}->{$user}->{flags}, 'a') != -1) { + printout($user); + delete $users->{person}->{$user}; + } +} +foreach my $user (keys %{$users->{person}}) { + if (index($users->{person}->{$user}->{flags}, 's') != -1) { + printout($user); + delete $users->{person}->{$user} + } +} + +foreach my $user (keys %{$users->{person}}) { + printout($user); +} +print "
NickServ accounthsad
$user"; + print "x" if (index($users->{person}->{$user}->{flags}, 'h') != -1); + print ""; + print "x" if (index($users->{person}->{$user}->{flags}, 's') != -1); + print ""; + print "x" if (index($users->{person}->{$user}->{flags}, 'a') != -1); + print ""; + print "x" if (index($users->{person}->{$user}->{flags}, 'd') != -1); + print "
"; + +exit 0; -- cgit v1.2.3