SurrealChat.net Services Development (Perl)/ChanServ

Showing revision 5
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;
}


This page is read-only | View other revisions | View current revision
Edited September 16, 2004 6:02 pm (diff)
Search: