The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Bot-BasicBot-Pluggable-Module-Notes-0.02
River stage zero No dependents
++
/ Bot::BasicBot::Pluggable::Module::Notes

NAME

Bot::BasicBot::Pluggable::Module::Notes - A simple note collector for Bot::BasicBot::Pluggable.

SYNOPSIS

  use Bot::BasicBot::Pluggable;
  use Bot::BasicBot::Pluggable::Module::Notes::Store::SQLite;

  my $bot = Bot::BasicBot::Pluggable->new( ... );
  $bot->load( "Notes" );

  my $notes_handler = $bot->handler( "Notes" );

  $notes_handler->set_store(
    Bot::BasicBot::Pluggable::Module::Notes::Store::SQLite
       ->new( "/home/bot/brane.db" )
  );

  $notes_handler->set_notesurl( "http://example.com/irc-notes.cgi" );

  $bot->run;

DESCRIPTION

A plugin module for Bot::BasicBot::Pluggable to store notes for IRC users, these are just stuffed into a small database (SQLite store provided) by time, user and content. Notes taken can then be later viewed on the web using a small web app (provided).

METHODS

set_store
  my $notes_store =
    Bot::BasicBot::Pluggable::Module::Notes::Store::SQLite->new(
      "/home/bot/brane.db" );
  $notes_handler->set_store( $notes_store );

Supply a Bot::BasicBot::Pluggable::Module::Notes::Store::* object.

set_notesurl
  $notes_handler->set_notesurl( "http://example.com/irc-notes.cgi" );

Supply the URL for your CGI/App script to view the stored Notes.

EXAMPLES

  use strict;
  use warnings;
  use Bot::BasicBot::Pluggable;

  my $bot = Bot::BasicBot::Pluggable->new(channels => [ "#test" ],
                                          server   => "irc.example.com",
                                          port     => "6667",
                                          nick     => "bot",
                                          username => "bot",
                                          name     => "bot",
                                         );
  $bot->load( "Notes" );

  my $notes_handler = $bot->handler( "Notes" );

  $notes_handler->set_store(
    Bot::BasicBot::Pluggable::Module::Notes::Store::SQLite
       ->new( "/home/bot/brane.db" )
  );

  $notes_handler->set_notesurl( "http://example.com/irc-notes.cgi" );

  $bot->run;

Yes, this is your entire program.

The file supplied as an argument to the constructor of Bot::BasicBot::Pluggable::Module::Notes::Store::SQLite need not already exist; it will be created and the correct database schema set up as necessary.

Talk to the bot on IRC for help:

  17:37 <nou> notesbot: help Notes
  <notesbot> nou: Simple Note collector for Bot::BasicBot::Pluggable.
      Requires direct addressing.  Usage:
      'note to self: Here's something for later'.  The Notes can be viewed at
      http://example.com/irc-notes.cgi

Get stuff out of the database in your favoured fashion, for example:

  use strict;
  use warnings;
  use CGI;
  use DBI;

  my $sqlite_db = "/home/bot/brane.db";
  my $q = CGI->new;
  my $dbh = DBI->connect("dbi:SQLite:dbname=$sqlite_db", "", "")
    or die DBI->errstr;

  print $q->header;
  print <<EOF;

  <html>
  <head><title>notes</title></head>
  <body><h1 align="center">notes</h1>

  EOF

  my $sql = "SELECT timestamp, name, channel, notes FROM notes
             ORDER BY timestamp DESC";
  my $sth = $dbh->prepare($sql) or die $dbh->errstr;
  $sth->execute;
  my ($timestamp, $name, $channel, $notes);

  while ( ($timestamp, $name, $channel, $notes)
                                          = $sth->fetchrow_array ) {
      print "<br><i>$timestamp</i>: <b>$name/$channel</b>: ";
      print "$notes<br>";
  }

  print "</body></html>\n";

BUGS

More tests would be nice.

NOTES

Module shamelessly stolen and slightly modified from Bot::BasicBot::Pluggable::Module::SimpleBlog by Kake.

TODO

Many things: Include web interface, have bot repeat back stored things, parse/store tags..

SEE ALSO

AUTHOR

Jess Robinson <castaway@desert-island.me.uk>

COPYRIGHT

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

CREDITS

1 POD Error

The following errors were encountered while parsing the POD:

Around line 233:

You forgot a '=back' before '=head1'