From 8994c5df135bc2fe266fe24d7d297608e397893c Mon Sep 17 00:00:00 2001
From: Janik Kleinhoff <ilbelkyr@shalture.org>
Date: Sun, 13 Mar 2016 21:40:02 +0000
Subject: JSONify

---
 cgi-bin/showUsers.pl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'cgi-bin/showUsers.pl')

diff --git a/cgi-bin/showUsers.pl b/cgi-bin/showUsers.pl
index 3fb668e..7146192 100755
--- a/cgi-bin/showUsers.pl
+++ b/cgi-bin/showUsers.pl
@@ -4,8 +4,8 @@
 use Data::Dumper;
 use strict;
 use DBI; 
-use XML::Simple qw(:strict);
-
+use JSON qw(decode_json);
+use IO::All;
 
 print "Content-type: text/html", "\n\n";
 print <<HTML;
@@ -33,8 +33,7 @@ print <<HTML;
 </tr>
 HTML
 
-my $xs1 = XML::Simple->new( KeyAttr => ['id'], Cache => [ qw/memcopy/ ]);
-my $users = $xs1->XMLin( "/home/icxcnika/AntiSpamMeta/config-main/users.xml", ForceArray => 'person');
+my $users = decode_json(io->file("/home/icxcnika/AntiSpamMeta/config-main/users.json")->all);
 
 sub printout
 {
-- 
cgit v1.2.3