autolog1.23-strolchi.tcl

[snow-ball]

Hello

can any one help me with it?

I getting the following error

Tcl error [pub_sendfile]: can't read "stlchan": no such variable

proc pub_sendfile {nick uhost hand chan arg} {
global sendfile_path stlchan autolog_exempt autolog_file

if {$autolog_exempt != "" && [lsearch -exact [string tolower [split $autolog_exempt]] $stlchan] != -1} { return 0 } else {

regsub -all -- "%chan" $autolog_file $chan file
regsub -all -- "%stripchan" $file [string trim $chan "#+&!"] file

set sendfile_file ""
append sendfile_file $sendfile_path $file

switch -- [dccsend $sendfile_file $nick] {
0 { putserv "NOTICE $nick :Sending file." }
1 { putserv "NOTICE $nick :Error: Too many pending file requests. Try again later, thank you." }
2 { putserv "NOTICE $nick :Error: Could not open socket. Please notify my admin, thank you." }
3 { putserv "NOTICE $nick :Error: File does not exist. Please notify my admin, thank you." }
4 { putserv "NOTICE $nick :Error: Too many file sends already in progress. Your request has been added to the queue, please wait, thank you." }
}
}
}

Thank You

[Wcc]

The 'stlchan' variable doesn't exist. This should be set outside the proc somewhere. It would help if you could post the whole script.

[Wcc]

I didn't notice the topic text, oops .

Code: Select all

proc pub_sendfile {nick uhost hand chan arg} { 
  global sendfile_path autolog_exempt autolog_file
  set stlchan [string tolower $chan]
  if {$autolog_exempt != "" && [lsearch -exact [split [string tolower $autolog_exempt]] $stlchan] != -1} {
    return 0
  } else { 
    regsub -all -- "%chan" $autolog_file $chan file 
    regsub -all -- "%stripchan" $file [string trim $chan "#+&!"] file 
    set sendfile_file "" 
    append sendfile_file $sendfile_path $file 
    switch -- [dccsend $sendfile_file $nick] { 
      0 { putserv "NOTICE $nick :Sending file." } 
      1 { putserv "NOTICE $nick :Error: Too many pending file requests. Try again later, thank you." } 
      2 { putserv "NOTICE $nick :Error: Could not open socket. Please notify my admin, thank you." } 
      3 { putserv "NOTICE $nick :Error: File does not exist. Please notify my admin, thank you." } 
      4 { putserv "NOTICE $nick :Error: Too many file sends already in progress. Your request has been added to the queue, please wait, thank you." } 
    } 
  } 
} 

<font size=-1>[ This Message was edited by: Wcc on 2002-02-24 21:34 ]</font>

[snow-ball]

Thank you.. for you help