Masques utilisateurs

[CrazyCat]

J'ai retrouvé plus ou moins par hasard une procédure très pratique pour générer des masks (pour le ban ou pour ajouter un utilisateur dans un eggdrop) faite par MC_8.

Je la mets ici pour pense-bête, sachant que je prépare un package "cc.alltools" qui contiendra toutes les procédures très pratiques qu'on utilise fréquement.

tclcopier

#- masktype{} is based upon the original by MC_8
# returns a modified mask (to add user, ban user, ...)
proc masktype {uhost type} {
    # 0 = *!user@host.domain
    # 1 = *!*user@host.domain
    # 2 = *!*@host.domain
    # 3 = *!*user@*.domain
    # 4 = *!*@*.domain
    # 5 = nick!user@host.domain
    # 6 = nick!*user@host.domain
    # 7 = nick!*@host.domain
    # 8 = nick!*user@*.domain
    # 9 = nick!*@*.domain
    # 10 = nick*!*@*.domain
    # 11 = regular eggdrop mask
    set masked [maskhost $uhost]
    set nick [string range $uhost 0 [expr [string first ! $uhost] - 1]]
    switch -- $type {
      0 {set ban "*[string range $uhost [string first ! $uhost] e]"}
      1 {set ban "*!*[string trimleft [string range $uhost [expr [string first ! $uhost] + 1] e] "~"]"}
      2 {set ban "*!*[string range $uhost [string first @ $uhost] e]"}
      3 {set ident [string range $uhost [expr [string first ! $uhost] + 1] [expr [string last @ $uhost] - 1]] ; set ban "*!*[string trimleft $ident ~][string range $masked [string first @ $masked] e]"}
      4 {set ban "*!*[string range $masked [string last @ $masked] e]"}
      5 {set ban $uhost}
      6 {set ident [string range $uhost [expr [string first ! $uhost] + 1] [expr [string last @ $uhost] - 1]] ; set ban "$nick!*[string trimleft $ident ~][string range $uhost [string last @ $uhost] e]"}
      7 {set ban "$nick!*[string range $uhost [string last @ $uhost] e]"}
      8 {set ident [string range $uhost [expr [string first ! $uhost] + 1] [expr [string last @ $uhost] - 1]] ; set ban "$nick!*[string trimleft $ident ~][string range $masked [string last @ $masked] e]"}
      9 {set ban "$nick!*[string range $masked [string last @ $masked] e]"}
      10 {set ban "$nick*!*[string range $masked [string last @ $masked] e]"}
      default {set ban "*!*[string range $uhost [string first @ $uhost] e]"}
    }
    return $ban
}

Enjoy it !

[CrazyCat]

Petit edit: j'ai supprimé des parties inutiles et ajouté un masque (le 10)

[Marc]

Et le mask (11) ?

[CrazyCat]

Le masque par défaut. Mais je crois que j'ai un peu trop nettoyé le code, je revois ça très vite

[CrazyCat]

Je remonte ce sujet très très très ancien pour signaler que le wiki est à jour avec les docs sur maskhost, newban et newchanban, ce qui rend ce fil de discussion obsolète.