Skip to content
Extraits de code Groupes Projets
Valider ec48296f rédigé par Animation des soirees's avatar Animation des soirees
Parcourir les fichiers

BRUTALE

parent 66326e0b
Branches
Étiquettes
Aucune requête de fusion associée trouvée
......@@ -102,6 +102,11 @@ sub exec {
$irc->yield(privmsg => $chan => $irc_msg);
# BRUTALE
if ($content->{'id'} eq 9320) {
$irc->yield(privmsg => $chan => 'BRUUUTALEEEEEEEEEEEEEE');
}
# we save the get like a post
$sth = $dbh->prepare('
INSERT INTO playbot_chan (content, chan, sender_irc)
......
......@@ -19,6 +19,11 @@ sub addTag
{
my ($id, $tag) = @_;
# BRUTALE
if ($id eq 9320) {
return;
}
my $sth;
$sth = $dbh->prepare('INSERT INTO playbot_tags (id, tag) VALUES (?, ?)');
......
......@@ -25,7 +25,11 @@ sub print
{
my ($content) = @_;
my $msg = YELLOW.'['.$content->{'id'}.'] '.GREEN.$content->{'title'};
my $id = $content->{'id'};
# BRUTALE
$id = 'BRUTALE' if ($id eq 9320);
my $msg = YELLOW.'['.$id.'] '.GREEN.$content->{'title'};
if (defined $content->{'author'})
{
......
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