diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2007-06-28 21:13:35 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2007-06-28 21:13:35 +0000 |
| commit | 7ea23cad4c72904b02ad5c359f5edfab8328268d (patch) | |
| tree | a0973bfe2aaa8d4d7c0e35c09f2466ed9410e56a /config-default/commands.xml | |
| parent | d944892a0c4d04c056a8697fc0aee54b5b01ff88 (diff) | |
memleak fix, better nick tracking, new commands, major security exploit fix
Diffstat (limited to 'config-default/commands.xml')
| -rw-r--r-- | config-default/commands.xml | 31 |
1 files changed, 27 insertions, 4 deletions
diff --git a/config-default/commands.xml b/config-default/commands.xml index 77ee1c7..9aee415 100644 --- a/config-default/commands.xml +++ b/config-default/commands.xml @@ -7,6 +7,15 @@ $conn->privmsg($event->{to}->[0], "$result results found."); ]]> </command> + <command cmd="^;autoban (\S+)$" flag="a"> + <![CDATA[ + my $chan = $1; + my $set = $::channels->{channel}->{$chan}->{op}; + if ($set eq "no") { $set = "when"; } else { $set = "no"; } + $::channels->{channel}->{$chan}->{op} = $set; + $conn->privmsg($event->{to}->[0], "Operator action for $chan set to \"$set\"."); + ]]> + </command> <command cmd="^;hilight (\S+) (\S+) ?(\S*)$" flag="a"> <![CDATA[ my $chan = $1; @@ -33,14 +42,28 @@ $conn->privmsg($event->{to}->[0], "kthxbai $nick"); ]]> </command> - <command cmd="^;join (.*)" flag="a"> + <command cmd="^;join (\S+)" flag="a"> <![CDATA[ - $conn->join($1); + my $chan = $1; + unless (defined($::channels->{channel}->{$chan})) { + $::channels->{channel}->{$chan} = { 'op' => 'no' }; + writeChannels(); + } + $conn->join($chan); + my @autojoins = @{$::settings->{autojoins}}; + @autojoins = (@autojoins, $chan); + $::settings->{autojoins} = \@autojoins; + writeSettings(); ]]> </command> - <command cmd="^;part (.*)" flag="a"> + <command cmd="^;part (\S+)" flag="a"> <![CDATA[ - $conn->part($1); + my $chan = $1; + $conn->part($chan); + my @autojoins = @{$::settings->{autojoins}}; + @autojoins = grep { lc $_ ne lc $chan } @autojoins; + $::settings->{autojoins} = \@autojoins; + writeSettings(); ]]> </command> <command cmd="^;sl (.*)" flag="d"> |