#!/usr/bin/perl -w

use strict;
use Alterator::Backend3;

$TEXTDOMAIN = 'alterator-@NAME@';

# set this to 0 to disable debug messages
$DEBUG = 1;

sub on_message {
    my $params=shift;

    return if !defined $params->{action};

    my $action=$params->{action};

    if ($action eq 'read')
    {
	#insert your code for read action here
    }
    elsif ($action eq 'write')
    {
	#insert your code for read action here
    }
    elsif ($action eq 'list')
    {
	#insert your code for list action here
    }
}

message_loop(\&on_message)
