egghelp.org community :: View topic - Almost perfect ShoutCast script

[ egghelp.org home | forum home ]

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

FAQ

Memberlist

Usergroups

Profile

Almost perfect ShoutCast script

egghelp.org community Forum Index -> Scripting Help

View previous topic :: View next topic

Author

Message

furious
Voice

Joined: 16 Jan 2006
Posts: 14

Posted: Thu Feb 02, 2006 2:49 pm Post subject: Almost perfect ShoutCast script

Hello, I have the following script that is almost perfect, it does exactly what I want IF it would work and load.

Code:

# #
# LoReZ ShoutCast Script v2.1 (sc.tcl) #
# Email: lorez@bigvibez.com #
# IRC: #bigvibez @ Quakenet #
# #
# Please contact me if you notice any bugs #
# #
# Installation: Put the script and the config file into your scripts directory, add "source scripts/sc.tcl" to your eggdrop #
# config and rehash the bot. (http package is REQUIRED for this script to work) # #
# #
###############################################################################################################################

###############################################################################################################################
# START OF CONFIGURATION FOR SC.TCL #
###############################################################################################################################

### Stream Settings ###

# A Description for your Stream
set source::vars(desc) "Utopia Radio"

# The IP Adress of your Stream
set sc::vars(ip) "69.138.156.104"

# The Port on which ShoutCast runs
set sc::vars(port) "8000"

# The Password of your Stream
set sc::vars(pass) "PASSWORD"

# The MIME encrypted Admin Password of your Stream (you can get it with mIRC by typing //echo -a $encode(admin:adminpassword,m)
set sc::vars(adpass) "YWRftaW46ddhm9yc3RhZ57HQ="

# The Channels on which the Bot shall react on Commands
set sc::vars(chans) "#utopia"

# The Intern Channel to which the Bot sends Wishes and Greets (if send Wishes and Greets to Intern Channel is activated)
set sc::vars(intern) "#utopia"

# The File where the Data shall be stored
set sc::vars(file) "/home/furious/botdir/scripts/sc.db"

# The Flag required for kicking the Source and un/setting the DJ
set sc::vars(flag) "D"

# The Trigger used for Commands
set sc::vars(trigger) "!sc:"

### General Settings ###

# Enable Public Commands (0 = No | 1 = Yes)
set sc::sets(pub) 1

# Enable Message Commands (0 = No | 1 = Yes)
set sc::sets(msg) 1

# Reply In Channel (0 = No | 1 = Yes)
set sc::sets(reply) 1

# Where to send Wishes and Greets (0 = DJ | 1 = Intern Channel)
set sc::sets(wishgreet) 1

# Announce Track Changes (0 = No | 1 = Yes)
set sc::sets(anntrack) 1

# Announce Bitrate Changes (0 = No | 1 = Yes)
set sc::sets(annbitrate) 1

# Announce Listener Count Changes (0 = No | 1 = Yes)
set sc::sets(annlist) 1

# Announce Peak Changes (0 = No | 1 = Yes)
set sc::sets(annpeak) 1

# Announce DJ Changes (0 = No | 1 = Yes)
set sc::sets(anndj) 1

# Announce when Stream goes on/offline (0 = No | 1 = Yes)
set sc::sets(ann) 1

# Advertise Stream (0 = No | 1 = Yes)
set sc::sets(adv) 1

# Advertise every X Minutes
set sc::sets(advtime) 4

# Change Topic when Stream goes on/offline
set sc::sets(topchg) 0

# Change Topic when the DJ Changes
set sc::sets(djtopchg) 0

# Change Topic with Q Bot (QuakeNet)
set sc::sets(qtopic) 0

### Command and Text Settings ###

# In the texts you can use these variables:
# %listeners %peak %max %unique %avgtime %genre %url %title %song %songurl %irc %icq %aim %webhits %streamhits %bitrate %content %version %ip %port %desc %lastsongs %djnick %dj %showname %status

# Stream Trigger
set sc::triggers(stream) "stream"
# Text when someone uses the Stream Trigger
set sc::texts(stream) "http://%ip:%port/listen.pls"

