#!/usr/bin/perl #use warnings; use Data::Dumper; use strict; use DBI; use JSON qw(decode_json); use IO::All; print "Content-type: text/html", "\n\n"; print < AntiSpamMeta User List

Maintaining AntiSpamMeta takes work! Please

HTML my $users = decode_json(io->file("/home/icxcnika/AntiSpamMeta/config-main/users.json")->all); sub printout { my ($user) = @_; print ""; print ""; print ""; print ""; print ""; print ""; print "\n"; } foreach my $user (sort keys %{$users->{person}}) { if (index($users->{person}->{$user}->{flags}, 'd') != -1) { printout($user); delete $users->{person}->{$user}; } } foreach my $user (sort keys %{$users->{person}}) { if (index($users->{person}->{$user}->{flags}, 'a') != -1) { printout($user); delete $users->{person}->{$user}; } } foreach my $user (sort keys %{$users->{person}}) { if (index($users->{person}->{$user}->{flags}, 'h') != -1) { printout($user); delete $users->{person}->{$user} } } foreach my $user (sort keys %{$users->{person}}) { if (index($users->{person}->{$user}->{flags}, 's') != -1) { printout($user); delete $users->{person}->{$user} } } foreach my $user (sort keys %{$users->{person}}) { # if (index($users->{person}->{$user}->{flags}, 's') != -1) { printout($user); delete $users->{person}->{$user} # } } print "
NickServ account s h a d p
$user"; print "s" if (index($users->{person}->{$user}->{flags}, 's') != -1); print ""; print "h" if (index($users->{person}->{$user}->{flags}, 'h') != -1); print ""; print "a" if (index($users->{person}->{$user}->{flags}, 'a') != -1); print ""; print "d" if (index($users->{person}->{$user}->{flags}, 'd') != -1); print ""; print "p" if (index($users->{person}->{$user}->{flags}, 'p') != -1); print "
"; exit 0;