moved regex to proper location... before it would give anyone +o for
free. last of my changes for +a/+O support.
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@599
c11ca15a-4712-0410-83d8-
924469b57eb5
# &DEBUG("IrcHooks: process returned '$_'.");
}
+ # hack to remove +o from ppl with +O flag.
+ if (exists $users{$userHandle} && exists $users{$userHandle}{FLAGS} &&
+ $users{$userHandle}{FLAGS} =~ /O/
+ ) {
+ $users{$userHandle}{FLAGS} =~ s/o//g;
+ }
+
return;
}
# is $who arg lowercase?
if (exists $channels{$chan}{o}{ $orig{who} } && &IsFlag("O") eq "O") {
&status("Gave $who/$chan +o (+O)\'ness");
- $users{$userHandle}{FLAGS} =~ s/o//g;
$users{$userHandle}{FLAGS} .= "o";
}