Blacklist pseudos/masks

Commenter

Contenu du snippet

Cette black-list utilise un fichier ini, permet d'ajouter des pseudos ou masks et autorise des exceptions de chans. Elle est désactivable à tout moment.
Il est possible de supprimer/lister des entrées, des numéros dans la liste ou même des plages de numéros
L'aide est inclue ( !bl ) et il y a des indications supplémentaire à lire en début de code
Elle ne fonctionne que si vous êtes @ et le ban se fait sur le pseudo/mask contenu dans la liste, on join.

Source / Exemple : 


;Remote de blacklist (aide/1ère utilisation => taper: !bl IMPÉRATIVEMENT),
;kick+ban d'après le mask(*!*@*) ou pseudo fourni sur les chans où l'on est @, exceptions possibles, fonctionne ON JOIN
;alt+R puis ouvrir un nouveau fichier dans son script pour la charger
;utilisable silencieusement à travers d'autres scripts avec les alias /addbl /delbl /setbl /clearbl
;les hosts/pseudos sont stockés dans le fichier configuration.ini, créé automatiquement.

#bl on
;-Partie détection:
on !@*:join:#:{ 
  if ( $readini(configuration.ini,blackliste,status) == on && $ini(configuration.ini,bliste,0) ) {
    var %k = 1
    while ( %k <= $ini(configuration.ini,bliste,0) ) { 
      if ( $ini(configuration.ini,bliste,%k) iswm $address($nick,5) ) {
        var %chansbl = $wildtok($readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%k)),[*],1,32)
        if ( $+([,$chr(35),]) isin %chansbl || ( $+(-,$chan) !isin %chansbl && $+([,-) isin %chansbl ) || ( $chan isin %chansbl && $+(-,$chan) !isin %chansbl ) ) {
          kick # $nick $gettok($readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%k)),1,91)
          mode # -e+b $$ini(configuration.ini,bliste,%k) $$ini(configuration.ini,bliste,%k)
        }
      }
      inc %k
    }
  }
}
;-Partie gestion de la liste:
on *:input:*: {
  if ( $1 == !bl ) { haltdef | bl $2 | if ( !$isfile(configuration.ini) ) { clearbl } }
  elseif ( $1 == !listbl ) { haltdef | listbl $2- }
  elseif ( $1 == !clearbl ) { haltdef | set %noticebl on | clearbl }
  elseif ( $1 == !setbl ) { haltdef | set %noticebl on | setbl $2 }
  elseif ( $1 == !addbl ) { haltdef | set %noticebl on | addbl $2- }
  elseif ( $1 == !delbl ) { haltdef | set %noticebl on | delbl $2- }
}
alias setbl {
  if ( !$istok(on off echo pv,$1,32) ) { .notice $me Syntaxe erronée, taper !bl }
  elseif ( $1 == $readini(configuration.ini,blackliste,status) || $1 == $readini(configuration.ini,blackliste,mode) ) { if ( %noticebl == on ) { .notice $me C'est déjà le cas! } } 
  elseif ( $istok(on off,$1,32) ) { writeini configuration.ini blackliste status $1 | if ( %noticebl == on ) { .notice $me blacklist $replace($readini(configuration.ini,blackliste,status),on,activée!,off,désactivée) } }
  else { writeini configuration.ini blackliste mode $1 | if ( %noticebl == on ) { .notice $me blacklist $replace($readini(configuration.ini,blackliste,mode),pv,avec liste en pv,echo,avec liste en echo) } } 
  unset %noticebl 
}
alias clearbl {
  .remini configuration.ini blackliste
  .remini configuration.ini bliste
  .fopen -on configuration configuration.ini
  .fwrite -n configuration [blackliste]
  .fwrite -n configuration status=on
  .fwrite -n configuration masks=
  .fwrite -n configuration mode=pv
  .fwrite -n configuration [bliste]
  .fclose configuration
  if ( %noticebl == on ) { .notice $me Blacklist effacée (et sur "activée", liste en "pv"), fichier réinitialisé. }
  unset %noticebl
}
alias addbl {
  if ( !$2 || $chr(35) isin $2 ) { if ( %noticebl == on ) { .notice $me il faut au moins un mask et une raison (taper !bl pour revoir la syntaxe) } }
  else {
    var %mask = $1 , %raison = $2- 
    if ( !$wildtok(%raison,[*],1,32) ) { var %raison = $+(%raison,$chr(32),[,$chr(35),]) }
    if ( $chr(33) !isin %mask && $chr(64) !isin %mask ) { var %mask = $+(%mask,!*@*) }
    if ( !$istok($readini(configuration.ini,blackliste,masks),%mask,32) ) { writeini configuration.ini blackliste masks $+($readini(configuration.ini,blackliste,masks),$chr(32),%mask) | if ( %noticebl == on ) { .notice $me Mask %mask ajouté avec succès } }
    elseif ( %noticebl == on ) { .notice $me ban modifié avec succès }
    writeini configuration.ini bliste %mask %raison $asctime(HH:nn-dd/mm/yy)
  }
  unset %noticebl
}
alias delbl { 
  var %black = 1
  while ( %black <= $numtok($1-,32) ) {
    if ( $istok($readini(configuration.ini,blackliste,masks),$gettok($1-,%black,32),32) ) { var %blackyes = $+(%blackyes,$chr(32),$gettok($1-,%black,32)), %while = on }
    elseif ( $istok($readini(configuration.ini,blackliste,masks),$+($gettok($1-,%black,32),!*@*),32) ) { var %blackyes = $+(%blackyes,$chr(32),$+($gettok($1-,%black,32),!*@*)), %while = on } 
    elseif ( $gettok($1-,%black,32) isnum $+(1-,$ini(configuration.ini,bliste,0)) ) { var %blackyes = $+(%blackyes,$chr(32),$ini(configuration.ini,bliste,$gettok($1-,%black,32))), %while = on }
    elseif ( $chr(45) isin $1 ) { 
      var %inf = $gettok($gettok($1-,%black,32),1,45)
      var %sup = $gettok($gettok($1-,%black,32),2,45)
      if ( %inf isnum $+(1-,$ini(configuration.ini,bliste,0)) && %sup isnum $+(1-,$ini(configuration.ini,bliste,0)) && %inf < %sup ) {
        var %i = %inf
        while ( %i <= %sup ) {
          var %blackyes = $+(%blackyes,$chr(32),$ini(configuration.ini,bliste,%i))
          inc %i
        }
        var %j = 1
        var %while = on
      }
    }
    else { var %blackno = $+(%blackno,$chr(32),$gettok($1-,%black,32)) }

    inc %black
  }
  if ( %while = on ) {
    var %j = 1
    while ( %j <= $numtok(%blackyes,32) ) {
      remini configuration.ini bliste $gettok(%blackyes,%j,32)
      if ( $remtok($readini(configuration.ini,blackliste,masks),$gettok(%blackyes,%j,32),1,32) ) { writeini configuration.ini blackliste masks $remtok($readini(configuration.ini,blackliste,masks),$gettok(%blackyes,%j,32),1,32) }
      else { write -wmasks=* configuration.ini masks= }
      inc %j
    }
  }
  if ( %blackno ) { var %blackno = $+(Mask(s) absent(s) de la liste:,$chr(32),%blackno) }
  if ( %blackyes ) { var %blackyes = $+(Entrée(s) supprimée(s):,$chr(32),%blackyes) }
  if ( !%blackyes && !%blackno && %noticebl == on ) { .notice $me syntaxe error / mask absent, taper !bl }
  elseif ( %noticebl == on ) { .notice $me %blackno . %blackyes }
  unset %noticebl
}  
alias -l listbl {
  var %inf = $gettok($1-,1,45), %sup = $gettok($1-,2,45)
  if ( !$1 || ( ( $chr(45) isin $1 ) && ( %inf isnum $+(1-,$ini(configuration.ini,bliste,0)) && %sup isnum $+(1-,$ini(configuration.ini,bliste,0)) && %inf < %sup ) ) ) { 
    if ( !%inf || !%sup ) { var %inf = 1 | var %sup = $ini(configuration.ini,bliste,0) }
    var %i = %inf
    if ( $readini(configuration.ini,blackliste,mode) == pv ) { 
      .notice $me $+(12,$calc( %sup - %inf + 1 ),$chr(32),entrées (en pv))
      .msg $me Blacklist: $replace($readini(configuration.ini,blackliste,status),on,10activée,off,4désactivée) avec $+(12,$calc( %sup - %inf + 1 ),$chr(32),entrées sur,$chr(32),$ini(configuration.ini,bliste,0),,:) $+([,%inf,-,%sup,])
      while ( %i <= %sup ) {
        .msg $me $+(%i,$str($chr(160),$calc( 3 - $len(%i) )),$chr(3),12,$$ini(configuration.ini,bliste,%i),$chr(160),$chr(160),$chr(3),03,$readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%i)))
        inc %i
      }
    }
    else {
      echo -a > Blacklist: $replace($readini(configuration.ini,blackliste,status),on,10activée,off,4désactivée) avec $+(12,$calc( %sup - %inf + 1 ),$chr(32),entrées sur,$chr(32),$ini(configuration.ini,bliste,0),,:) $+([,%inf,-,%sup,])
      while ( %i <= %sup ) {
        echo -a $+(%i,$str($chr(160),$calc( 3 - $len(%i) )),$chr(3),12,$$ini(configuration.ini,bliste,%i),$chr(160),$chr(160),$chr(3),03,$readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%i)))
        inc %i
      }
    }
  }
  elseif ( $istok($readini(configuration.ini,blackliste,masks),$1,32) ) { .notice $me $1 : $readini(configuration.ini,bliste,$1) }
  elseif ( $istok($readini(configuration.ini,blackliste,masks),$+($1,!*@*),32) ) { .notice $me $+($1,!*@*) : $readini(configuration.ini,bliste,$+($1,!*@*)) }
  elseif ( $1 == quick ) { .notice $me $+(12,$ini(configuration.ini,bliste,0),) entrée(s) - $readini(configuration.ini,blackliste,masks) }
  else { .notice $me syntaxe error / mask absent, taper !bl }
}
alias -l bl {
  if ( !$1 ) { .notice $me 12,00Blacklist par UtopiK $replace($readini(configuration.ini,blackliste,status),on,10activée!,off,05désactivée) $replace($readini(configuration.ini,blackliste,mode),pv,avec liste en 12pv,echo,avec liste en 12echo) | .notice $me Liste des commandes: 6!addbl !delbl 6!listbl !clearbl 6!setbl $chr(124) Pour plus d'aide: !bl commande Ex: !bl addbl (et non: !bl !addbl) $chr(124) Pour désactiver taper: 06!setbl off $chr(124) En cas de bug, faire: !clearbl } 
  elseif ( $1 == addbl ) { .notice $me Commande pour ajouter/modifier une entrée dans la blacklist: 6!addbl *bob* malpoli ! $chr(124) Autre exemple, avec une exception de chan (marchera sur les chans #chan1 et #chan2 uniquement): 6!addbl *!*@*blabla.net pas de proxy merci #chan1,#chan2 $chr(124) Un dernier (blacklist sur tous les chans, sauf #chan1 et #chan2): 6!addbl *!grosboulet@* persona non grata [-#chan1,-#chan2] $chr(124) Eviter les crochets [] dans le motif }
  elseif ( $1 == delbl ) { .notice $me Commande pour supprimer des entrées dans la blacklist: 6!delbl *bob* $chr(124) 6!delbl *bob* *!*@*blabla.net $chr(124) Vous pouvez utiliser des numéros: 6!delbl 1 (supr la 1ère entrée de la liste) ou 6!delbl 1 14 32 ou même des plages: 6!delbl 2-12 }
  elseif ( $1 == listbl ) { .notice $me Commande pour lister les entrées dans la blacklist: 6!listbl ou pour en avoir juste une partie: 6!listbl 6-10 ou une version en une ligne sans détails: 6!listbl quick $chr(124) Pour voir si un mask est dans la blacklist: 6!listbl *bob* }
  elseif ( $1 == clearbl ) { .notice $me Commande pour effacer la blacklist et réparer le fichier de la liste en cas de bug: 6!clearbl }
  elseif ( $1 == setbl ) { .notice $me Commande pour configurer la blacklist. Activer/désactiver: 6!setbl on ou 6!setbl off (elle n'est pas effacée) $chr(124) Liste en écho ou par pv: 6!setbl pv ou 6!setbl echo }
  else { .notice $me Commande inconnue / Mauvaise syntaxe - rééssayer !bl }
}

;tant que vous toucherez avec les yeux, y'a des chances que ça marche :) - il est inutil de remplacer mon pseudo par le votre ci dessus.
#bl end

Conclusion :


j'ai posté cette source plus pour avoir des conseils d'optimisation/amélioration que pour la source elle même, qui doit être du vu et revu

A voir également

S'inscrire maintenant

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.