parser.pm

package commands::parser;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(exec);

use lib "$FindBin::Bin/lib/";
use commands::fav;
use commands::later;
#use later;
#use tag;
#use help;

our $irc;
our $dbh;
our $lastID;

sub exec {
	my ($kernel, $user, $chan, $msg) = @_;
	my ($nick,$mask) = split(/!/,$user);

    if ($msg =~ /^!fav(?: ([0-9]+))?/) {
        $id = ($1) ? $1 : $lastID;

        $commands::fav::dbh = $dbh;
        commands::fav::exec($nick, $id)
	}
	elsif ($msg =~ /^!later(?: ([0-9]+))?(?: in ([0-9]*)?(h|m|s)?)?/) {
        my $id = ($1) ? $1 : $lastID;
        my ($time, $unit) = ($2, $3);

        commands::later::exec ($id, $time, $unit);
	}
    elsif ($msg =~ /^!tag( +([0-9]+))?/) {
        my $id = ($2) ? $2 : $lastID;
        while ($msg =~ /#([a-zA-Z0-9_-]+)/g) {
            addTag($id, $1);
        }
    }
    elsif ($msg =~ /^!help/) {
		$irc->yield(privmsg => $chan => '!fav [<id>] : enregistre la vidéo dans les favoris');
		$irc->yield(privmsg => $chan => '!tag [<id>] <tag1> <tag2> ... : tag la vidéo');
		$irc->yield(privmsg => $chan => '!later [<id>] [in <x>[s|m|h]] : vidéo rappelée par query (par défaut temps de 6h)');
		$irc->yield(privmsg => $chan => 'Sans id précisée, la dernière vidéo postée est utilisée.');
    }
    else {
        return 0;
    }

    return 1;
}

1;