# Info Trigger
set sc::triggers(info) "radio"
# Text when someone uses the Info Trigger
set sc::texts(info) "Stream %ip:%port streaming %content. The Listener Peak is %peak Stream had %webhits Webhits and %streamhits Streamhits. "%dj is on the set."

# DJ Trigger
set sc::triggers(dj) "dj"
# Text when someone uses the DJ Trigger
set sc::texts(dj) "%dj is on the set"

# Song Trigger
#set sc::triggers(song) "song"
# Text when someone uses the Song Trigger
#set sc::texts(song) "Now playing: %song"

# Listener Trigger
#set sc::triggers(list) "listener"
# Text when someone uses the Listener Trigger
#set sc::texts(list) "Stream %ip:%port : %listeners (%unique) of %max listeners"

# Peak Trigger
#set sc::triggers(peak) "peak"
# Text when someone uses the Peak Trigger
#set sc::texts(peak) "Peak: %peak"

# Bitrate Trigger
#set sc::triggers(bitrate) "bitrate"
# Text when someone uses the Bitrate Trigger
#set sc::texts(bitrate) "Bitrate: %bitrate"

# Stream Title Trigger
#set sc::triggers(title) "title"
# Text when someone uses the Stream Title Trigger
#set sc::texts(title) "Title: %title"

# Stream Genre Trigger
#set sc::triggers(genre) "genre"
# Text when someone uses the Stream Genre Trigger
#set sc::texts(genre) "Genre: %genre"

# Stream URL Trigger
#set sc::triggers(url) "url"
# Text when someone uses the Stream URL Trigger
#set sc::texts(url) "URL: %url"

# Stream IRC Trigger
#set sc::triggers(irc) "irc"
# Text when someone uses the Stream IRC Trigger
#set sc::texts(irc) "IRC: %irc"

# Stream ICQ Trigger
#set sc::triggers(icq) "icq"
# Text when someone uses the Stream ICQ Trigger
#set sc::texts(icq) "ICQ: %icq"

# Stream AIM Trigger
#set sc::triggers(aim) "aim"
# Text when someone uses the Stream AIM Trigger
#set sc::texts(aim) "AIM: %aim"

# Last Songs Trigger
#set sc::triggers(lsongs) "lastsongs"
# Text when someone uses the Last Songs Trigger
#set sc::texts(lsongs) "Last Songs: %lastsongs"

### You can remove Commands by deleting or commenting a Trigger and a Text for the Command ###
### You can also add Commands by setting up a Trigger and a Text for the Command. E.g.: ###
# Homepage Trigger
# set sc::triggers(hp) "hp"
# Text when someone uses the Homepage Trigger
# set sc::texts(hp) "Homepage: www.myradio.com"

# Help Trigger
#set sc::triggers(help) "help"

# Wish Trigger
set sc::triggers(wish) "wish"

# Greet Trigger
set sc::triggers(greet) "greet"

# Kick Trigger
#set sc::triggers(kick) "kick"

# Set DJ Trigger
#set sc::triggers(setdj) "setdj"

# Unset DJ Trigger
#set sc::triggers(unsetdj) "unsetdj"

# Text that is advertised (if advertise Stream is activated)
set sc::texts(adv) "Stream %ip:%port streaming %content. The Listener Peak is %peak Stream had %webhits Webhits and %streamhits Streamhits. "%dj is on the set"

# Text when Stream goes online (if announce when Stream goes on/offline is activated)
set sc::texts(on) "%desc now %status @ http://%ip:%port/listen.pls with %dj at %bitratekbps"

# Text when Stream goes offline (if announce when Stream goes on/offline is activated)
set sc::texts(off) "%title now offline"

# Text for the Topic when Stream goes online (if change Topic when Stream goes on/offline is activated)
set sc::texts(ontopic) "%title now online @ http://%ip:%port/listen.pls with %dj at %bitratekbps"

# Text for the Topic when Stream goes offline (if change Topic when Stream goes on/offline is activated)
set sc::texts(offtopic) "%title now offline"

# Text for the Topic when the DJ changes (if change Topic when DJ changes is activated)
set sc::texts(djtopic) "%title now online @ http://%ip:%port/listen.pls with %dj (%djnick) and his Show %showname at %bitratekbps :: !sc:help for Bot help"

