Table ircop&admin v2.0
Contenu du snippet
Version 2.0 de la table ircop&admin
amelioration :
-redimensionage du dialogue
-ajout de samode
Thx
amelioration :
-redimensionage du dialogue
-ajout de samode
Source / Exemple :
;##
;##Table Ircop&admin
;##By DrAgOoN1
;##DrAgOoNlegrand@hotmail.com
;##
;##DIALOG
dialog irc {
title "Commande IRCOP & ADMIN [Par DrAgooN1] V2.0"
size -1 -1 220 226
option dbu
button "Ajouter admin", 1, 140 15 37 12, flat
button "Enlever admin", 2, 140 27 37 12, flat
button "Clear Mode", 3, 140 42 37 12, flat
button "Exeption", 45, 140 57 37 12, flat
button "Global", 5, 140 72 37 12, flat
button "Jupe", 6, 140 87 37 12, flat
button "Killclone", 7, 140 102 37 12, flat
button "Mode", 8, 140 117 37 12, flat
button "Ajouter Oper", 9, 140 132 37 12, flat
button "Enlever oper", 10, 140 144 37 12, flat
button "Add opernews", 11, 178 132 37 12, flat
button "Del opernews", 12, 178 144 37 12, flat
button "Raw", 13, 178 57 37 12, flat
button "Restart", 14, 178 42 37 12, flat
button "Rotatelog", 15, 178 117 37 12, flat
button "Set Readonly", 16, 178 15 37 12, flat
button "Set Debug", 17, 178 27 37 12, flat
button "Shtutdown", 18, 178 72 37 12, flat
button "Stats", 19, 178 87 37 12, flat
button "Update", 20, 178 102 37 12, flat
box "Commandes Serveur", 21, 137 2 81 194
box "Perssones sur le serveur", 22, 3 2 132 116
list 4, 6 13 126 102, size vsbar
box "Action", 24, 3 122 132 75
button "Killer", 25, 7 132 37 12, flat
button "Akiller", 26, 7 144 37 12, flat
button "Rakiller", 27, 7 156 37 12, flat
button "Gliner", 28, 52 132 37 12, flat
button "Ungliner", 29, 52 144 37 12, flat
button "Kliner", 30, 95 132 37 12, flat
button "Unkliner", 31, 95 144 37 12, flat
button "Shunner", 32, 52 156 37 12, flat
button "Unshuner", 33, 95 156 37 12, flat
text "Raison:", 34, 6 186 19 8
edit "", 35, 24 185 107 10, center
button "Fermer", 36, 3 201 215 12, flat cancel
text "Commande IRCOP & ADMIN V2.0 par DrAgOoN1", 37, 3 215 215 8, disable center
button "Aide", 38, 140 160 74 33, flat
button "Samode", 23, 7 171 125 12, flat
}
;##EVENEMENT
on *:dialog:irc:*:*:{
if ($devent == init) {
who
}
if ($devent == sclick) {
if ($did == 23) {
dialog -m sam sam
}
if ($did == 38) {
az
}
if ($did == 25) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
kill $gettok($did(irc,4).seltext,1,32) $did(irc,35)
}
if ($did == 26) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
akill $gettok($did(irc,4).seltext,1,32) $did(irc,35)
}
if ($did == 27) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
rakill $gettok($did(irc,4).seltext,1,32) $did(irc,35)
}
if ($did == 32) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
shun $gettok($did(irc,4).seltext,1,32) $did(irc,35)
}
if ($did == 33) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
unshun - $+ $gettok($did(irc,4).seltext,1,32) $did(irc,35)
}
if ($did == 28) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
gline $gettok($did(irc,4).seltext,1,32) $did(irc,35)
}
if ($did == 29) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
gline $- $?="Entre le mask a degliner"
}
if ($did == 30) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
kline $gettok($did(irc,4).seltext,1,32) $did(irc,35)
}
if ($did == 31) && ($did(irc,4).seltext != $null) && ($did(irc,35) != $null) {
unkline $- $?="Entre le mask a degliner"
}
if ($did == 20) {
/msg operserv UPDATE
}
if ($did == 19) {
/msg operserv STATS all
}
if ($did == 18) {
/msg operserv Shutdowm
}
if ($did == 17) {
/msg operserv SET Debug $?="On ou Off ?"
}
if ($did == 13) {
/msg operserv RAW $?="Text"
}
if ($did == 14) {
/msg operserv RESTART
}
if ($did == 15) {
/msg operserv ROTATELOG
}
if ($did == 16) {
/msg operserv SET readonly $?="On ou Off ?" $?="Numero"
}
if ($did == 9) {
/msg operserv OPER add $?="Pseudo"
}
if ($did == 10) {
/msg operserv OPER del $?="Pseudo"
}
if ($did == 11) {
/msg operserv OPERNEWS add $?="Message"
}
if ($did == 12) {
/msg operserv OPERNEWS del $?="Message"
}
if ($did == 8) {
/msg operserv MODE $?="Canal" $?="Mode"
}
if ($did == 1) {
/msg operserv ADMIN add $?="Entre le Pseudo"
}
if ($did == 2) {
/msg operserv ADMIN del $?="Entre le Pseudo"
}
if ($did == 3) {
/msg operserv CLEARMODES canal $?="Quel mode a reinitialiser?"
}
if ($did == 45) {
/msg operserv EXCEPTION ADD $?="expiration" $?="Masque" $?="Limite"
}
if ($did == 5) {
/msg operserv GLOBAL $?="Message"
}
if ($did == 6) {
/msg operserv JUPE $?="non du server" $?="Raison"
}
if ($did == 7) {
/msg operserv KILLCLONES $?="Entrer le Pseudo"
}
}
}
;##ALIAS
alias ircop dialog -m irc irc
;##RAW
raw 352:*:{
if ($dialog(irc)) {
did -a irc 4 $6 : $6 $+ ! $+ $3 $+ @ $+ $4 *
halt
}
halt
}
;##ALIAS
alias az { dialog -m az az }
;##AIDE
dialog az {
title "Aide V2.0"
size -1 -1 138 143
option dbu
button "Fermer", 2, 3 129 131 12, flat cancel
edit "", 3, 3 19 131 110, read multi
combo 1, 3 5 131 57, size drop
}
;##EVENEMENT
on *:dialog:az:*:*:{
if ($devent == init) {
did -a az 1 Global
did -a az 1 Jupe
did -a az 1 Clearmode
did -a az 1 Shtutdown
did -a az 1 Stats
did -a az 1 Killclone
did -a az 1 set debug
did -a az 1 set Readonly
did -a az 1 Logonnews
did -a az 1 Opernews
did -a az 1 Raw
did -a az 1 Admin
did -a az 1 Rotatelog
did -a az 1 Exeption
did -a az 1 Update
}
if ($devent == sclick) {
if ($did(az,1).seltext == Rotatelog) {
did -ra az 3 Renomme les fichiers logs des services. La date courante, dans la forme YYYYMMDD, est utilisé pour générer le nouveau nom de fichier. Commande uniquement disponible pour le Services Root.
}
if ($did(az,1).seltext == Exeption) {
did -ra az 3 Permets aux administrateurs de services de gérer la liste des hôtes qui ont un nombre de sessions limité - permettant à certaines machines, telles que des serveurs de shell, d'avoir plus de sessions simultanées en tant que client, que la valeur par défaut. Dès qu'un hôte atteint sa limite de sessions, tous les clients tentant de se connecter de cet hôte seront déconnectés (KILL). Avant que l'utilisateur ne soit killé, il est notifié par un /NOTICE de OperServ, avec un message spécifié dans la configuration des services. Commande uniquement disponible pour les administrateurs de services
}
if ($did(az,1).seltext == Update) {
did -ra az 3 Sauvegarde immédiatement les bases de données des services. Commande uniquement disponible pour les administrateurs de services.
}
if ($did(az,1).seltext == global) {
did -ra az 3 Permet aux IRCops d'envoyer des messages à tous les utilisateurs du réseau. Le message sera envoyé par le nick %s.
}
if ($did(az,1).seltext == Admin) {
did -ra az 3 Permet au Services Root, d'ajouter ou d'effacer des nicks dans la liste des administrateurs de services. Un utilisateur qui a son nick présent dans cette liste et qui s'est identifié au près de %s, a accès aux commandes des administrateurs de services. Tous les IRCops peuvent utiliser la commande ADMIN LIST, les autres étant réservées au Services Root.
}
if ($did(az,1).seltext == Opernews) {
did -ra az 3 Edite ou affiche la liste des informations OPER affichées. Lorsqu'un utilisateur devient IRCop, ces informations lui sont envoyées par notice. Pour éviter le flood, seuls les trois premières lui sont envoyées. La liste peut être visualisée par tous les IRCops. Seuls les administrateurs peuvent ajouter et effacer des informations.
}
if ($did(az,1).seltext == Jupe) {
did -ra az 3 Demande aux services de "juper" un serveur -- cela crée un faux "serveur" connecté aux services afin d'empêcher un vrai serveur de ce nom de se connecter. Le jupe peut être enlevé en utilisant la commande standart SQUIT. Si une raison est spécifiée, elle est placée dans le champ information du serveur ; sinon, ce champ contiendra le texte "Jupitered by ", affichant le nick de la personne qui a exécuté la commande. Commande uniquement disponible pour les administrateurs de services
}
if ($did(az,1).seltext == clearmode) {
did -ra az 3 Réinitialise les modes des canaux (i,k,l,m,n,p,s,t) ainsi que les bans. Si ALL est spécifié, la commande réinitialise également les opérateurs et voice (mode +o et +v) du canal. Commande uniquement disponible pour les opérateurs de services
}
if ($did(az,1).seltext == raw) {
did -ra az 3 Envoie une chaîne de caractères directement au serveur auquel sont connectés les services. Cette commande a un intérêt fort limité, et peut causer des problèmes en cas d'utilisation incorrecte. N'UTILISEZ PAS CETTE COMMANDE sans être parfaitement sûr de ce que vous faîtes ! Commande uniquement disponible pour les administrateurs de services.
}
if ($did(az,1).seltext == Logonnews) {
did -ra az 3 Edite ou affiche la liste des informations affichées. Lorsqu'un utilisateur se connecte, ces informations lui sont envoyées par notice. Pour éviter le flood, seuls les trois premières lui sont envoyées. La liste peut être visualisée par tous les IRCops. Seuls les administrateurs peuvent ajouter et effacer des informations.
}
if ($did(az,1).seltext == shtutdown) {
did -ra az 3 Eteint les services après avoir sauvegardé les bases de données. Commande uniquement disponible pour les administrateurs de services.
}
if ($did(az,1).seltext == Stats) {
did -ra az 3 Sans paramètre, la commande affiche le nombre actuel d'utilisateurs et d'IRCops en ligne (sans les services), le plus grand nombre d'utilisateurs en ligne depuis le démarrage des services, et la durée depuis le démarrage.
}
if ($did(az,1).seltext == Set debug) {
did -ra az 3 Active ou non le mode debug. En mode debug, les données envoyées et reçues par les services, ainsi que d'autres informations de débuggage sont écrites dans le fichier log. Si num est spécifié, le mode debug est activé au niveau num. Cette commande est équivalente à l'option en ligne de commande -debug
}
if ($did(az,1).seltext == Set readonly) {
did -ra az 3 Active ou non le mode lecture seule. En mode lecture seule, les utilisateurs ne peuvent pas modifier les données des services, comme les listes d'accès des canaux et des nicks, etc... Les IRCops avec les privilèges suffisants sont capables de modifier la liste AKILL des services, d'effacer ou d'interdire des nicks/canaux, mais ces modifications ne seront pas enregistrées sans que le mode lecture seule soit désactivé avant l'extinction ou le redémarrage des services.
}
if ($did(az,1).seltext == Killclone) {
did -ra az 3 Déconnecte (KILL) tous les utilisateurs qui ont le même nom d'hôte (hotname) que nick. Un AKILL temporaire de la forme *@hôte, est ajouté pour éviter que le fautif se reconnecte immédiatement. Un wallop est automatiquement envoyé pour indiquer qui a utilisé la commande, quel est l'hôte cible et combien d'utilisateurs ont été killés. Cette commande est très utile pour virer de nombreux clones du réseau. Commande uniquement disponible pour les administrateurs de services.
}
}
}
;##SAMODE
alias sam dialog -m sam sam
dialog sam {
title "Samode V2.0"
size -1 -1 84 220
option dbu
list 1, 4 13 74 70, size
box "Perssone sur le chan", 2, 2 4 80 82
button "Op", 3, 5 121 37 12, flat
button "Deop", 4, 42 121 37 12, flat
button "Halfop", 5, 5 133 37 12, flat
button "Dehalfop", 6, 42 133 37 12, flat
button "Voice", 7, 5 145 37 12, flat
button "Devoice", 8, 42 145 37 12, flat
button "Owner", 9, 5 97 37 12, flat
button "Deowner", 10, 42 97 37 12, flat
button "Protect", 11, 5 109 37 12, flat
button "Deprotect", 12, 42 109 37 12, flat
box "", 13, 2 89 80 116
button "Kick", 14, 5 165 37 12, flat
button "Ban", 15, 42 165 37 12, flat
button "Kick/ban", 16, 5 177 74 12, flat
edit "", 17, 25 192 54 10
text "Raison", 18, 6 193 20 8
button "Fermer", 19, 1 207 82 12, flat cancel
}
on *:dialog:sam:*:*:{
if $devent == init {
bla $active
}
if $devent == sclick {
if $did == 3 {
samode $active +o $did(1).seltext
}
if $did === 4 {
samode $active -o $did(1).seltext
}
if $did == 5 {
samode $active +h $did(1).seltext
}
if $did == 6 {
samode $active -o $did(1).seltext
}
if $did == 7 {
samode $active +v $did(1).seltext
}
if $did == 8 {
samode $active -v $did(1).seltext
}
if $did == 9 {
samode $active +q $did(1).seltext
}
if $did == 10 {
samode $active -q $did(1).seltext
}
if $did == 11 {
samode $active +a $did(1).seltext
}
if $did == 12 {
samode $active -a $did(1).seltext
}
if $did == 14 {
kick $active $did(1).seltext $did(17)
}
if $did == 15 {
samode $active +b $did(1).seltext
}
if $did == 16 {
samode $active +b $did(1).seltext
kick $active $did(1).seltext $did(17)
}
}
}
alias bla { if (!$1) { halt } | var %a = 0, %aa = $nick($1,0) | while (%aa > %a) { inc %a 1 | did -a sam 1 $nick($1,%a) } }
Conclusion :
Thx
A voir également
- Table ircop&admin v2.0
- Php table - Conseils pratiques -PHP
- Accueil nouveautés "inscrire un site" contact admin - Forum PHP
- Admin - Forum PHP
- Espace admin ✓ - Forum PHP
- Création d'un compte Admin ✓ - Forum C# / .NET
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.