egghelp/eggheads community

My first script - need some assistance.

2006-02-26T13:03:04-04:00

Thank you for the reply. I did my best attempt to fix the variable problem here, albeit I do not know if it's completely correct (It doesn't function correctly, so it's easy to assume that):

Code:

proc html_stat {} {   set htmlfile [open "index.html" w]    upvar magus magusstat maes maesstat gendo gendostat cid cidstat lol lolstat   puts $htmlfile "BNC Stat"   puts $htmlfile "Magus: $magusstat"   puts $htmlfile "Maes_Hughes: $maesstat"   puts $htmlfile "Gendo_Ikari: $gendostat"   puts $htmlfile "Cid_Highwind: $cidstat"   puts $htmlfile "LOL: $lolstat "}

Code:

source ./scripts/database.tclsource ./scripts/htmlstat.tcltimer 5 updatemagustimer 5 updatemaesputlog "Trying timers"timer 5 updategendotimer 5 updatecidtimer 5 "set lol [expr rand()]"timer 6 updatepageset statchan \#vservicesputlog $statchanproc updatemagus {} {   global botnick $statchan magus lol   if {[onchan Magus $statchan]} {      set magus Yes   } else {      set magus No   }   upvar magus magustat}proc updatemaes {} {   global botnick $statchan gendo   if {[onchan Maes_Hughes $statchan]} {      set maes Yes   } else {      set maes No   }   upvar maes maesstat}proc updategendo {} {   global botnick $statchan gendo   if {[onchan Gendo_Ikari $statchan]} {      set gendo Yes   } else {      set gendo No   }   upvar gendo gendostat}proc updatecid {} {   global botnick $statchan cid   if {[onchan Cid_Highwind $statchan]} {      set cid Yes   } else {      set cid No   }   upvar cid cidstat}proc updatepage {} {   set datafile [open "database.tcl" w]   puts $datafile "set magusstat $magus"   puts $datafile "set maesstat $maes"   puts $datafile "set gendostat $gendo"   puts $datafile "set cidstat $cid"   puts $datafile "set lolstat $lol"   upvar magus magusstat maes maesstat gendo gendostat cid cidstat lol lolstat   html_stat}putlog "loaded"

Statistics: Posted by Sir Edward — Sun Feb 26, 2006 1:03 pm

My first script - need some assistance.

2006-02-26T10:54:36-04:00

proc html_stat needs rework. 1 major problems I can use on first sight:
- you cannot use file names with puts, but you must use file handles (like in proc updatepage)

then I see a general problem:
- you cannot use $var from procs which are higher/lower levels. you must explicitly make them global, catch them via upvar or give them as parameters.

Statistics: Posted by De Kus — Sun Feb 26, 2006 10:54 am

My first script - need some assistance.

2006-02-26T06:53:14-04:00

Hello. I have just recently learned Tcl and started modifying scripts and decided to build my own. What this does is check if the BNCs are in my logging channel and is suppose to post it to an HTML document.. but nothing seems to be working. Any help would be greatly appreciated.

This is the main script, bncstat.tcl:

Code:

source ./scripts/database.tclsource ./scripts/htmlstat.tcltimer 5 updatemagustimer 5 updatemaesputlog "Trying timers"timer 5 updategendotimer 5 updatecidtimer 5 "set lol [expr rand()]"timer 6 updatepageset statchan \#vservicesputlog $statchanproc updatemagus {} {global botnick $statchan magus lolif {[onchan Magus $statchan]} {set magus Yes} else {set magus No}}proc updatemaes {} {global botnick $statchan gendoif {[onchan Maes_Hughes $statchan]} {set maes Yes} else {set maes No}}proc updategendo {} {global botnick $statchan gendoif {[onchan Gendo_Ikari $statchan]} {set gendo Yes} else {set gendo No}}proc updatecid {} {global botnick $statchan cidif {[onchan Cid_Highwind $statchan]} {set cid Yes} else {set cid No}}proc updatepage {} {set datafile [open "database.tcl" w]puts $datafile "set magusstat $magus"puts $datafile "set maesstat $maes"puts $datafile "set gendostat $gendo"puts $datafile "set cidstat $cid"puts $datafile "set lolstat $lol"global magusstat maesstat gendostat cidstat lolstathtml_stat}putlog "loaded"

And this is the htmlstat.tcl used to edit the html file.

Code:

proc html_stat {} {global cid magus maes gendo cidstat magusstat maesstat gendostat lol lolstat statchanputs index.html "BNC Stat"puts index.html "Magus: $magusstat"puts index.html "Maes_Hughes: $maesstat"puts index.html "Gendo_Ikari: $gendostat"puts index.html "Cid_Highwind: $cidstat"puts index.html "LOL: $lolstat"}

Thanks.

Statistics: Posted by Sir Edward — Sun Feb 26, 2006 6:53 am