egghelp/eggheads community

[SOLVED] Search for files via Eggdrop

2006-09-25T12:45:19-04:00

Many thanks...

this code works for me

Code:

set filepath "/path/to/dirctory"bind pub -|- !find find_procproc find_proc {nick uhost handle channel arg} {  set results [exec find $filepath -iname *[lindex [split $arg] 0 end]*]  if {[llength $results]} {    foreach result $results {      putserv "PRIVMSG $channel :\002$result\002"    }  } else {    putserv "PRIVMSG $channel :\002No results\002"  }}

Best regards
tessa1

Statistics: Posted by tessa1 — Mon Sep 25, 2006 12:45 pm

[SOLVED] Search for files via Eggdrop

2006-09-25T01:46:29-04:00

Code:

bind pub -|- !find find_procproc find_proc {nick uhost handle channel arg} {  set results [glob -nocomplain /home/dj/djpool/*[lrange [split $arg] 0 end]*]  if {[llength $results]} {    foreach result $results {      putserv "PRIVMSG $channel :\002[file tail $result]\002"    }  } else {    putserv "PRIVMSG $channel :Found no results."  }}

If you want it to state the entire path (no idea why you would want that)

Change

Code:

putserv "PRIVMSG $channel :\002[file tail $result]\002"

into

Code:

putserv "PRIVMSG $channel :\002$result\002"

(untested)

Statistics: Posted by metroid — Mon Sep 25, 2006 1:46 am

[SOLVED] Search for files via Eggdrop

2006-09-24T15:58:27-04:00

Ok...

concat is false

i replaced that with exec

Code:

bind pub "-|-" !find find_procproc find_proc {nick uhost handle channel arg} { set num [lindex [split $arg] 0 end] set command [exec find /home/dj/djpool -iname *$num*] set return [eval $command]  foreach output [split $return \n] {  putserv "PRIVMSG $channel :$output" }}

But don't works because the output begins with /home/blaaaaa...

Tcl error [find_proc]: invalid command name "/home/dj/djpool/H/test.txt"

Plz help me a little bit

Best regards
tessa1

Statistics: Posted by tessa1 — Sun Sep 24, 2006 3:58 pm

[SOLVED] Search for files via Eggdrop

2006-09-24T15:33:09-04:00

Hm... something like this?

Thats untested and i dunno if it works.

Code:

bind pub "-|-" !find find_procproc find_proc {nick uhost handle channel arg} { set num [lindex [split $arg] 0 end] set command [concat find /home/dj/djpool -iname *$num*] set return [eval $command] foreach output [split $return \n] {  putserv "PRIVMSG $channel :\002$output\002" }}

Best regards
tessa1

Statistics: Posted by tessa1 — Sun Sep 24, 2006 3:33 pm

[SOLVED] Search for files via Eggdrop

2006-09-24T14:57:27-04:00

I know this is the scripts request forum, and you probably want a whole working script. I just thought I'd point out that the manpage for "file" for tcl has an example of a filesearch script (although not specifically for eggdrop output.)

Statistics: Posted by rosc2112 — Sun Sep 24, 2006 2:57 pm

[SOLVED] Search for files via Eggdrop

2006-09-25T12:48:43-04:00

Hi,

i need a a small dj-searchscript that displays the path from a file on my shell.

When i type this in my shell:

root:~# find /home/dj/djpool -iname "*What is Love*"

putty displays the following result:

/home/dj/djpool/H/Haddaway/2nd Edition/Haddaway-00_What is Love.mp3
/home/dj/djpool/H/Haddaway/2nd Edition/Haddaway-05_What is Love (Rapino-Brothers-Mix).mp3

What i want to do, is to display the result in an IRC-Channel when i type

!find what is love

should the bot display:

/home/dj/djpool/H/Haddaway/2nd Edition/Haddaway-00_What is Love.mp3

/home/dj/djpool/H/Haddaway/2nd Edition/Haddaway-05_What is Love (Rapino-Brothers-Mix).mp3

Best regards
tessa1

Statistics: Posted by tessa1 — Sun Sep 24, 2006 1:53 pm