#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/say/;
use FindBin::libs;

use AnyEvent;
use AnyEvent::Wassr;
use Config::Pit;
use Encode qw/encode_utf8/;
use Net::PingFM;

my $config = pit_get("wassr2pingfm" , require => {
    "username" => "your username on wassr",
    "password" => "your password on wassr",
    "user_key" => "your user_key on Ping.fm",
    "api_key"  => "your api_key on Ping.fm",
});
die 'pit_get failed.' if !%$config;
my $username = $config->{username} or die 'username not found.';
my $password = $config->{password} or die 'password not found.';
my $user_key = $config->{user_key} or die 'user_key not found.';
my $api_key  = $config->{api_key} or die 'api_key not found.';

my $wassr = AnyEvent::Wassr->new(
    username => $username,
    password => $password,
);

my $pingfm = Net::PingFM->new(
    user_key => $user_key,
    api_key  => $api_key,
);

$wassr->reg_cb(
    show => sub {
        my ($wassr, @statuses) = @_;
        for my $status (reverse @statuses) {
            my $user = encode_utf8($status->{user}{screen_name});
            my $text = encode_utf8($status->{text});
            say "Updating Ping.fm to '$text'";
            $pingfm->post($text);
        }
    },
    error => sub {
        my ($wassr, $error) = @_;
        warn "Error: $error\n";
    },
);

$wassr->receive_statuses_show;
$wassr->start;

my $cv = AnyEvent->condvar;
$cv->recv;