From 04c4d4ae0d6fdfe9e59a50e79b40047a08feefb7 Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 6 Jun 2007 21:30:25 +0000
Subject: Added files

---
 config-default/commands.xml | 67 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100644 config-default/commands.xml

(limited to 'config-default/commands.xml')

diff --git a/config-default/commands.xml b/config-default/commands.xml
new file mode 100644
index 0000000..4d543c9
--- /dev/null
+++ b/config-default/commands.xml
@@ -0,0 +1,67 @@
+<commands>
+  <command cmd="^;join (.*)" flag="a">
+  <![CDATA[
+    $conn->join($1);
+  ]]>
+  </command>
+  <command cmd="^;part (.*)" flag="a">
+  <![CDATA[
+    $conn->part($1);
+  ]]>
+  </command>
+  <command cmd="^;sl (.*)" flag="d">
+  <![CDATA[
+    $conn->sl($1);
+  ]]>
+  </command>
+  <command cmd="^;quit ?(.*)" flag="a">
+  <![CDATA[
+    $conn->quit($1);
+  ]]>
+  </command>
+  <command cmd="^;ev (.*)" flag="d">
+  <![CDATA[
+    eval $1; warn $@ if $@;
+  ]]>
+  </command>
+  <command cmd="^;rehash$" flag="a">
+  <![CDATA[
+    readXML();
+    $conn->privmsg($event->{to}->[0], 'config files were re-read');
+  ]]>
+  </command>
+  <command cmd="^;say (.*)" flag="t">
+  <![CDATA[
+    $conn->privmsg($event->{to}->[0], $1);
+  ]]>
+  </command>
+  <command cmd="^;do (.*)" flag="t">
+  <![CDATA[
+    $conn->me($event->{to}->[0], $1);
+  ]]>
+  </command>
+  <command cmd="^;exempt (.*)" flag="o">
+  <![CDATA[
+    push(@::eline, $1);
+    "$1\n" >> io 'exempt.txt';
+    $conn->privmsg($event->{to}->[0], "$1 exempted");
+  ]]>
+  </command>
+  <command cmd="^\!ops *(.*)">
+  <![CDATA[
+    my $hilite=commaAndify(getAlert($event->{to}->[0], 'opalert', 'hilights'));
+    $conn->privmsg($_, "$hilite: $event->{nick} wants your attention ($1) ") foreach getAlert($event->{to}->[0], 'opalert', 'msgs');
+  ]]>
+  </command>
+  <command cmd="^;re(load|hash) exempts" flag="a">
+  <![CDATA[
+    @eline=io('exempt.txt')->getlines;
+    chomp @eline;
+  ]]>
+  </command>
+  <command cmd="^;remove (.*)$" flag="o">
+  <![CDATA[
+    $conn->sl("remove $event->{to}->[0] $1");
+  ]]>
+  </command>
+</commands>
-- 
cgit v1.2.3