egghelp/eggheads community

exec alternative

2003-11-19T14:36:14-04:00

heres the result with your code

[13:29] (Pitchat): .cours list
[13:29] (Espion): Cours files
[13:29] (Espion): end

the directory his /scripts/cours and there is 3 files already in there

Statistics: Posted by Pitchat — Wed Nov 19, 2003 2:36 pm

exec alternative

2003-11-19T13:53:54-04:00

Code:

proc cours:list {hand idx arg} { global cours putdcc $idx "Cours files" foreach liste [glob -nocomplain -dir $cours(path) *.cours] { putdcc $idx  [file join $cours(path) *.cours]} putdcc $idx "end" }

...if that's what your code looks like, no wonder (the extra line breaks before the body of the foreach ) This is what I meant:

Code:

proc cours:list {hand idx arg} {   global cours  putdcc $idx "Cours files"  foreach liste [glob -nocomplain [file join $cours(path) *.cours]] {    putdcc $idx "[file tail [file rootname $liste]]"  }  putdcc $idx "end"}

If it still doesn't work, check your path and working directory. Giving an absolute path would be best, as the working directory won't matter then.

Statistics: Posted by user — Wed Nov 19, 2003 1:53 pm

exec alternative

2003-11-19T13:14:51-04:00

still doesnt work in this form

Code:

set cours(path) "scripts/cours/"set cours(chan) "#pitchat"bind dcc o cours dcc:coursproc dcc:cours {hand idx arg} {  if {[info proc cours:[lindex $arg 0] ] == ""} {    putdcc $idx "###Syntaxe: .cours  "    return 0    } {    cours:[lindex $arg 0] $hand $idx $arg  }}proc cours:go {hand idx arg} {  global line cours botnick  if {![file exists "$cours(path)/[lindex $arg 1].cours"]} {    cours:list $hand $idx $arg    return 0  }  set coursfile [open "$cours(path)/[lindex $arg 1].cours" r]  set cours(totline) 0  while {![eof $coursfile]} {    set cours(totline) [expr $cours(totline) +1]    set line($cours(totline)) [gets $coursfile]  }  putdcc $idx "Loaded ($cours(totline) lines)"  setuser $botnick xtra COUR "actif"  set cours(nb) "1"  cours:disp  close $coursfile}proc cours:disp {} {  global timer line cours   if {$cours(nb) < $cours(totline)} {    putserv "PRIVMSG $cours(chan) :$line($cours(nb))"    set cours(nb) [expr $cours(nb)+1]    set tmp "cours:disp"    set timer [utimer 30 $tmp]    } {    putserv "PRIVMSG $cours(chan) :End"  }}proc cours:stop {hand idx arg} {  global timer cours  if {[info exists timer]} {    killutimer $timer     putdcc $idx "Oki"    putserv "NOTICE $cours(chan) :CLASS STOPPED BY $hand"  }}proc cours:list {hand idx arg} { global cours putdcc $idx "Cours files" foreach liste [glob -nocomplain -dir $cours(path) *.cours] { putdcc $idx  [file join $cours(path) *.cours]} putdcc $idx "end" }

i really dont know where to look now

thanks for your efforts

Statistics: Posted by Pitchat — Wed Nov 19, 2003 1:14 pm

exec alternative

2003-11-19T08:05:11-04:00

Code:

proc cours:list {hand idx arg} {  global cours  putdcc $idx "Cours files"  foreach liste [glob -nocomplain -dir $cours(path) *.cours] {    putdcc $idx [file tail [file rootname $liste]]  }  putdcc $idx "end"}

If -dir doesn't work, use [file join $cours(path) *.cours] instead

Statistics: Posted by user — Wed Nov 19, 2003 8:05 am

exec alternative

2003-11-19T07:09:42-04:00

i have replace the exec ls thing with glob but instead of en error a have this

Code:

[04:12] (Pitchat): .cours list[04:12] (Espion): Cours files[04:12] (Espion): end

and it doesnt lisdt the files in the directory ( /scripts/cours )

i read the glob page but i do not figure how to apply this in my script since i am quite new at tcl

Code:

proc cours:list {hand idx arg} {  global cours  putdcc $idx "Cours files"  foreach liste [glob $cours(path)] {    if {[string match "*.cours" $liste]} {      putdcc $idx "[lindex [split $liste .] 0]"    }  }  putdcc $idx "end"}

thanks

Statistics: Posted by Pitchat — Wed Nov 19, 2003 7:09 am

exec alternative

2003-11-19T04:25:19-04:00

use glob instead of 'exec ls'

Statistics: Posted by user — Wed Nov 19, 2003 4:25 am

exec alternative

2003-11-18T23:27:38-04:00

Hi again !

i use a little scripts that is some sort of "skool.tcl" scripts but it was made for linux eggdrop and i have an error wich is cause by the " exec" commands , i isolate the proc responsible and i`d like to know how can i do the same thing without using the exec command ( you must have guessed , i`m on windows ! )

heres the error

[22:10] (Espion): [22:10] Tcl error [dcc:cours]: couldn't execute "ls": no such file or directory

thanks

Pitchat

Code:

set cours(path) "scripts/cours"set cours(chan) "#pitchat"bind dcc o cours dcc:coursproc dcc:cours {hand idx arg} {  if {[info proc cours:[lindex $arg 0] ] == ""} {    putdcc $idx "###Syntaxe: .cours  "    return 0    } {    cours:[lindex $arg 0] $hand $idx $arg  }}proc cours:go {hand idx arg} {  global line cours botnick  if {![file exists "$cours(path)/[lindex $arg 1].cours"]} {    cours:list $hand $idx $arg    return 0  }  set coursfile [open "$cours(path)/[lindex $arg 1].cours" r]  set cours(totline) 0  while {![eof $coursfile]} {    set cours(totline) [expr $cours(totline) +1]    set line($cours(totline)) [gets $coursfile]  }  putdcc $idx "Loaded ($cours(totline) lines)"  setuser $botnick xtra COUR "actif"  set cours(nb) "1"  cours:disp  close $coursfile}proc cours:disp {} {  global timer line cours   if {$cours(nb) < $cours(totline)} {    putserv "PRIVMSG $cours(chan) :$line($cours(nb))"    set cours(nb) [expr $cours(nb)+1]    set tmp "cours:disp"    set timer [utimer 30 $tmp]    } {    putserv "PRIVMSG $cours(chan) :End"  }}proc cours:stop {hand idx arg} {  global timer cours  if {[info exists timer]} {    killutimer $timer     putdcc $idx "Oki"    putserv "NOTICE $cours(chan) :CLASS STOPPED BY $hand"  }}proc cours:list {hand idx arg} {  global cours  putdcc $idx "Cours files"  foreach liste [exec ls $cours(path)] {    if {[string match "*.cours" $liste]} {      putdcc $idx "[lindex [split $liste .] 0]"    }  }  putdcc $idx "end"}

Statistics: Posted by Pitchat — Tue Nov 18, 2003 11:27 pm