weechat::register("join", "FlashCode", "0.1", "GPL3", "Catch join example", "", "");
weechat::hook_signal("*,irc_in_join", "join");

sub join
{
    my ($server, $command) = split(",", $_[0], 2);
    my ($host, $message) = split(" ", $_[1], 2);
    my $nick = weechat::info_get("irc_nick_from_host", $host);
    weechat::print("", "server=$server, message=$message, nick=$nick");
    return weechat::WEECHAT_RC_OK;
}