# (c) shmem

use Irssi qw(command_bind);
use strict;
use vars qw($VERSION %IRSSI);
use LWP::UserAgent;
use HTTP::Cookies;

$VERSION = '0.0.2';

%IRSSI = (
  'authors'     => 'shmem',
  'contact'     => 'gm@@ccrruufftt..ddee',
  'name'        => 'pm cbtalk',
  'description' => 'talks to te perlmonks chatterbox',
  'license'     => 'Artistic',
  'url'         => 'http://perlmonks.org/?node_id=595908',
  'changed'     => '2007-01-27',
);

my $pmchat = 'http://perlmonks.org/?';
my $ua = LWP::UserAgent->new;
$ua->cookie_jar(
    HTTP::Cookies->new(
        file => "pmcookie.txt",
        autosave => 1,
    )
);
$ua->agent("cbtalk/0.0 [shmem]");

sub login {
    my ($msg, undef, $channel) = @_;
    my ($user,$password) = split /\s+/, $msg;
    my $req = HTTP::Request->new(POST => $pmchat);
    $req->content("displaytype=raw&node_id=109&op=login&node_id=109&user=$user&passwd=$password&sexisgood=submit");
    $ua->request($req);
}
sub cbtalk {
    my ($msg, undef, $channel) = @_;
    $msg =~ s/\W/sprintf"%%%02x",ord$&/ge;
    my $req = HTTP::Request->new(POST => $pmchat);
    $req->content_type('application/x-www-form-urlencoded');
    $req->content("displaytype=raw&node_id=3193&op=message&message=$msg&message_send=talk");
    $ua->request($req);
} 

command_bind('cb',   'cbtalk');
command_bind('cblogin','login');