SurrealChat.net 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.

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