Awesome

Cisco SparkBot implementation

This bundle includess the following libraries:

Module	Function
AnyEvent::SparkBot	Asyncrnous AnyEvent loop implementation of the Spark Bot
AnyEvent::HTTP::Spark	Dual Nature Syncrnous/Asyncrnous AnyEvent friendly Spark v1 HTTP Client library
AnyEvent::SparkBot::SharedRole	Shared library used by AnyEvent::SparkBot and AnyEvent::HTTP::Spark

Once installed it you should be able to use perldoc to view the pod.

Basic Example

This example shows how to connect to spark and respond to text messages.

use Modern::Perl;
use Data::Dumper;
use AnyEvent::SparkBot;
use AnyEvent::Loop;
$|=1;

my $obj=new AnyEvent::SparkBot(token=>$ENV{SPARK_TOKEN},on_message=>\&cb);

$obj->que_getWsUrl(sub { $obj->start_connection});
$obj->agent->run_next;
AnyEvent::Loop::run;

sub cb {
  my ($sb,$result,$eventType,$verb,$json)=@_;
  return unless $eventType eq 'conversation.activity' and $verb eq 'post';
  if($result) {
    my $data=$result->get_data;
    my $response={
      roomId=>$data->{roomId},
      personId=>$data->{personId},
      text=>"ya.. ya ya.. I'm on it!"
    };
    print Dumper($data);
    $sb->spark->que_createMessage(sub {},$response);
    $sb->agent->run_next;
  } else {
    print "Error: $result\n";
  }
}

To Build:

  perl MakeFile.PL
  make
  make test
  make install

For more extensive unit testing

If you want to test this object with your token

  export SPARK_TOKEN=myToken
  export TEST_USER='Firstname LastName'
  export RUN_HTTP_TESTS=1
  export TEST_USER_WC='User%'
  export TEST_EMAIL='User%'
  export TEST_PERSON_ID=xxxxx
  export TEST_MSG_ID=xxx
  export TEST_TEAM=TeamX
  export TEST_ROOM=RoomX
  perl MakeFile.PL
  make
  make test
  make install

Licence

The Perl 5 License (Artistic 1 & GPL 1 or later)