Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

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

Comment on Cbstream: a chatterbox to irc bridge
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' => '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

    _($_=" "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 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 Irssi.pm is. Is that on CPAN?

    -- Hugh

    if( $lal && $lol ) { $life++; }
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*

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (14)
As of 2014-10-01 12:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (18 votes), past polls