egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-09-20T19:03:07-04:00 https://forum.eggheads.org/app.php/feed/topic/12447 2006-09-20T19:03:07-04:00 2006-09-20T19:03:07-04:00 https://forum.eggheads.org/viewtopic.php?p=66502#p66502 <![CDATA[Basic script, writing info to file]]>
~Nara

Statistics: Posted by Nara — Wed Sep 20, 2006 7:03 pm

]]> 2006-09-20T18:57:08-04:00 2006-09-20T18:57:08-04:00 https://forum.eggheads.org/viewtopic.php?p=66501#p66501 <![CDATA[Basic script, writing info to file]]>

Code: 

proc battle:flagsong {nick host hand chan text} {    global head tail delim dj    if {[channel get $chan advertonly]} { return }    if {$text != ""} {        putlog "\002Radio:\002 $nick \($hand\) flagged a song."        set song [battle:getxml]        if {$song != ""} {            regexp {<SONGTITLE>(.*?)<\/SONGTITLE>} $song match song            regsub -all {'} $song "'" song            regsub -all {<} $song "<" song            regsub -all {>} $song ">" song            regsub -all {&} $song "&" song            regsub -all {ÿ} $song "ñ" song            regsub -all {°} $song "º" song            regsub -all {&} $song "&" song        }        if {$dj == ""} {            set currentdj "AutoDj"        } else {            set currentdj $dj        }        set r [open flaggedsongs.txt a+]        puts $r "[strftime "%d %b %Y, %H:%M %z"]: $song was played on air and flagged by $nick \($hand\). DJ onair was $currentdj. Reason: $text"        close $r        putserv "PRIVMSG $nick :$head I have flagged the current song, which was \($song\). It will be reviewed by management. Reason provided: $text $tail"    } else {        putserv "PRIVMSG $nick :$head You must provide a reason. $tail"    }}

Statistics: Posted by r0t3n — Wed Sep 20, 2006 6:57 pm

]]> 2006-09-20T18:30:41-04:00 2006-09-20T18:30:41-04:00 https://forum.eggheads.org/viewtopic.php?p=66500#p66500 <![CDATA[Basic script, writing info to file]]>

Code: 

proc battle:flagsong { nick host hand chan text } {global head tail delim djset chan [string tolower $chan]if !{ [channel get $chan advertonly] } {if !{ [string equal $text ""] } {putlog "\002Radio:\002 $nick \($hand\) flagged a song."set song [battle:getxml]if !{ [string equal $song ""] } {regexp {<SONGTITLE>(.*?)<\/SONGTITLE>} $song match songregsub -all {'} $song "'" songregsub -all {<} $song "<" songregsub -all {>} $song ">" songregsub -all {&} $song "&" songregsub -all {ÿ} $song "ñ" song                regsub -all {°} $song "º" songregsub -all {&} $song "&" song}if { [string equal $dj ""] } {set $currentdj "AutoDJ"} else {set $currentdj $dj}set r [open flaggedsongs.txt a+]puts $r "[strftime "%d %b %Y, %H:%M %z"]: $song was played on air and flagged by $nick \($hand\). DJ onair was $currentdj. Reason: $text"close $rputserv "PRIVMSG $nick :$head I have flagged the current song, which was \($song\). It will be reviewed by management. Reason provided: $text $tail"} else {putserv "PRIVMSG $nick :$head You must provide a reason. $tail"}}}
It errors after

Code: 

if !{ [channel get $chan advertonly] } {
with a 'Tcl error [battle:flagsong]: missing close-brace'

~Nara

Statistics: Posted by Nara — Wed Sep 20, 2006 6:30 pm

]]>