[Request/Resolved] SearchIRC Network Ranking

[mr_fanatic]

It would be lovely if anyone can code it like this:

<mr_fanatic> !rank Dalnet
<eggdrop> Dalnet ranked #6 out of 5,402

<mr_fanatic> !rank Undernet
<eggdrop> Undernet ranked #2 out of 5,402

Info page: http://searchirc.com/rank/undernet
If its too complex, a display for only one network will be lovely too ^^

[TCL_no_TK]

Code: Select all

 package require http

 ..snipped..

 bind pub -|- !rank pub:rank
 setudef flag network-rank

 proc pub:rank {nick host hand chan text} {
  if {[llength $text] == 0} {
   puthelp "NOTICE $nick :Usage: !rank <IRC Network>"
   puthelp "NOTICE $nick :Displays the rank of the given irc network on searchirc"
   return 0
  }
  if {![channel get "$chan" network-rank]} {
   return 0
  }
  set network_name [lindex [split $text] 0]
  return [networkrank "$network_name" "$chan"]
 }

 putlog "loaded searchirc_network_rank.tcl by TCL_no_TK version 1.0"
 return

[mr_fanatic]

Thank you so much. Works perfect!! If anyone is interested in this tcl, usage is: .chanset #channel +network-rank

[TCL_no_TK]

yw

[vbirc]

I see the code, but it has ..snipped.. am I missing something?
Sorry, but I don't see essential code to have it be a working script,
and egghelp tcl archive doesn't have a script for keyword "SearchIRC".

*scratches head*