From c6d38c7575a09c2b8344857e01a728298148628b Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Sun, 29 Jan 2012 07:50:57 +0000
Subject: State tracking of user accounts, use freenode's CAP features to avoid
 whois'ing users and improve access control for bot's commands, remove some
 dead code

---
 modules/xml.pl | 23 +++++------------------
 1 file changed, 5 insertions(+), 18 deletions(-)

(limited to 'modules/xml.pl')

diff --git a/modules/xml.pl b/modules/xml.pl
index ce7712d..30b5f30 100644
--- a/modules/xml.pl
+++ b/modules/xml.pl
@@ -8,9 +8,7 @@ use IO::All;
 $::xs1 = XML::Simple->new( KeyAttr => ['id'], Cache => [ qw/storable memcopy/ ]);
 
 sub readXML {
-  my ( $p ) = $::cset; #@_;
-  $p = 'default' if $p eq '';
-  $p = "config-$p";
+  my ( $p ) = $::cset;
   my @fchan = ( 'event', keys %::RISKS );
   $::settings = $::xs1->XMLin( "$p/settings.xml", ForceArray => ['host'], 'GroupTags' => { altnicks => 'altnick', server => 'host', autojoins => 'autojoin' });
   $::channels = $::xs1->XMLin( "$p/channels.xml", ForceArray => \@fchan );
@@ -21,9 +19,7 @@ sub readXML {
 }
 
 sub writeXML {
-  my ( $p ) = $::cset; #@_;
-  $p = 'default' if $p eq '';
-  $p = "config-$p";
+  my ( $p ) = $::cset;
   $::xs1->XMLout($::settings, RootName => 'settings', KeyAttr => ['id'],
                GroupTags => { altnicks => 'altnick', server => 'host', autojoins => 'autojoin' },
                ValueAttr => { debug => 'content',     nick => 'content',    port => 'content',
@@ -35,24 +31,15 @@ sub writeXML {
 }
 
 sub writeChannels {
-  my ( $p ) = $::cset; #@_;
-  $p = 'default' if $p eq '';
-  $p = "config-$p";
-  $::xs1->XMLout($::channels, RootName => 'channels', KeyAttr => ['id']) > io("$p/channels.xml");
+  $::xs1->XMLout($::channels, RootName => 'channels', KeyAttr => ['id']) > io("$::cset/channels.xml");
 }
 
 sub writeUsers {
-  my ( $p ) = $::cset; #@_;
-  $p = 'default' if $p eq '';
-  $p = "config-$p";
-  $::xs1->XMLout($::users,    RootName => 'people',   KeyAttr => ['id']) > io("$p/users.xml");
+  $::xs1->XMLout($::users,    RootName => 'people',   KeyAttr => ['id']) > io("$::cset/users.xml");
 }
 
 sub writeSettings {
-  my ( $p ) = $::cset; #@_;
-  $p = 'default' if $p eq '';
-  $p = "config-$p";
-  $::xs1->XMLout($::settings, RootName => 'settings', GroupTags => { altnicks => 'altnick', server => 'host', autojoins => 'autojoin' }, NoAttr => 1) > io("$p/settings.xml");
+  $::xs1->XMLout($::settings, RootName => 'settings', GroupTags => { altnicks => 'altnick', server => 'host', autojoins => 'autojoin' }, NoAttr => 1) > io("$::cset/settings.xml");
 }
 
 return 1;
-- 
cgit v1.2.3