package Sessions;

use POE::Component::IRC::Plugin qw( :ALL );
use LWP::Simple;

sub new {
    my $package = shift;
    return bless {}, $package;
}

sub PCI_register {
    my ( $self, $irc ) = splice @_, 0, 2;
    $irc->plugin_register( $self, "SERVER", qw(public) );
    return 1;
}

sub PCI_unregister {
    return 1;
}

sub S_public {
    my ( $self, $irc ) = splice @_, 0, 2;
    my $nick = ( split /!/, ${ $_[0] } )[0];
    my $channel = ${ $_[1] }->[0];
    my $msg = ${ $_[2] };

    if ($msg =~ /^!sessions/) {
        my $tmp = (split / /, $msg)[1];
        $nick = $tmp if $tmp;
        my $content = get('http://u-classroom.net');
        my $tmpl = "<div class=\"planning\"><h2>Sessions à venir</h2><ul><li><a href='([^']+)'>([^<]+)</a></li>";
        $content =~ /$tmpl/;
        $irc->yield( privmsg => $channel => "$nick: $2 ($1)" );

        return PCI_EAT_PLUGIN;
    }
    return PCI_EAT_NONE;
}

1;