egghelp.org community :: View topic - Basic script, writing info to file

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

Basic script, writing info to file

egghelp.org community Forum Index -> Scripting Help

View previous topic :: View next topic

Author

Message

Nara
Halfop

Joined: 23 Jul 2006
Posts: 40

Posted: Wed Sep 20, 2006 6:30 pm Post subject: Basic script, writing info to file

Code:

proc battle:flagsong { nick host hand chan text } {
global head tail delim dj
set 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 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 { [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 $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"
   }
}
}

It errors after

Code:

if !{ [channel get $chan advertonly] } {

with a 'Tcl error [battle:flagsong]: missing close-brace'

~Nara

r0t3n
Owner

Joined: 31 May 2005
Posts: 507
Location: UK

Posted: Wed Sep 20, 2006 6:57 pm Post subject:

Try:

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"
}
}

_________________
r0t3n @ #r0t3n @ Quakenet

Nara
Halfop

Joined: 23 Jul 2006
Posts: 40

Posted: Wed Sep 20, 2006 7:03 pm Post subject:

That worked. Thanks. ~Nara

Display posts from previous:

	egghelp.org community Forum Index -> Scripting Help	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum