WebService::Mattermost - example greeting bot for Mattermost (Perl)

greeter.pl

#!/usr/bin/env perl

use strict;
use warnings;

use WebService::Mattermost::V4::Client;

my $bot = WebService::Mattermost::V4::Client->new({
    username => 'MATTERMOST USERNAME HERE',
    password => 'MATTERMOST PASSWORD HERE',
    base_url => 'https://my.mattermost-server.com/api/v4/',

    debug => 1, # Show extra connection information
});

# Triggered on every message received by the gateway
$bot->on(gw_message => sub {
    my ($bot, $args) = @_;

    # Only post-like messages contain post_data
    if ($args->{post_data}->{message} && lc $args->{post_data}->{message} eq 'hello') {
        # Respond with a friendly greeting
        $bot->api->posts->create({
            message    => 'Hi, @'.$args->{message}->{data}->{sender_name},
            channel_id => $args->{post_data}->{channel_id},
        });
    }
});

# Start the bot
$bot->start();

loop.pl

# Triggered on every message received by the gateway
$bot->on(gw_message => sub {
    my ($bot, $args) = @_;

    # Only post-like messages contain post_data
    if ($args->{post_data}->{message} && lc $args->{post_data}->{message} eq 'hello') {
        # Respond with a friendly greeting
        $bot->api->posts->create({
            message    => 'Hi, @'.$args->{message}->{data}->{sender_name},
            channel_id => $args->{post_data}->{channel_id},
        });
    }
});

start.pl

$bot->start();

use.pl

#!/usr/bin/env perl

use strict;
use warnings;

use WebService::Mattermost::V4::Client;

my $bot = WebService::Mattermost::V4::Client->new({
    username => 'MATTERMOST USERNAME HERE',
    password => 'MATTERMOST PASSWORD HERE',
    base_url => 'https://my.mattermost-server.com/api/v4/',

    debug => 1, # Show extra connection information
});

WebService::Mattermost source code