From 6fe4d3ecbdc3196c7c62b9b7e00d5063bd0dbee9 Mon Sep 17 00:00:00 2001 From: William Heimbigner Date: Tue, 3 Jul 2007 23:26:43 +0000 Subject: code optimizations, rehash bugfix, lots of cleanup, new hilights, removed some old rules, added and improved some new rules --- modules/xml.pl | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'modules/xml.pl') diff --git a/modules/xml.pl b/modules/xml.pl index c497ffc..c3da924 100644 --- a/modules/xml.pl +++ b/modules/xml.pl @@ -11,12 +11,11 @@ sub readXML { my ( $p ) = $::cset; #@_; $p = 'default' if $p eq ''; $p = "config-$p"; - $::settings = $::xs1->XMLin( "$p/settings.xml", ForceArray => [qw/host/], - GroupTags => { altnicks => 'altnick', server => 'host', autojoins=> 'autojoin' }); - $::channels = $::xs1->XMLin( "$p/channels.xml", ForceArray => [qw/event debug info low medium high/] ); - $::users = $::xs1->XMLin( "$p/users.xml", ForceArray => 'person' ); + $::settings = $::xs1->XMLin( "$p/settings.xml", ForceArray => ['host'], 'GroupTags' => { altnicks => 'altnick', server => 'host', autojoins => 'autojoin' }); + $::channels = $::xs1->XMLin( "$p/channels.xml", ForceArray => [qw/event debug info low medium high/]); + $::users = $::xs1->XMLin( "$p/users.xml", ForceArray => 'person'); $::commands = $::xs1->XMLin( "$p/commands.xml", ForceArray => [qw/command/]); - $::mysql = $::xs1->XMLin( "$p/mysql.xml", ForceArray => [] ); + $::mysql = $::xs1->XMLin( "$p/mysql.xml", ForceArray => []); } sub writeXML { -- cgit v1.2.3