SurrealChat.net Services Development (Perl)/NickServ

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

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

}

• get_user_id(%user)
  • returns $nickid
• get_user_nick(%user)
  • returns $nick
• guestnick($nick)
  • returns $randnick
• get_host($srcid)
  • returns ($ident, $host)
• get_vhost($srcid)
  • returns ($ident, $vhost)
  • vhosts are a tad unreliable, as it may at times return '*' for the vhost.
• get_root_nick($nick)
  • returns $root
• chk_pass($nick, $pass, $srcid)
  • returns bool
• is_identified($nick, $rnick)
  • returns bool
• is_registered($nick)
  • returns bool
• is_online($nick)
  • returns bool, i think.
  • only checks if a given nick is online. does not check a user->id