source: trollforge/mao/LJ/lj_irc.pl @ 551

#!/usr/bin/perl
# IRC<->LJ bot

use warnings;
use strict;
use POE;
use POE::Component::IRC;
use POE::Component::IRC::Common qw(parse_user);
use LJ;
sub CHANNEL () { ("#lj", "#gnaa") }

my $blogger;
#$blogger->post("Test1", "This is a test. feels good\n\ntest.");
#print $blogger->comment("http://lj.rossia.org/users/mao/80045.html?mode=reply", "nice blog!");

# Create the component that will represent an IRC network.
my $irc = POE::Component::IRC->spawn();

# Create the bot session.  The new() call specifies the events the bot
# knows about and the functions that will handle those events.
POE::Session->create(
  inline_states => {
    _start     => \&bot_start,
    irc_001    => \&on_connect,
    irc_public => \&on_public,
    irc_invite => \&on_invite,
  },
);

sub on_invite {
        my ($kernel, $who, $chan) = @_[KERNEL, ARG0, ARG1];
        print parse_user($who);
        print "yes hello";
}

sub bot_start {
  $irc->yield(register => "all");
  my $nick = 'KikeJournal';
  $irc->yield(
    connect => {
      Nick     => $nick,
      Username => 'lj',
      Ircname  => 'LJ<->IRC bot :: http://hardchats.lj.ru',
      Server   => 'irc.gnar.int.ru',
      Port     => '6667',
    }
  );
  $blogger = new LJ(user=>"hardchats", server=>"livejournal.com");
  $blogger->password("nigger88");
}

# The bot has successfully connected to a server.  Join a channel.
sub on_connect {
        foreach my $chan(CHANNEL) {
                $irc->yield(join => $chan);
        }
}



sub on_public {
  my ($kernel, $who, $where, $msg) = @_[KERNEL, ARG0, ARG1, ARG2];
  my $nick    = (split /!/, $who)[0];
  my $channel = $where->[0];
  my $ts      = scalar localtime;
  print " [$ts] <$nick:$channel> $msg\n";
  
  if (my ($blogpost) = $msg =~ /^!lj (.+)/) {
    if(my @ret = $blogger->post("$nick says", $blogpost)) {
        $irc->yield(privmsg => $where, "Posted @ ".$ret[-1]);
    } else {
        $irc->yield(privmsg => $where, "something went gay");
    }
  }
}


$poe_kernel->run();
exit 0;