package Perlbot::Plugin::URLEater;

use Perlbot::Plugin;
@ISA = qw(Perlbot::Plugin);

use strict;
use DB_File;

our $VERSION = '1.0.0';

sub init {
  my $self = shift;

  $self->want_fork(0);
  
  tie @{$self->{urls}},  'DB_File', File::Spec->catfile($self->{directory}, 'urldb'), O_CREAT|O_RDWR, 0640, $DB_RECNO;
  if(length(@{$self->{urls}}) == 1) {
    push(@{$self->{urls}}, 'this is a crappy hack to make unshift work');
  }

  $self->hook_event('public', \&eaturl);
  $self->hook('urls', \&regurgitate);
}

sub eaturl {
  my $self = shift;
  my $event = shift;
  my $nick = $event->nick();
  my $channel = $event->{to}[0];
  my $text = $event->{args}[0];

  if($text =~ /http:\/\//) {
    my ($url) = $text =~ /(http:\/\/.*?)(?:\s+|$)/;
    my $urltostore = $channel . '::::' . $nick . '::::' . time() . '::::' . $url;
    if(length(@{$self->{urls}}) > 100) {
      pop @{$self->{urls}};
    }
    unshift(@{$self->{urls}}, $urltostore);      
  }
}

sub regurgitate {
  my $self = shift;
  my $user = shift;
  my $text = shift;
  my $event = shift;
  my $chan = $event->{to}[0];

  my ($max) = $text =~ /(\d+)/;
  $max ||= 5;

  if($max > 10) { $max = 10; }

  my $printed = 0;
  my @reply;

  foreach my $storedurl (@{$self->{urls}}) {
    my ($channel, $nick, $time, $url) = split('::::', $storedurl);
    if($channel eq $chan) {
      unshift(@reply, $url . ' -- ' . $nick); # . ' -- ' . localtime($time));
      $printed++;
    }
    if($printed >= $max) { last; }
  }

  $self->reply(@reply);
}