Skip to content
No description, website, or topics provided.
CSS JavaScript Perl HTML
Branch: master
Clone or download
Latest commit ed96d9c May 24, 2016
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
bin use jquery 1.4a1 Dec 5, 2009
config add RTPG and rtorrent.rc comments Nov 25, 2009
lib/Social fix errors May 24, 2016
static use jquery 1.4a1 Dec 5, 2009
templates use jquery 1.4a1 Dec 5, 2009
README.mkdn Merge branch 'api' of git://github.com/c9s/Social into api Nov 4, 2011
cpanfile simply use 'Moose' May 24, 2016
social Add an API controller. Nov 4, 2011

README.mkdn

Social

Installing

Social is implemented with Perl, you do not need to install itself to get it working, but it requires following CPAN modules to be installed:

  • Encode
  • YAML
  • AnyEvent::IRC
  • FindBin
  • HTML::Entities
  • Plack
  • Plack::Request
  • Tatsumaki
  • AnyEvent::Twitter
  • AnyEvent::Plurk
  • RTPG
  • AnyEvent::RTPG
  • JSON::XS

Running It

At this point, you do not install the Social itself in order to run it. Just cd into the source tree and execute the "social" program.

You need to provide a path to your config file like this:

./social -c /path/to/config.yml

See config/social.yml for the example and description of the configrable content.

API Controller

Social provides an API controller, you can send messages from the API.

For example,

#!/usr/bin/env perl
use LWP::UserAgent;
use HTTP::Request::Common;
use JSON::XS;
use URI;
my $network = ...;
my $channel = ...;
my $msg = shift;
$ua = LWP::UserAgent->new;
my $uri = URI->new( 'http://localhost:9999/api' );
$uri->query_form({ payload => encode_json({ network => $network , channel => $channel , message => $msg }) });
$response = $ua->request(GET $uri );
warn $response->content;
You can’t perform that action at this time.