diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2007-06-06 21:30:25 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2007-06-06 21:30:25 +0000 |
| commit | 04c4d4ae0d6fdfe9e59a50e79b40047a08feefb7 (patch) | |
| tree | 3db7aa17c73151e038f08e3cd0c1b2faffc0c482 /config-default/commands.xml | |
| parent | 110cb874fc58ae4a214889bb8d6545201a57dd2f (diff) | |
Added files
Diffstat (limited to 'config-default/commands.xml')
| -rw-r--r-- | config-default/commands.xml | 67 |
1 files changed, 67 insertions, 0 deletions
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> |