View Single Post
Old 06-12-2003, 08:16 PM  
Xcaliber
Junior Member
 
Join Date: Apr 2003
Posts: 7
Default public undupe

I make as following and am using.

set binary(UNDUPE) "c:/ioFTPD/scripts/undupe.exe"


proc proc_undupe { nick uhost hand chan arg } {
global binary disable location
if { $disable(UNDUPE) == 0 } {
set result [exec $binary(UNDUPE) $arg]
set result [split $result \n]
set result [lreplace $result 0 1]
set result [lreplace $result end-1 end]
foreach line [split $result "\n"] {
if { [lindex $line 1] == "" } {
putserv "PRIVMSG $chan :\[ \002UNDUPE\002 \] $arg - Not Found DupeDB."
} else {
putserv "PRIVMSG $chan :\[ \002UNDUPE\002 \] [lindex $line 1]" }
}
}
}
Xcaliber is offline   Reply With Quote