Skip to content
GitLab
Explorer
Connexion
Navigation principale
Rechercher ou aller à…
Projet
P
PlayBot
Gestion
Activité
Membres
Labels
Programmation
Tickets
Tableaux des tickets
Jalons
Wiki
Wiki externe
Code
Requêtes de fusion
Dépôt
Branches
Validations
Étiquettes
Graphe du dépôt
Comparer les révisions
Déploiement
Releases
Registre de modèles
Surveillance
Incidents
Analyse
Données d'analyse des chaînes de valeur
Analyse des contributeurs
Données d'analyse du dépôt
Expériences du modèle
Aide
Aide
Support
Documentation de GitLab
Comparer les forfaits GitLab
Forum de la communauté GitLab
Contribuer à GitLab
Donner votre avis
Raccourcis clavier
?
Extraits de code
Groupes
Projets
Afficher davantage de fils d'Ariane
Alexandre MORIGNOT
PlayBot
Validations
71c1c21d
Valider
71c1c21d
rédigé
Il y a 11 ans
par
Alexandre Morignot
Parcourir les fichiers
Options
Téléchargements
Correctifs
Plain Diff
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
Modifications
3
Afficher les modifications d'espaces
En ligne
Côte à côte
Affichage de
3 fichiers modifiés
PlayBot.pl
+1
-22
1 ajout, 22 suppressions
PlayBot.pl
lib/commands/parser.pm
+10
-5
10 ajouts, 5 suppressions
lib/commands/parser.pm
lib/commands/tag.pm
+28
-0
28 ajouts, 0 suppression
lib/commands/tag.pm
avec
39 ajouts
et
27 suppressions
PlayBot.pl
+
1
−
22
Voir le fichier @
71c1c21d
...
@@ -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
'})
{
...
...
Ce diff est replié.
Cliquez pour l'agrandir.
lib/commands/parser.pm
+
10
−
5
Voir le fichier @
71c1c21d
...
@@ -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
;
Ce diff est replié.
Cliquez pour l'agrandir.
lib/commands/tag.pm
0 → 100644
+
28
−
0
Voir le fichier @
71c1c21d
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
;
Ce diff est replié.
Cliquez pour l'agrandir.
Aperçu
0%
Chargement en cours
Veuillez réessayer
ou
joindre un nouveau fichier
.
Annuler
You are about to add
0
people
to the discussion. Proceed with caution.
Terminez d'abord l'édition de ce message.
Enregistrer le commentaire
Annuler
Veuillez vous
inscrire
ou vous
se connecter
pour commenter