Accueil > > > XCHAT - TCL - MYSQL ANCIENS PSEUDOS
XCHAT - TCL - MYSQL ANCIENS PSEUDOS
Information sur la source
Description
Quand on est admin, c'est parfois lourd de voir quelqu'un changer de pseudo pour retenter sa chance apres qu'il au pourri sa reputation, ce script l'empechera de faire puisqu'il affiche les anciens pseudos de chaque personne se connectant...
Code tcl
Comatible xchat
mysqltcl requis
la seconde ligne vous permet de configurer vos parametres sql : [mysqlconnect -host localhost -user root]
Source
package require mysqltcl
set db [mysqlconnect -host localhost -user root]
mysqlquery $db {CREATE DATABASE IF NOT EXISTS tcl}
mysqlquery $db {USE tcl}
mysqlquery $db {CREATE TABLE IF NOT EXISTS hosts2nicks(nick VARCHAR(100), host VARCHAR(100));}
on JOIN reqjoin {
splitsrc
if { $_nick != [me] } {
autrenicks $_host $_nick $_dest
}
}
# Ceci alerte chaque fois que quelqu'un join
# Les anciens pseudos et vhosts qu'il a eu.
# si qqn vole un pseudo a qqn, alors le code est fausse..
proc allnick { host liste } {
#donne tout les pseudos qui ont ete associe a un vhost
global db
set query [mysqlquery $db "SELECT trim(nick) as nick FROM hosts2nicks WHERE host=\"$host\""]
mysqlmap $query nick {
if { [inliste $host $nick $liste] == 0 } {
set liste [ addliste $host $nick $liste ]
set liste [ allhosts $nick $liste ]
}
}
mysqlendquery $query
return $liste
}
proc allhosts { nick liste } {
#donne tout les vhosts qui ont ete associes a un pseudo
global db
set query [mysqlquery $db "SELECT host FROM hosts2nicks WHERE nick=\"$nick\"" ]
mysqlmap $query host {
if { [inliste $host $nick $liste] == 0 } {
set liste [ addliste $host $nick $liste ]
set liste [ allnick $host $liste ]
}
}
mysqlendquery $query
return $liste
}
proc addliste { host nick liste } {
#ajoute quelqu'un dans la liste des gens selectiones pour l'affichage
set var "[string trim $nick]"
lappend liste $var
return $liste
}
proc inliste { host nick liste } {
#dit si qqn a deja ete selectione
set var "[string trim $nick]"
foreach { each } $liste {
if { $each == $var } {
return 1
}
}
return 0
}
proc noalreadyregister { nick host } {
#dit si qqn a deja ete enregistre avec un pseudo et un vhost
global db
set query [mysqlquery $db "SELECT 1 FROM hosts2nicks WHERE nick=\"$nick\" AND host=\"$host\"" ]
mysqlmap $query nombre { return 1 }
mysqlendquery $query
return 0
}
proc enregnickhosts { nick host } {
#enregistre un pseudo et un vhost dans la base
global db
if { ! [noalreadyregister $nick $host] } {
mysqlquery $db "INSERT INTO hosts2nicks SET nick=\"$nick\", host=\"$host\""
}
}
proc noserv { hash } {
set r {^(.*@)?([^\-]*)(\-?.*)$}
if { [ regexp $r $hash m ] } {
regexp $r $hash s top serveur clients
if { $clients == "" } {
return $serveur
} else {
return $clients
}
} else {
return $hash
}
}
proc autrenicks { _host _nick _dest } {
#affiche lors de la connexion tout les pseudos et vhosts associes a une personne.
if { [can_ghost $_host ] } {
set _host [noserv $_host]
enregnickhosts $_nick $_host
set liste [ allnick $_host [ list ] ]
set liste [ allhosts "$_nick " $liste ]
if { [llength $liste] > 1 } {
print $_dest [join $liste " "]
} else {
#print $_dest "un seul login et host"
}
}
}
alias autres {
#commande pour chercher qqn
set liste [ allhosts $_rest [list ] ]
print [join $liste " "]
}
alias register__ {
#commande pour enregistrer qqn
set a [split $_rest " "]
set nick [lindex $a 0]
set host [noserv [lindex $a 1] ]
if { ! [noalreadyregister $nick $host ] } {
print "nick : $nick host : $host"
enregnickhosts $nick $host
}
}
Conclusion
sur certains serveurs, ils ips sont formates bizarements, les regexp que j'ai places ne seront pas forcement les bonnes pour vos serveurs favoris...
j'utilise ca sur irc.heliosnet.org #programmation le chan officiel de codes-sources entre autre
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
$nick si $nick ds un .txt ? [ par PiZZaMaN ]
BonjourJ'ai fait un antipv, et g mi un truc pr ne pas bloquer les pv de certains pseudos. J'ai mis ces pseudos ds un fichier .txt (pour rajouter les
vhost [ par Lonsdale^ ]
salut,voila si kk1 pouvais me filer 1 liste de vhost (gratos) merci :)
Probleme pour creer un script [ par Ricomat03 ]
Bonjour tout le monde.Il y a assez longtemps j'ai fait un script bien nul pour changer de pseudos rapidement et facilement.Voila le script (je l'ai m
vhost avec domain [ par Solisoft ]
salut,On m'as dit qu'il etais possible d'avoir son nom de domain dans le vhost sans pour autant avoir 1 bnc,Si on m'as bien renseigné et que cela es p
Domaine-Vhost [ par Solisoft ]
SalutVoila j'ai loué mon nom de domaine, j'ai vu qu'il etais possible de l'avoir dans son vhost, pas en utilisant 1 bnc avec 1 vhost perso. mais c'est
Alias pr Unreal [ par MaX_62 ]
Bonjour,Est ce que quelqu'un aurait une solution pour un alias dans ma unrealircd.conf ? L'alias serait /vhost-public et la commande serait /vhost Un-
Grades et pseudos [ par XavSniper ]
Salut tout le monde Je voudrait savoir comment on ajoute le grade d'un pseudo, pour le mettre a coté du pseudo quand on écrit sur le chan. P
Détécteur de clones, un peu spécial.. [ par GforceFX ]
Bonjour, j'aimerai fait un détécteur de clones qui se base sur le /userip de la personne, étant donné que dans un whois, si la per
Modération pseudos [ par rush974 ]
Bjr,Je suis à la recherche d'un script qui détecte l'arrivée d'un pseudo interdit avec possibilté de kick-ban d'office avec raison
Sonne si nickname parle dans une fenetre de chat [ par charly42 ]
Bonjour à tous.J'aimerai que cela sonne quand un nickname spécifique dit quelque chose en salle, ou dans une fenêtre de chat quelconque.Comment faire?
|
Derniers Blogs
[ASP.NET] NE PAS SE FAIRE AVOIR PAR IHTTPMODULE ET SA MéTHODE INIT()[ASP.NET] NE PAS SE FAIRE AVOIR PAR IHTTPMODULE ET SA MéTHODE INIT() par tja
Beaucoup de développeurs pensent que lorsqu'on créé et enregistre un IHttpModule, il n'en existe qu'une seule instance et la méthode Init() sera appelée qu'une fois.
C'est faux
Cela peut vraiment créer des bugs subtils dont en ne se rend pas compte ...
Cliquez pour lire la suite de l'article par tja [MSTD10] SHAREPOINT 2010 ET TEAM FOUNDATION SERVER[MSTD10] SHAREPOINT 2010 ET TEAM FOUNDATION SERVER par phil
Un post rapide pour vous informer de la disponibilité de la vidéo de ma présentation sur SharePoint 2010 & Team Foundation Server. http://www.microsoft.com/france/vision/mstechdays10/Webcast.aspx?EID=20215d48-02e3-4d43-8c36-e53505c3b316 Dans la ...
Cliquez pour lire la suite de l'article par phil [MSTD10] SQL SERVER 2008 POUR LES DéVELOPPEURS ET VISUAL STUDIO TEAM SYSTEM DATABASE EDITION[MSTD10] SQL SERVER 2008 POUR LES DéVELOPPEURS ET VISUAL STUDIO TEAM SYSTEM DATABASE EDITION par Miiitch
Lors de cette session que j'ai animé avec Rui , j'ai eu l'occasion de présenter, en plus des nouveautés de SQL Server 2008, comment utiliser l'édition "database" de Visual Studio 2008. Le principe? Avoir les mêmes outils lors que l'on travaille avec une b...
Cliquez pour lire la suite de l'article par Miiitch [WF4] LOCALISER SIMPLEMENT UNE ACTIVITé ET SON DESIGNER WPF[WF4] LOCALISER SIMPLEMENT UNE ACTIVITé ET SON DESIGNER WPF par JeremyJeanson
La localisation . vous connaissez ce system miraculeux qui permet à votre application de s'afficher dans la langue de l'utilisateur (à condition de l'avoir intégrée dans votre programme). Comment mettre en place la localisation dans WF4? Cette question m'...
Cliquez pour lire la suite de l'article par JeremyJeanson [TECHDAYS 2010] WEBCASTS ET SLIDES[TECHDAYS 2010] WEBCASTS ET SLIDES par Audrey
Les webcasts des sessions des Techdays 2010 sont maintenant disponibles en ligne ! Me concernant, voici les slides et le webcast de la session Blend 3 / Skechtflow : Dessinez c'est gagné ! (animée avec Michel Perfetti ) Les slides et le webcast : Blend 3/...
Cliquez pour lire la suite de l'article par Audrey
Forum
INSTALLATION ANOPEINSTALLATION ANOPE par Julien5786
Cliquez pour lire la suite par Julien5786
Logiciels
Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods Konvertor (4.00)KONVERTOR (4.00)Le logiciel est un gestionnaire multimedia affichant, jouant et convertissant plus de 2000 format... Cliquez pour télécharger Konvertor Xlite (v 3.0 build 41150)XLITE (V 3.0 BUILD 41150)c'est un logiciel qui permet de téléphoner par Internet à l'aide d'un compte SIP pratique pour le... Cliquez pour télécharger Xlite Academy System (10.9.3.0)ACADEMY SYSTEM (10.9.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|