diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2008-12-24 20:22:42 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2008-12-24 20:22:42 +0000 |
| commit | 14f2ccaa90a00b2317016ef4daf0e00f23d1a5b5 (patch) | |
| tree | 3abc7a6e0b263a70c5193d175c3cb81f83ca6d58 /config-default | |
| parent | e4c6433ef30c7dc3d2734b204e8f8d0510584a79 (diff) | |
Checking to see what flags a user has no longer requires 'a'
Diffstat (limited to 'config-default')
| -rw-r--r-- | config-default/commands.xml | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/config-default/commands.xml b/config-default/commands.xml index f9abcc5..3dba162 100644 --- a/config-default/commands.xml +++ b/config-default/commands.xml @@ -41,7 +41,17 @@ $conn->privmsg($event->{to}->[0], "Hiya $nick"); ]]> </command> - <command cmd="^;user flags (\S+) ?(?: (\S+))?$" flag="a"> + <command cmd="^;user flags (\S+) ?$"> + <![CDATA[ + my $nick = lc $1; + 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"); + } + ]]> + </command> + <command cmd="^;user flags (\S+) (\S+)$" flag="a"> <![CDATA[ my $nick = lc $1; my $flags = $2; @@ -49,18 +59,9 @@ $conn->privmsg($event->{to}->[0], "The d flag may not be assigned over IRC. Edit the configuration manually."); return; } - if ((!defined($flags)) || ($flags eq '')) { - 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"); - } -# delete($::users->{person}->{$nick}->{flags}); - } else { - $::users->{person}->{$nick}->{flags} = $flags; - ASM::XML->writeUsers(); - $conn->privmsg($event->{to}->[0], "Flags for $nick set to $flags"); - } + $::users->{person}->{$nick}->{flags} = $flags; + ASM::XML->writeUsers(); + $conn->privmsg($event->{to}->[0], "Flags for $nick set to $flags"); ]]> </command> <command cmd="^;user del (\S+)$" flag="a"> |