JSONifyweb

1 files changed, 4 insertions, 5 deletions

diff --git a/cgi-bin/secret/investigate.pl b/cgi-bin/secret/investigate.pl
index 6b48027..60120ab 100755
--- a/cgi-bin/secret/investigate.pl
+++ b/cgi-bin/secret/investigate.pl
@@ -6,11 +6,10 @@ use strict;
 use DBI; 
 
 use CGI;
-use XML::Simple qw(:strict);
-my $xs1 = XML::Simple->new( KeyAttr => ['id'], Cache => [ qw/memcopy/ ]);
-my $sqlconf = $xs1->XMLin( "/home/icxcnika/AntiSpamMeta/config-main/mysql.xml",
-                           ForceArray => ['ident', 'geco'],
-                           'GroupTags' => { ignoredidents => 'ident', ignoredgecos => 'geco' });
+use JSON qw(decode_json);
+use IO::All;
+
+my $sqlconf = decode_json(io->file("/home/icxcnika/AntiSpamMeta/config-main/mysql.json")->all);
 
 my $dbh = DBI->connect("DBI:mysql:database=" . $sqlconf->{db} . ";host=" . $sqlconf->{host} . ";port=" . $sqlconf->{port}, $sqlconf->{user}, $sqlconf->{pass});
 $dbh->do("SET time_zone = '+0:00';");