Write Channel list 2 File

[crux]

Hello,
anyone can help to write channel list to .txt file, like that

Write Channel Nicklist 2 File tcl.

[Sir_Fz]

Hello,
anyone can help to write channel list to .txt file, like that

Write Channel Nicklist 2 File tcl.

Yeah, like Write Channel Nicklist 2 File.

[crux]

hehe.. I mean all channels list to .txt file without topics ...
pls help me with tcl code.....

[user]

Code: Select all

proc savechanlists file {
	set f [open $file w]
	foreach chan [channels] {
		if {[botonchan $chan]} {
			puts $f [join [chanlist $chan] \n]
		}
	}
	close $f
}

[crux]

thanks you

[crux]

I edit like that

Code: Select all

set file "chanlist.txt" 

if {![info exists chanlist_running]} {   
    timer 20 chanlist:make                      
    set chanlist_running 1                 
  }                                   
proc chanlist:make {args} { 

global file channel botnick

set chanlist [chanlist]
set chanlist [lsort -dictionary [lrange $chanlist 0 end]]

set outputfile [open $file w]

proc savechanlists file {
   set f [open $file w]
   foreach chan [channels] {
      if {[botonchan $chan]} {
         puts $f [join [chanlist $chan] \n]
      }
   }
   close $f
}
close $outputfile

putlog "Saving channel list..." 
timer 20 chanlist:make
return 1
} 

putlog "Write Channel list to File." 

but my output file chanlist.txt size is 0 ...

please help me..

[user]

In your proc, you open the file, create a proc then close the file - there are no lines writing anything to the file - that's why it's empty.