listing files in a directory

stdragon · Post by **stdragon** » Fri Apr 04, 2003 5:18 am

You really could use some coffee! You forgot another character, this time the final } in the code.

Pitchat · Post by **Pitchat** » Fri Apr 04, 2003 5:21 am

arf just saw it after i did the last post but this time no crashes but when i type my pub command nothing append no error and no display

Post by **caesar** » Fri Apr 04, 2003 5:27 am

The 'poemsdir' should be like: set poemsdir "c://precieuse//histoires" if I'm not wrong and the regsub line needs to be changed. It should look like:

Code: Select all

set poemsdir "c://precieuse//histoires"
set regline "c:/precieuse/histoires"

bind pub * !poems pub:poems

proc pub:poems {nick host handle channel text} {
catch { glob -type f $::poemsdir/* } poems
regsub -all "$::regline/" $poems "" poems
putserv "PRIVMSG $channel :\002Poems\002: $poems"
}

Pitchat · Post by **Pitchat** » Fri Apr 04, 2003 5:43 am

still dont work
maybe i messed up with the last change

<Precieuse> [04:38] Tcl error [pub:poems]: can't read "poems": no such variable

this is what the script look like now

Code: Select all

set poemsdir "c://precieuse//histoires" 
set regline "c:/precieuse/histoires"
set poemlimit 3 

bind pub * !histoire pub:poems 

proc pub:poems {nick host handle channel text} { 
  if {![file exists $::poemsdir]} { 
    putserv "PRIVMSG $channel :\002Error\002: $::poemsdir dose not exist." 
    return 0 
  } 
proc pub:poems {nick host handle channel text} { 
catch { glob -type f $::poemsdir/* } poems 
regsub -all "$::regline/" $poems "" poems 
putserv "PRIVMSG $channel :\002Poems\002: $poems" 
} 

  set first [list] 
  foreach item $poems { 
    if {[llength $first] == $::poemlimit} { 
      putserv "PRIVMSG $channel :\002Histoires\002: [string trimright [join $first ", "] ", "]" 
      set first [list] 
    } 
    lappend fist $item 
  } 
  if {[llength $first]} { 
    putserv "PRIVMSG $channel :\002Histoires\002: [string trimright [join $first ", "] ", "]" 
  } 
}

Post by **caesar** » Fri Apr 04, 2003 5:50 am

What the heck are you doing there?

Here is the final and working smoothly version of the code I've did:

Code: Select all

set poemsdir "c://precieuse//histoires"

bind pub * !poems pub:poems

proc pub:poems {nick host handle channel text} {
catch { glob -type f $::poemsdir/* } poems
regsub -all "//" $::poemsdir "/" regline
regsub -all "$::regline/" $poems "" poems 
putserv "PRIVMSG $channel :\002Poems\002: $poems"
}

Pitchat · Post by **Pitchat** » Fri Apr 04, 2003 5:58 am

thanks for everything

Post by **caesar** » Fri Apr 04, 2003 6:12 am

So it working or not?

Your welcome anyway..

Pitchat · Post by **Pitchat** » Fri Apr 04, 2003 12:53 pm

i did thank you and i am grateful for your patience and knowledge

to answer your question the script in its "basic version" works well
it is juste the part where i`d try to have it display one item per lines that i am unable to make it work and i know it is because of my lack of experience in tcl, i`m working on it

thanks again and dont let people like me down there are many more good people like me who want to learn and needs good teachers

Pitchat

Post by **caesar** » Fri Apr 04, 2003 12:58 pm

Hehe, I was kidding. I'm glad to hear I've helped you, somehow. Your welcome.

Post by **user** » Fri Apr 04, 2003 1:05 pm

A tip to all of you: glob -nocomplain
(look that up in the manual ;P)