Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Jabber Bot For Chatterbox

by Hutta (Scribe)
on Oct 14, 2001 at 07:42 UTC ( #118732=perlcraft: print w/ replies, xml ) Need Help??

   1: #!/usr/bin/perl
   2: 
   3: #===[ MonkBot ]===============================================================
   4: #
   5: # Jabber bot that serves as an IM gateway to the perlmonks.org chatterbox.
   6: # Homepage: http://hutta.com/perl/jabberbots/monkbot.html
   7: #
   8: # Note that this requires Net::Jabber, Net::Jabber::Bot and PerlMonks::Chat
   9: # http://download.jabber.org/perl/
  10: # http://hutta.com/perl/jabberbots/
  11: # http://www.cerias.purdue.edu/homes/zamboni/perlmonks.html
  12: #
  13: # My personal MonkBot is on jabber as MonkBot@jabber.icgcorp.net.
  14: # Add him to your roster and you can test this out.
  15: #
  16: #===[ TODO ]==================================================================
  17: #
  18: # - Let MonkBot take user/pass to allow people to send messages as themselves.
  19: # - More integration with PM... New nodes, etc, etc, etc.
  20: #
  21: #=============================================================================
  22: 
  23: use Net::Jabber::Bot;
  24: use PerlMonks::Chat;
  25: 
  26: #===[ Initialize ]============================================================
  27: 
  28: my $pm = new PerlMonks::Chat;
  29: $pm->add_cookies;
  30: 
  31: my $bot = new Net::Jabber::Bot(
  32:         client  => 'MonkBot',
  33:         verbos  => '2',
  34:         logfile => '/tmp/monkbot.log',
  35:         version => '1.0',
  36:         status  => 'Meditating',
  37: );
  38: 
  39: $bot->connect(
  40:         hostname => 'jabber.com',
  41:         port     => '5222'
  42: ) || die "Can't connect"; 
  43: 
  44: $bot->auth(
  45:         username => 'MonkBot',
  46:         password => 'passwordhere',
  47:         resource => 'bot',
  48:         digest   => '1'
  49: );
  50: 
  51: $bot->send_presence();
  52: 
  53: #===[ Defining Callbacks ]====================================================
  54: 
  55: $bot->set_callback( "hello" => \&SayHello );
  56: $bot->set_callback( "hi"    => \&SayHello );
  57: $bot->set_callback( "help"  => \&SayHello );
  58: $bot->set_callback( "all"   => \&SendAll );
  59: 
  60: sub SayHello {
  61:         my $user = shift;
  62:         $user->write("Greetings.");
  63:         $user->write("Add me to your roster/buddylist and I'll send you every" . 
  64:                      "thing that happens on the chatterbox automatically.  " .
  65:                      "Send the command 'all' to get all lines currently " . 
  66:                      "available.");
  67: }
  68: 
  69: sub SendAll {
  70:         my $user = shift;
  71:         my ($lines) = ($pm->getalllines(1,1));
  72:         foreach (@{$lines}) {
  73:                 $user->write("$_");
  74:         }
  75: }
  76: 
  77: #===[ The main loop. ]========================================================
  78: #
  79: # This is where the bot will spend most of its time.  Looping and looping,
  80: # waiting for new chatterbox messages.  When we get them, we'll send them
  81: # out to anyone subscribed to our presence.
  82: #
  83: #=============================================================================
  84: 
  85: while (1) {
  86:         $bot->Process(5);
  87: 
  88:         foreach ($pm->getnewlines(1,1)) { 
  89:                 $bot->broadcast(body=>"$_", type=>'chat');
  90:         }
  91: 
  92:         $bot->Connected() || die "Lost my connection!";
  93: }
  94: # Edited: Sun Oct 14 06:52:45 2001 (GMT), by [footpad]
  95: # Fixed formatting by adding line line breaks.

Comment on Jabber Bot For Chatterbox
Download Code
Re: Jabber Bot For Chatterbox
by Hutta (Scribe) on Oct 14, 2001 at 07:46 UTC
    Sorry about that really long line. I should have caught it. I can feel the XP flying out the window. <grin>
Re: Jabber Bot For Chatterbox
by Gilimanjaro (Hermit) on Jun 12, 2006 at 11:58 UTC
    Is thing thing dead? I can't seem to find Hutta's urls, or the Net::Jabber::Bot module anywhere... :-(

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2014-07-24 23:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (167 votes), past polls