Services Development (Perl)/ChanServ

dispatch() function parses input, selects specific action-function.

sub dispatch($$$) {

    my ($src, $dst, $msg) = @_;
    $msg = s/^s|//;
    my @args = ($src, $dst, split(/\s+/, $msg);
    if ($msg =~ (identifier)) { }
    return;

}

is_in_chan($nickid, $chan)
is_registered($chan)
get_all_chans($nickid)
get_op($nickid, $chan)
- returns bitmask of chanmodes, vhoaq
get_best_acc($nickid, $chan; $retnick)
- returns level
get_acc($nick, $chan)
set_modes($nick, $chan, $acc; $doneg)
unset_modes($nick, $chan)
get_level($chan, $perm)
can_do($chan, $perm, $acc, $srcid)
agent($chan) - probably should be get_agent
- Returns the channel's chanbot. if no bot, returns $csnick
get_user_count($chan)
- returns integer count
set_flag($chan, $flag, $sign)
- has no return value
- $flag is one of
  - chanserv::F_OPGUARD
  - chanserv::F_LEAVEOP
  - chanserv::F_HOLD
  - chanserv::F_FREEZE
  - chanserv::F_BOTSTAY
  - chanserv::F_CLOSE
chk_flag($chan, $flag, $sign)
- Returns $flags & $flag
  - IOW, you can check multiple flags with this, and still differentiate which are set.

SurrealChat.net Services Development (Perl)/ChanServ