# Text when a new Song is playing (if announce when Track changes is activated)
set sc::texts(songchg) "New Track playing: %song"

# Text when the Listener Count changes (if announce when Listener Count changes is activated)
set sc::texts(listchg) "There are now %listeners (%unique) of %max people listening"

# Text when the Bitrate Changes (if announce when Bitrate changes is activated)
set sc::texts(bitratechg) "Bitrate changed to %bitrate"

# Text when the Peak changes (if announce when Peak changes is activated)
set sc::texts(peakchg) "New Peak: %peak"

# Text when the DJ changes (if announce when DJ changes is activated)
set sc::texts(djchg) "%dj is now on the set"

# Text when Stream is offline and someone uses a Command
set sc::texts(offcmd) "Stream currently offline"

###############################################################################################################################
# END OF CONFIGURATION FOR SC.TCL #
###############################################################################################################################

# #
# LoReZ ShoutCast Script v2.1 (sc.tcl) #
# Email: lorez@bigvibez.com #
# IRC: #bigvibez @ Quakenet #
# #
# Please contact me if you notice any bugs #
# #
# Installation: Put the script and the config file into your scripts directory, add "source scripts/sc.tcl" to your eggdrop #
# config and rehash the bot. (http package is REQUIRED for this script to work) # #
# #
###############################################################################################################################

###############################################################################################################################
# START OF TCL CODE #
###############################################################################################################################

