Need a custom bot for a radio station

djdem · Post by **djdem** » Sat Mar 01, 2008 7:13 pm

If a bot coder could please e-mail me at deminsia@comcast.net or on irc.gamesurge.net #eglnradio and pm EGLN|R|Dem thanks.

iamdeath · Post by **iamdeath** » Sun Mar 02, 2008 9:02 am

I'd suggest you to ask your request here and wait if someone reply to you if he wants. In this case we will get to learn many things and in future the question wont be repeated as it will be already answered.

Hope you get my point

peace
death

djdem · Post by **djdem** » Sun Mar 02, 2008 12:53 pm

Good point well basicly i need a shoutcast script that will allow me to add djs and kick the auto dj also each dj needs to be able to set his or her own playlist. Also be able to set sponsors and band list of the bands we sponsor. I have tried a few i found in the archives but they do not have all the features needed. If more info needed let me know.

djdem · Post by **djdem** » Thu Mar 06, 2008 9:48 am

Ok well i found a script i could change if needed but I need to only I do not know what to change if someone could offer some help.
when i try to !kickdj or !kick which should kick the current dj it says it did but does not can someone look at this line of script and tell me why it does not work.

kick {
putquick "privmasg $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

Somewhere in that its not kicking the source any ideas anyone. Would be greatly appreciated.

YooHoo · Post by **YooHoo** » Thu Mar 06, 2008 6:10 pm

thats not the part thats gonna kick anyone. p.s. it is 'privmsg', not 'privmasg'

djdem · Post by **djdem** » Sat Mar 08, 2008 6:22 pm

ok then what should it look like to kick the dj

speechles · Post by **speechles** » Thu May 15, 2008 4:17 pm

Code: Select all

kick {
putquick "privmsg $nick :Source successfully kicked"
if {[lindex [split $streamdata] 15] == 1} {
set sock [socket $sc::vars(ip) $sc::vars(port)]

### Here is the kick call, cgi event will kicksrc
puts $sock "GET /admin.cgi?mode=kicksrc HTTP/1.1"
puts $sock "User-Agent:Mozilla"
puts $sock "Host: $sc::vars(ip)"

### That password must be correct to authorize the kick
### This is your issue ------------v
puts $sock "Authorization: Basic $sc::vars(adpass)"
puts $sock ""

### Here is the flush which will purge this thru the socket
flush $sock

All of that is fine, the cgi would kicksrc if you had the correct authorization password set in $sc::vars(adpass)....

** Note: Revived this thread because shoutcast scripts are asked for alot lately... see this post for proof..heh