Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Cbstream: a chatterbox to irc bridge

by ambrus (Abbot)
on Jan 22, 2007 at 10:04 UTC ( #595893=monkdiscuss: print w/ replies, xml ) Need Help??

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 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.

Comment on Cbstream: a chatterbox to irc bridge
Replies are listed 'Best First'.
Re: Cbstream: a chatterbox to irc bridge(irssi client)
by shmem (Canon) on Jan 22, 2007 at 13:20 UTC
    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' => '', 'changed' => '2007-01-27', ); my $pmchat = ''; 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 /cblogin shmem ******** /cb [ambrus]++, your cbstream thingy rocks! :-)



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

    update2:added command to set credentials

    _($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                                  /\_¯/(q    /
    ----------------------------  \__(m.====·.(_("always off the crowd"))."·
    ");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
Re: Cbstream: a chatterbox to irc bridge
by particle (Vicar) on Feb 02, 2007 at 18:17 UTC

    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.

    ~Particle *accelerates*

Re: Cbstream: a chatterbox to irc bridge
by hesco (Deacon) on Jan 22, 2007 at 21:28 UTC
    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 is. Is that on CPAN?

    -- Hugh

    if( $lal && $lol ) { $life++; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: monkdiscuss [id://595893]
Approved by Corion
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (12)
As of 2015-10-07 17:46 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (194 votes), past polls