egghelp/eggheads community

change output of banmask checker

2022-05-01T13:10:51-04:00

Thanks SpiKe^^ for correcting it ive tested it and it seems to work as expected thanks for that much apreciated

Statistics: Posted by simo — Sun May 01, 2022 1:10 pm

Pub: BanMask-Tester v0.3

2022-05-01T01:44:23-04:00

Well, I don't think I would put the sort in the foreach loop. Try this one...

Code:

####  Pub: BanMask-Tester v0.3  #### bind pub n !ipcheck Pub:BanMask-Testerproc Pub:BanMask-Tester {nick host hand chan text} {  set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]  set target [lindex [split $text] 0]  if {[string first ":" $target] > -1} { set target [lindex [split $target ":"] 1] }  set users [list]  foreach n [chanlist $chan] {    if {[matchaddr $target $n![getchanhost $n $chan]]} {  lappend users $n  }  }  if {[llength $users]} {  set cnt 0  ;  set say ""    foreach n [lsort -dictionary $users] {  append say " ([incr cnt]) $n"  }    if {$cnt == 1} {  set plural "Nick is"  } else {  set plural "Nicks are"  }    putserv "notice $nick :($cnt) $plural affected:$say"  } else {  putserv "notice $nick :No nicks are affected."  }  return 0}

Statistics: Posted by SpiKe^^ — Sun May 01, 2022 1:44 am

change output of banmask checker

2022-05-01T00:20:32-04:00

i did an attempt it seems to work but im not sure if its the proper way to do it

Code:

bind pub n !ipcheck Pub:BanMask-Testerproc Pub:BanMask-Tester {nick host hand chan text} {  set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]  set target [lindex [split $text] 0]  if {[string first ":" $target] > -1} { set target [lindex [split $target ":"] 1] }  set users [list]  foreach n [chanlist $chan] {    if {[matchaddr $target $n![getchanhost $n $chan]]} {  lappend users $n ; set users [lsort -dictionary $users] }  }  if {[llength $users]} {  set cnt 0  ;  set say ""    foreach n $users {  append say " ([incr cnt]) $n"  }    if {$cnt == 1} {  set plural "Nick is"  } else {  set plural "Nicks are"  }    putserv "notice $nick :($cnt) $plural affected:$say"  } else {  putserv "notice $nick :No nicks are affected."  }  return 0}

Statistics: Posted by simo — Sun May 01, 2022 12:20 am

change output of banmask checker

2022-05-01T00:16:19-04:00

thanks for the swift reply SpiKe^^
i tested it and it seems to do exactly as expected excellent thanks for that
1 last request if i may , if it would be possible to have the output in alphabetical order as it seems to output in random order atm

thanks in advance,

Statistics: Posted by simo — Sun May 01, 2022 12:16 am

Pub: BanMask-Tester

2022-04-30T21:37:13-04:00

???

Code:

####  Pub: BanMask-Tester v0.2  ####bind pub n !ipcheck Pub:BanMask-Testerproc Pub:BanMask-Tester {nick host hand chan text} {  set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]  set target [lindex [split $text] 0]  if {[string first ":" $target] > -1} { set target [lindex [split $target ":"] 1] }  set users [list]  foreach n [chanlist $chan] {    if {[matchaddr $target $n![getchanhost $n $chan]]} {  lappend users $n  }  }  if {[llength $users]} {  set cnt 0  ;  set say ""    foreach n $users {  append say " ([incr cnt]) $n"  }    if {$cnt == 1} {  set plural "Nick is"  } else {  set plural "Nicks are"  }    putserv "notice $nick :($cnt) $plural affected:$say"  } else {  putserv "notice $nick :No nicks are affected."  }  return 0}

Statistics: Posted by SpiKe^^ — Sat Apr 30, 2022 9:37 pm

change output of banmask checker

2022-04-30T13:04:16-04:00

greetingz gentz,

i was trying out this small code wich checks wich nicks will be effected with banmasks on channel currently it outputs :

nick1 nick2 nick3 nick3 nick4

if possible i wanted it to output in the manner of like :

(4) Nicks are effected: (1) nick1 (2) nick2 (3) nick3 (4) nick4

Code:

bind pub n !ipcheck Pub:BanMask-Testerproc Pub:BanMask-Tester {nick host hand chan text} {    set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]   set target [lindex [split $text] 0]    if { [string first ":" $target] != -1 } { set target [lindex [split $target ":"] 1] }set users [list] foreach n [chanlist $chan] {  if {[string match -nocase $target $n![getchanhost $n $chan]]} {    lappend users $n  } }  if {[llength $users]} { putserv "notice $nick :$users"  }}

thanks gentz,

Statistics: Posted by simo — Sat Apr 30, 2022 1:04 pm