bind pub - !listing listing:pub:listing

proc listing:pub:listing {nick uhost hand channel arg} {
 global zikfile zikvianotice
 if { [string tolower $channel] ne [string tolower $::zikchannel] } { return 0; }
 if { [llength [split $arg]] == 0 } {
   putserv "NOTICE $nick : Merci de préciser ta recherche. Exemple : !listing *536*HD*"
   return 0
 }
 set ziks ""
 if { [file exists $zikfile] } { set file [open $zikfile r]
 } else {
  if { $zikvianotice == 0 } { putmsg $channel "$zikfile n'existe pas." }
  if { $zikvianotice == 1 } { putnotc $nick "$zikfile n'existe pas." }
  return 0
 }
 while { ![eof $file] } {
  set zik [gets $file]
  if { $zik != "" } {
   set ziks [linsert $ziks end $zik]
  }
 }
 close $file
 if { $arg != "" } {
  set pattern [string tolower $arg]
  set aziks ""
  set zik ""
  foreach zik $ziks {
   set lowzik [string tolower $zik]
   if { [string match $pattern $lowzik] } {
    set aziks [linsert $aziks end $zik]
   }
   set ziks ""
   set ziks $aziks
 if { $zik != "" } {
  if { $zikvianotice == 0 } {
    putmsg $channel "Morceau: $zik"
}
  if { $zikvianotice == 1 } {
   putnotc $nick "$zik"
  }
 }
 return 1
  }
 }
#set row [rand [llength $ziks]]
#if { [expr $row >= 0] && [expr $row < [llength $ziks]] } {
#set zik [lindex $ziks $row]
#}
}


putlog "Zik.tcl By KiBa Loaded"