Skip to content
GitLab
Explorer
Connexion
Navigation principale
Rechercher ou aller à…
Projet
Maman
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
Extraits de code
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
Romain COLTEL
Maman
Validations
52e8d899
Valider
52e8d899
rédigé
Il y a 11 ans
par
TC
Parcourir les fichiers
Options
Téléchargements
Correctifs
Plain Diff
Disambiguation (changement de noms de variables quoi)
parent
74c226df
Branches
Branches contenant la validation
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
Modifications
1
Afficher les modifications d'espaces
En ligne
Côte à côte
Affichage de
1 fichier modifié
Core/EventHandler.pm
+19
-19
19 ajouts, 19 suppressions
Core/EventHandler.pm
avec
19 ajouts
et
19 suppressions
Core/EventHandler.pm
+
19
−
19
Voir le fichier @
52e8d899
...
...
@@ -24,9 +24,9 @@ sub add_event
# ###
sub
_register_event
{
my
(
$event
,
$when
,
$ref_function
,
$ref_obj
)
=
@_
;
my
(
$event
_type
,
$when
,
$ref_function
,
$ref_obj
)
=
@_
;
return
0
unless
(
defined
(
$event
)
and
defined
(
$when
)
and
defined
(
$ref_function
));
return
0
unless
(
defined
(
$event
_type
)
and
defined
(
$when
)
and
defined
(
$ref_function
));
if
(
$when
!~
/^before$/i
&&
$when
!~
/^after$/i
)
{
...
...
@@ -34,9 +34,9 @@ sub _register_event
return
0
;
}
unless
(
defined
(
$changed_events
{
$event
}))
unless
(
defined
(
$changed_events
{
$event
_type
}))
{
$changed_events
{
$event
}
=
{
$changed_events
{
$event
_type
}
=
{
'
before
'
=>
[]
,
'
after
'
=>
[]
,
'
default
'
=>
undef
...
...
@@ -44,7 +44,7 @@ sub _register_event
}
# Ajout de la fonction[+objet] à la liste pour cet évènement
push
@
{
$changed_events
{
$event
}{
lc
$when
}},
[
$ref_function
,
$ref_obj
];
push
@
{
$changed_events
{
$event
_type
}{
lc
$when
}},
[
$ref_function
,
$ref_obj
];
return
1
;
}
# Fin _register_event
...
...
@@ -56,24 +56,24 @@ sub _register_event
# ###
sub
_do_change_event
{
my
$event
=
shift
;
my
$event
_type
=
shift
;
return
0
unless
(
defined
(
$event
));
return
0
unless
(
defined
(
$event
_type
));
# Changement (ou rien du tout si on est déjà passé par là pour cet event)
# de la fonction pour cet évènement
if
(
defined
(
$
Hook::
conn
->
{
_handler
}
->
{
$event
}))
if
(
defined
(
$
Hook::
conn
->
{
_handler
}
->
{
$event
_type
}))
{
my
$may_default
=
$
Hook::
conn
->
{
_handler
}
->
{
$event
}
->
[
0
];
my
$may_default
=
$
Hook::
conn
->
{
_handler
}
->
{
$event
_type
}
->
[
0
];
if
(
$may_default
ne
\
&dispatch_event
)
{
$changed_events
{
$event
}{'
default
'}
=
$may_default
;
$
::
logger
->
debug
("
Registering default action for event
$event
");
$changed_events
{
$event
_type
}{'
default
'}
=
$may_default
;
$
::
logger
->
debug
("
Registering default action for event
$event
_type
");
}
}
$
::
logger
->
info
("
Catching event
$event
from now on
");
$
Hook::
conn
->
{
_handler
}
->
{
$event
}
=
[
\
&dispatch_event
,
0
];
$
::
logger
->
info
("
Catching event
$event
_type
from now on
");
$
Hook::
conn
->
{
_handler
}
->
{
$event
_type
}
=
[
\
&dispatch_event
,
0
];
return
1
;
}
# Fin _do_change_event
...
...
@@ -85,7 +85,7 @@ sub _do_change_event
# ###
sub
remove_event
{
my
(
$event
,
$when
,
$ref_fn
,
$ref_obj
)
=
@_
;
my
(
$event
_type
,
$when
,
$ref_fn
,
$ref_obj
)
=
@_
;
if
(
$when
!~
/^before$/i
&&
$when
!~
/^after$/i
)
{
...
...
@@ -93,21 +93,21 @@ sub remove_event
return
0
;
}
if
(
defined
(
$changed_events
{
$event
}))
if
(
defined
(
$changed_events
{
$event
_type
}))
{
my
@new_list
=
();
foreach
my
$hdls
(
@
{
$changed_events
{
$event
}{
lc
$when
}})
foreach
my
$hdls
(
@
{
$changed_events
{
$event
_type
}{
lc
$when
}})
{
push
@new_list
,
$hdls
unless
(
$hdls
->
[
0
]
==
$ref_fn
&&
$hdls
->
[
1
]
==
$ref_obj
);
}
$changed_events
{
$event
}{
lc
$when
}
=
\
@new_list
;
$
::
logger
->
info
("
One handler for
$event
event removed
");
$changed_events
{
$event
_type
}{
lc
$when
}
=
\
@new_list
;
$
::
logger
->
info
("
One handler for
$event
_type
event removed
");
}
else
{
$
::
logger
->
error
("
No record for th
is
event here
");
$
::
logger
->
error
("
No record for th
e
$event_type
event here
");
return
0
;
}
...
...
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