package require http
namespace eval sc {
variable vars
variable sets
variable triggers
variable texts
variable offadv 0
source scripts/sc.tcl
proc init {} {
set start [clock clicks]
set sc::offadv 0
bind time - "* * * * *" sc::check
bind nick - * sc::nick
foreach x [array names sc::triggers] {
   if {$sc::sets(pub) == 1} {
   bind pub [expr {($x == "kick") || ($x == "setdj") || ($x == "unsetdj") ? "$sc::vars(flag)" : "-"}] $sc::vars(trigger)$sc::triggers($x) "sc::pub $x"
   }
   if {$sc::sets(msg) == 1} {
   bind msg [expr {($x == "kick") || ($x == "setdj") || ($x == "unsetdj") ? "$sc::vars(flag)" : "-"}] $sc::vars(trigger)$sc::triggers($x) "sc::msg $x"
   }
}
if {$sc::sets(adv) == 1} {
   timer $sc::sets(advtime) "sc::post privmsg none all {$sc::texts(adv)}"
}
putlog "sc.tcl v2.1 by LoReZ successfully initialized in [expr {([clock clicks]-$start)/1000.0}]ms"
}
proc pub {text nick uhost hand chan args} {
if {([lsearch -exact [string tolower $sc::vars(chans)] [string tolower $chan]] != -1) || ($sc::vars(chans) == "")} {
   sc::cmd $text $nick $chan $args
}
}
proc msg {text nick uhost hand args} {
sc::cmd $text $nick none $args
}
proc nick {nick uhost hand chan newnick} {
set tmp [open $sc::vars(file) r]
gets $tmp streamdata
gets $tmp songdata
gets $tmp djdata
close $tmp
if {$nick == [lindex $djdata 0]} {
   set tmp [open $sc::vars(file) w+]
   puts $tmp $streamdata
   puts $tmp $songdata
   puts $tmp "$newnick [expr {([lindex $djdata 1] == $nick) ? $newnick : [lindex $djdata 1]}] [lrange $djdata 2 end]"
   close $tmp
   if {([lindex $djdata 1] == $nick) && ($sc::sets(djtopchg) == 1)} {
   sc::post topic none all "$sc::texts(djtopic)"
   }
}
}
proc cmd {text nick chan args} {
if {[file exists $sc::vars(file)] != 1} {
   sc::check * * * * *
}
set tmp [open $sc::vars(file) r]
gets $tmp streamdata
gets $tmp songdata
gets $tmp djdata
close $tmp
switch -exact $text {
   help {
   set sc::offadv 1
   putquick "privmsg $nick :Available Commands:"
   foreach x [array names sc::triggers] {
      if {$x != "help"} {
      if {(([matchattr [nick2hand $nick $chan] +$sc::vars(flag) $chan] != 1) && ($x != "kick") && ($x != "setdj") && ($x != "unsetdj")) || ([matchattr [nick2hand $nick $chan] +$sc::vars(flag) $chan] == 1)} {
         set sc::offadv 1
         putquick "privmsg $nick :$sc::vars(trigger)[expr {($x == "setdj") ? "$sc::triggers($x) <djname> <showname>" : [expr {(($x == "wish") || ($x == "greet")) ? "$sc::triggers($x) <$x>" : "$sc::triggers($x)"}]}]"
      }
      }
   }
   set sc::offadv 1
   putquick "privmsg $nick :End of Commands"
   }
   kick {
   putquick "privmsg $nick :Source successfully kicked"
   if {[lindex $streamdata 15] == 1} {
      set sock [socket $sc::vars(ip) $sc::vars(port)]
      puts $sock "GET /admin.cgi?mode=kicksrc HTTP/1.1"
      puts $sock "User-Agent:Mozilla"
      puts $sock "Host: $sc::vars(ip)"
      puts $sock "Authorization: Basic $sc::vars(adpass)"
      puts $sock ""
      flush $sock
   }
   }
   setdj {
   putquick "privmsg $nick :New DJ set"
   if {[lindex $streamdata 15] == 1} {
      set tmp [open $sc::vars(file) w+]
      puts $tmp $streamdata
      puts $tmp $songdata
      puts $tmp "$nick [expr {([lindex $args 0] == "{}") ? $nick : [lindex [lindex $args 0] 0]}] [lrange [lindex $args 0] 1 end]"
      close $tmp
      if {$sc::sets(anndj) == 1} {
      sc::post privmsg none all "$sc::texts(djchg)"
      }
      if {$sc::sets(djtopchg) == 1} {
      sc::post topic none all "$sc::texts(djtopic)"
      }
   }
   }
   unsetdj {
   putquick "privmsg $nick :DJ unset"
   if {[lindex $streamdata 15] == 1} {
      set tmp [open $sc::vars(file) w+]
      puts $tmp $streamdata
      puts $tmp $songdata
      puts $tmp "none none none"
      close $tmp
      if {$sc::sets(anndj) == 1} {
      sc::post privmsg none all "$sc::texts(djchg)"
      }
      if {$sc::sets(djtopchg) == 1} {
      sc::post topic none all "$sc::texts(ontopic)"
      }
   }
   }
   default {
   if {($text != "wish") && ($text != "greet")} {
      sc::post privmsg $nick $chan "$sc::texts($text)"
   } else {
      if {[lindex $streamdata 15] == 1} {
      if {([lindex $args 0] == "{}")} {
      putquick "privmsg $nick :Nothing specified"
      } else {
         if {[lindex $djdata 1] == "none"} {
         putquick "privmsg $sc::vars(intern) :[string totitle $text] by $nick: $args"
         } else {
         putquick "privmsg [expr {($sc::sets(wishgreet) == 1) ? $sc::vars(intern) : [lindex $djdata 0]}] :[string totitle $text] by $nick: $args"
         putquick "privmsg $nick :[string totitle $text] sent to [expr {($sc::sets(wishgreet) == 1) ? $sc::vars(intern) : [lindex $djdata 0]}]"
         }
      }
      } else {
      sc::post privmsg $nick none "$sc::texts(offcmd)"
      }
   }
   }
}
putlog "sc.tcl v2.1 $nick used $sc::vars(trigger)$sc::triggers($text)"
}
proc check {min hour day month year} {
set start [clock clicks]
if {[file exists $sc::vars(file)] == 1} {
   set tmp [open $sc::vars(file) r]
   gets $tmp olddata
   gets $tmp songdata
   gets $tmp djdata
   close $tmp
} else {
   set olddata "0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0"
   set djdata "none none none"
}
http::config -useragent "Mozilla 5.0"
set con [http::geturl http://$sc::vars(ip):$sc::vars(port)/admin.cgi?pass=$sc::vars(pass)&mode=viewxml&page=0 -timeout 10000]
set urldata [http::data $con]
http::cleanup $con
foreach {y z} {21 ! 22 \" 23 # 24 \$ 25 % 26 + 27 ' 28 $ 29 $ 2A * 2B + 2C , 2E . 2F / 3A : 3B \; 3C < 3D = 3E > 3F ? 40 @ 5B \[ 5C \\ 5D \] 5F _ 60 ` C0 À C1 Á C2 Â C3 Ã C4 Ä C5 Å C6 Æ C7 Ç C8 È C9 É CA Ê CB Ë CC Ì CD Í CE Î CF Ï D1 Ñ D2 Ò D3 Ó D4 Ô D5 Õ D6 Ö D9 Ù DA Ú DB Û DC Ü DD Ý DF ß E0 à E1 á E2 â E3 ã E4 ä E5 å E6 æ E7 ç E8 è E9 é EA ê EB ë EC ì ED í EE î EF ï F0 ð F1 ñ F2 ò F3 ó F4 ô F5 õ F6 ö F9 ù FA ú FB û FC ü FD ý FE þ FF ÿ} {
   regsub -all "&#x$y;" $urldata "$z" urldata
}
regsub -all ".*<SHOUTCASTSERVER>" $urldata "" data1
regsub -all "<WEBDATA>.*" $data1 "" data1
regsub -all ".*<SONGHISTORY>" $urldata "\{" data2
regsub -all "</SONGHISTORY>.*" $data2 " \}" data2
set x 0
foreach y {CURRENTLISTENERS PEAKLISTENERS MAXLISTENERS REPORTEDLISTENERS AVERAGETIME SERVERGENRE SERVERURL SERVERTITLE SONGTITLE SONGURL IRC ICQ AIM WEBHITS STREAMHITS STREAMSTATUS BITRATE CONTENT VERSION SONG PLAYEDAT TITLE} {
   if {$x < 19} {
   regsub -all ".*<$y>" $data1 "" data10
   regsub -all "</$y>.*" $data10 "" data10
   lappend streamdata [expr {(($data10 == "0") || ($data10 == "")) && ([string match -nocase *listeners "$y"] != 1) && ([string match -nocase *hits "$y"] != 1) && ([string match -nocase *time "$y"] != 1) ? "N/A" : $data10}]
   }
   if {$x > 18} {
   regsub -all "<$y>" $data2 "\{" data2
   regsub -all "</$y>" $data2 "\} " data2
   }
   incr x
}
set tmp [open $sc::vars(file) w+]
puts $tmp $streamdata
puts $tmp $data2
puts $tmp $djdata
close $tmp
if {[lindex $olddata 15] != [lindex $streamdata 15]} {
   if { ($sc::sets(ann) == 1)} {
   set sc::offadv [expr {([lindex $streamdata 15] == 1) ? 0 : 1}]
   sc::post privmsg none all "[expr {([lindex $streamdata 15] == 1) ? $sc::texts(on) : $sc::texts(off)}]"
   }
   if {$sc::sets(topchg) == 1} {
   set sc::offadv [expr {([lindex $streamdata 15] == 1) ? 0 : 1}]
   sc::post topic none all "[expr {([lindex $streamdata 15] == 1) ? $sc::texts(ontopic) : $sc::texts(offtopic)}]"
   }
}
foreach {x y z} {8 anntrack songchg 0 annlist listchg 1 annpeak peakchg 16 annbitrate bitratechg} {
   if {([lindex $olddata $x] != [lindex $streamdata $x]) && ($sc::sets($y) == 1)} {
   sc::post privmsg all all "$sc::texts($z)"
   }
}
putlog "sc.tcl v2.1 received information from $sc::vars(ip):$sc::vars(port) in [expr {([clock clicks]-$start)/1000.0}]ms"
}
proc post {mode nick chan text} {
set tmp [open $sc::vars(file) r]
gets $tmp streamdata
gets $tmp songdata
gets $tmp djdata
close $tmp
if {([lindex $streamdata 15] == 1) || ($sc::offadv == 1)} {
   foreach x [lindex $songdata 0] {
   append lastsongs "[lindex $x 1] :: "
   }
   lappend streamdata $sc::vars(ip) $sc::vars(port) $sc::vars(desc) ":: $lastsongs" [expr {(([lindex $djdata 0] == "none") || ([lindex $djdata 0] == "{}") || ([lindex $djdata 0] == "")) ? "No DJ" : [lindex $djdata 0]}] [expr {(([lindex $djdata 1] == "none") || ([lindex $djdata 1] == "{}") || ([lindex $djdata 1] == "")) ? "No DJ" : [lindex $djdata 1]}] [expr {(([lindex $djdata 2] == "none") || ([lindex $djdata 2] == "{}") || ([lindex $djdata 2] == "")) ? "No Show" : [lrange $djdata 2 end]}] [expr {([lindex $streamdata 15] == 1) ? "online" : "offline"}]
   set x 0
   foreach y {listeners peak max unique avgtime genre url title song songurl irc icq aim webhits streamhits streamstatus bitrate content version ip port desc lastsongs djnick dj showname status} {
   regsub -all "%$y" $text "[lindex $streamdata $x]" text
   incr x
   }
   if {$mode == "topic"} {
   foreach chans [channels] {
      if {$sc::vars(chans) == ""} {
      if {$sc::sets(qtopic) == 1} {
         putquick "privmsg TheQBot@CServe.quakenet.org :SETTOPIC $chans $text"
      } else {
         putquick "$mode $chans :$text"
      }
      } else {
      if {([lsearch -exact [string tolower $sc::vars(chans)] [string tolower $chans]] != -1)} {
         if {$sc::sets(qtopic) == 1} {
         putquick "privmsg TheQBot@CServe.quakenet.org :SETTOPIC $chans $text"
         } else {
         putquick "$mode $chans :$text"
         }
      }
      }
   }
   } else {
   if {($sc::sets(reply) != 1) || ($chan == "none")} {
      putquick "$mode $nick :$text"
   }
   if {(($sc::sets(reply) == 1) && ($chan != "none")) || ($chan == "all")} {
      foreach chans [channels] {
      if {$sc::vars(chans) == ""} {
         putquick "$mode $chans :$text"
      } else {
         if {([lsearch -exact [string tolower $sc::vars(chans)] [string tolower $chans]] != -1)} {
         putquick "$mode $chans :$text"
         }
      }
      }
   }
   }
} else {
   putquick "$mode [expr {((($sc::sets(reply) != 1) || ($chan == "none")) && ($chan != "all")) ? $nick : $chan}] :$sc::texts(offcmd)"
}
set sc::offadv 0
}
sc::init
}

###############################################################################################################################
# END OF TCL CODE #
###############################################################################################################################

EDITED: There's a code tag button; use it in future!!

Now this is the error code I get

[18:29] Tcl error in file 'angeleyez.conf':
[18:29] can't set "source::vars(desc)": parent namespace doesn't exist
while executing
"set source::vars(desc) "Utopia Radio""
(file "scripts/sc.tcl" line 20)
invoked from within
"source scripts/sc.tcl"
(file "angeleyez.conf" line 1344)
[18:29] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Can anybody help me please??? I will be eternally grateful.

De Kus
Revered One

Joined: 15 Dec 2002
Posts: 1361
Location: Germany

Posted: Thu Feb 02, 2006 4:22 pm Post subject:

try to replace source in 'set source::vars(desc) "Utopia Radio"' with sc _________________ De Kus StarZ\|De_Kus, De_Kus or DeKus on IRC Copyright © 2005-2009 by De Kus - published under The MIT License Love hurts, love strengthens...

furious
Voice

Joined: 16 Jan 2006
Posts: 14

Posted: Thu Feb 02, 2006 5:51 pm Post subject:

[21:48] Tcl error in file 'angeleyez.conf': [21:48] can't set "sc::vars(desc)": parent namespace doesn't exist while executing "set sc::vars(desc) "Utopia Radio"" (file "scripts/sc.tcl" line 20) invoked from within "source scripts/sc.tcl" (file "angeleyez.conf" line 1334) [21:48] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR) Is the error I get by changing source to sc

De Kus
Revered One

Joined: 15 Dec 2002
Posts: 1361
Location: Germany

Posted: Thu Feb 02, 2006 9:19 pm Post subject:

you must load the main part before the configuration part. there is something missing. I just noticed that there is no sc::init proc defined... _________________ De Kus StarZ\|De_Kus, De_Kus or DeKus on IRC Copyright © 2005-2009 by De Kus - published under The MIT License Love hurts, love strengthens...

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