played.tcl

 ##################################
# ::    played.tcl v. 0.1       :: #
 ##################################



set mcitemid_oikat "o|o"


set channel "#samuliweb"


#####################################################################



bind pub - !played pub:played



proc itemid:checkchannel {channel} {
 foreach i $::channel {
  if {$i == "$channel"} { return 1 }
 }
 return 0
}

#  open data file
set fp [open "somefile" r]
set file_data [read $fp]
close $fp

#  Process data file
set data [split $file_data "\n"]
foreach line $data {
     }


putlog "mcitemid.tcl Loaded"