Skip to content
Extraits de code Groupes Projets
Valider 71c1c21d rédigé par Alexandre Morignot's avatar Alexandre Morignot
Parcourir les fichiers

New module commands::tag

parent 56760c55
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
...@@ -101,18 +101,6 @@ sub flux ...@@ -101,18 +101,6 @@ sub flux
} }
sub addTag
{
my ($id, $tag) = @_;
my $sth = $dbh->prepare_cached('INSERT INTO playbot_tags (id, tag) VALUES (?, ?)');
$log->error("Couldn't prepare querie; aborting") unless (defined $sth);
$sth->execute($id, $tag)
or $log->error("Couldn't finish transaction: " . $dbh->errstr);
}
sub later sub later
{ {
my ($nick, $id) = @_[ARG0,ARG1]; my ($nick, $id) = @_[ARG0,ARG1];
...@@ -303,17 +291,8 @@ sub on_speak ...@@ -303,17 +291,8 @@ sub on_speak
$lastID = $id; $lastID = $id;
$commands::parser::lastID = $id; $commands::parser::lastID = $id;
# insertion des éventuels tags # insertion des éventuels tags
while ($msg =~ /#([a-zA-Z0-9_-]+)/g) { commands::parser::tag($msg);
if ($debug) {
$log->debug($1);
next;
}
addTag ($lastID, $1);
}
# message sur irc # message sur irc
if (defined $content{'author'}) { if (defined $content{'author'}) {
......
...@@ -38,11 +38,10 @@ sub exec { ...@@ -38,11 +38,10 @@ sub exec {
commands::later::exec($id, $time, $unit); commands::later::exec($id, $time, $unit);
} }
elsif ($msg =~ /^!tag( +([0-9]+))?/) { elsif ($msg =~ /^!tag(?: +([0-9]+))?/) {
my $id = ($2) ? $2 : $lastID; my $id = ($1) ? $1 : $lastID;
while ($msg =~ /#([a-zA-Z0-9_-]+)/g) {
addTag($id, $1); commands::tag($id, $msg);
}
} }
elsif ($msg =~ /^!help/) { elsif ($msg =~ /^!help/) {
$irc->yield(privmsg => $chan => '!fav [<id>] : enregistre la vidéo dans les favoris'); $irc->yield(privmsg => $chan => '!fav [<id>] : enregistre la vidéo dans les favoris');
...@@ -57,4 +56,10 @@ sub exec { ...@@ -57,4 +56,10 @@ sub exec {
return 1; return 1;
} }
sub tag {
my ($msg) = @_;
commands::tag($lastID, $msg);
}
1; 1;
package commands::later;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(exec);
our $kernel;
our $dbh;
sub exec {
my ($id, $msg) = @_;
while ($msg =~ /#([a-zA-Z0-9_-]+)/g) {
addTag($id, $1);
}
}
sub addTag
{
my ($id, $tag) = @_;
my $sth = $dbh->prepare_cached('INSERT INTO playbot_tags (id, tag) VALUES (?, ?)');
$log->error("Couldn't prepare querie; aborting") unless (defined $sth);
$sth->execute($id, $tag)
or $log->error("Couldn't finish transaction: " . $dbh->errstr);
}
1;
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter