escape high ascii when writing channels.xml (useful due to xchat exploit rule)

1 files changed, 5 insertions, 6 deletions

diff --git a/modules/xml.pl b/modules/xml.pl
index 30b5f30..dbe4365 100644
--- a/modules/xml.pl
+++ b/modules/xml.pl
@@ -19,19 +19,18 @@ sub readXML {
 }
 
 sub writeXML {
-  my ( $p ) = $::cset;
   $::xs1->XMLout($::settings, RootName => 'settings', KeyAttr => ['id'],
                GroupTags => { altnicks => 'altnick', server => 'host', autojoins => 'autojoin' },
                ValueAttr => { debug => 'content',     nick => 'content',    port => 'content',
                            realname => 'content', username => 'content',     dir => 'content',
-                               zone => 'content',  filefmt => 'content', timefmt => 'content'}) > io("$p/settings.xml");
-  $::xs1->XMLout($::channels, RootName => 'channels', KeyAttr => ['id']) > io("$p/channels.xml");
-  $::xs1->XMLout($::users,    RootName => 'people',   KeyAttr => ['id']) > io("$p/users.xml");
-  $::xs1->XMLout($::commands, RootName => 'commands', KeyAttr => ['id']) > io("$p/commands.xml");
+                               zone => 'content',  filefmt => 'content', timefmt => 'content'}) > io("$::cset/settings.xml");
+  $::xs1->XMLout($::channels, RootName => 'channels', KeyAttr => ['id'], NumericEscape => 2) > io("$::cset/channels.xml");
+  $::xs1->XMLout($::users,    RootName => 'people',   KeyAttr => ['id']) > io("$::cset/users.xml");
+  $::xs1->XMLout($::commands, RootName => 'commands', KeyAttr => ['id']) > io("$::cset/commands.xml");
 }
 
 sub writeChannels {
-  $::xs1->XMLout($::channels, RootName => 'channels', KeyAttr => ['id']) > io("$::cset/channels.xml");
+  $::xs1->XMLout($::channels, RootName => 'channels', KeyAttr => ['id'], NumericEscape => 2) > io("$::cset/channels.xml");
 }
 
 sub writeUsers {