diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2007-06-28 23:48:48 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2007-06-28 23:48:48 +0000 |
| commit | 6907da0a5da3d45a91c3ac4893e5b890200b27eb (patch) | |
| tree | 5a61df15a30b6d0aefa6c6e72e7eab2d8f03de1f /config-default | |
| parent | 638d9eae9e63755e26f9843985597e6f1c7c5f8e (diff) | |
modularized stuff, fixed alert logic, simplified stuff, updated TODO
Diffstat (limited to 'config-default')
| -rw-r--r-- | config-default/commands.xml | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/config-default/commands.xml b/config-default/commands.xml index b86783e..7eaca57 100644 --- a/config-default/commands.xml +++ b/config-default/commands.xml @@ -3,7 +3,7 @@ <![CDATA[ my $channel = $1; my @nuh = split(/(\!|\@)/, $2); - my $result = sql_query($channel, $nuh[0], $nuh[2], $nuh[4]); + my $result = $::db->query($channel, $nuh[0], $nuh[2], $nuh[4]); $conn->privmsg($event->{to}->[0], "$result results found."); ]]> </command> @@ -12,8 +12,7 @@ my $nick = lc $1; my $host = $2; if ($host eq '') { $host = 'IDENTIFY'; } - $::xusers->{$nick} = { 'host' => $host }; - $::users->{person} = $::xusers; + $::users->{person}->{$nick} = { 'host' => $host }; writeUsers(); $conn->privmsg($event->{to}->[0], "Hiya $nick"); ]]> @@ -22,10 +21,9 @@ <![CDATA[ my $nick = lc $1; my $flags = $2; - if ($flags eq '') { delete($::xusers->{$nick}->{flags}); } else { - $::xusers->{$nick}->{flags} = $flags; + if ($flags eq '') { delete($::users->{person}->{$nick}->{flags}); } else { + $::users->{person}->{$nick}->{flags} = $flags; } - $::users->{person} = $::xusers; writeUsers(); $conn->privmsg($event->{to}->[0], "Flags for $nick set to $flags"); ]]> @@ -33,8 +31,7 @@ <command cmd="^;user del (\S+)$" flag="d"> <![CDATA[ my $nick = lc $1; - delete($::xusers->{$nick}); - $::users->{person} = $::xusers; + delete($::users->{person}->{$nick}); writeUsers(); $conn->privmsg($event->{to}->[0], "Byebye $nick"); ]]> @@ -42,8 +39,8 @@ <command cmd="^;user flags show (\S+)$" flag="d"> <![CDATA[ my $nick = lc $1; - if (defined($::xusers->{$nick}->{flags})) { - $conn->privmsg($event->{to}->[0], "Flags for $nick: $::xusers->{$nick}->{flags}"); + if (defined($::users->{person}->{$nick}->{flags})) { + $conn->privmsg($event->{to}->[0], "Flags for $nick: $::users->{person}->{$nick}->{flags}"); } else { $conn->privmsg($event->{to}->[0], "$nick has no flags"); } |