[SOLVED] Search for files via Eggdrop

[tessa1]

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

[rosc2112]

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.)

[tessa1]

Hm... something like this?

Thats untested and i dunno if it works.

Code: Select all

bind pub "-|-" !find find_proc
proc 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

[tessa1]

Ok...

concat is false

i replaced that with exec

Code: Select all

bind pub "-|-" !find find_proc
proc 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

[metroid]

Code: Select all

bind pub -|- !find find_proc
proc 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: Select all

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

into

Code: Select all

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

(untested)

[tessa1]

Many thanks...

this code works for me

Code: Select all

set filepath "/path/to/dirctory"

bind pub -|- !find find_proc
proc 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