Topic TCL

[KhashayaR]

hello I wonder if someone can help me with this TCL here is what I would like to happen

-currently, the TCL read the topic content from inside the TCL as you can see, is there any way TCL read the topic content from a separate text file?

please see below

Code: Select all

#######################################################################
# Set the Topic format here. See below for a list of format settings. #
# ------------------------------------------------------------------- #
# $chan - Name of channel                                             #
####################################################################### 

set TopicToUse {
{ Random quotes can be most effecatious }

}

#############################################################################
#############################################################################
############################### STOP EDITING ################################
#############################################################################
#############################################################################

bind time - "00 * * * *" Displaytimenow
bind time - "360 * * * *" Displaytimenow

## Proc to Randomly Select an Info Item!
proc get_TopicRandomItem { } {
 global TopicToUse
 set output [lindex $TopicToUse [rand [llength $TopicToUse]]]
 return $output
}

proc Displaytimenow {n h handle ch te} { 
 global botnick showtimechans
 foreach channel [channels] {
 set topichan [get_TopicRandomItem]
 regsub {\$chan} $topichan $channel topichan
 putquick "TOPIC $channel :$topichan"
 }
}

## -----------------------------------------------------------------------
putlog "Random Topic loaded Successfuly..."

[SpiKe^^]

This process should return a random line from a file.

Code: Select all

set TopicFile "scripts/TopicFile.txt"

proc getRandomTopic {} {
  global TopicFile

  if {![file exists $TopicFile]} { return "$TopicFile does not exist" }

  set openfile [open $TopicFile]
  set topics [split [read -nonewline $openfile] \n]
  close $openfile

  set output [lindex $topics [rand [llength $topics]]]
  return $output
}

[KhashayaR]

Thanks SpiKe^^

[KhashayaR]

I'm not sure what is wrong in here but it's not working

my aim is TCL read the topic content from a separate text file located on script/

Code: Select all

bind time - "00 * * * *" Displaytimenow
bind time - "05 * * * *" Displaytimenow

set TopicFile "scripts/TopicFile.txt"

proc getRandomTopic {} {
  global TopicFile

  if {![file exists $TopicFile]} { return "$TopicFile does not exist" }

  set openfile [open $TopicFile]
  set topics [split [read -nonewline $openfile] \n]
  close $openfile

  set output [lindex $topics [rand [llength $topics]]]
  return $output
}

proc Displaytimenow {n h handle ch te} {
 global botnick showtimechans
 foreach channel [channels] {
 set topichan [get_TopicRandomItem]
 regsub {\$chan} $topichan $channel topichan
 putquick "TOPIC $channel :$topichan"
 }
}

[SpiKe^^]

You would need to call your new getRandomTopic process when needed...

Try replace [get_TopicRandomItem] with [getRandomTopic]