Cbstream: a chatterbox to irc bridge

[ambrus]

I have written a new experimental chatterbox to irc bridge. Whatever anyone speaks in the chatterbox, cbstream copies to the irc channel #cbstream on the server irc.freenode.net. Join the channel now to try it.

See the cbstream FAQ for more details.

Update: you can now also speak from the channel: see Cbupstream: an irc to chatterbox bridge.

[shmem]

And here's a client to be used from within irssi...

# (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&us
+er=$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=$ms
+g&message_send=talk");
    $ua->request($req);
} 

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

...which allows you to POST to the chatterbox while in #cbstream:

/script load cbtalk.pl
/cblogin shmem ********
/cb [ambrus]++, your cbstream thingy rocks! :-)

enjoy,


--shmem

update: post #666 - storing usernames and plaintext passwords in a script is eeevil at it's best! :-P

update2:added command to set credentials

[particle]

nice work. however, it'd be nice if the bridging bot had a shorter irc name, like, say, '|'. i know i'd find it less distracting when viewing on irc.

[hesco]

Man this is sweet. My ksIRC client beats the web CB client hands down. Thanks ambrus for making this possible. I've made a local copy of the client which is supposed to make it possible for me to chat back from the irc channel, but my system doesn't know what Irssi.pm is. Is that on CPAN?

-- Hugh