| View previous topic :: View next topic |
| Author |
Message |
TonyMont
Voice
Joined: 11 Jul 2008
Posts: 2
|
 Posted: Fri Jul 11, 2008 5:33 am Post subject: Shoutcast addon not working. |
 |
|
I am not an eggdrop expert, hosted eggdrop 8 years ago.
I got my eggdrop working, it also joins my channel.
When i ask stream status, !stream:status
i get error:
<safeguild> [12:24] Tcl error [shoutinfo]: couldn't execute "usr/bin/perl": permission denied
I post my config below:
| Code: |
##############################################################################
#
# Eggdrop Script for ShoutCast stats
# Copyright (C) 2003-2004 by Tim Niemueller <tim@niemueller.de>
# http://www.niemueller.de/software/eggdrop/shout/
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# Created : May 2003
#
# $Id: shout.tcl,v 1.1.1.1 2004/01/26 00:38:46 tim Exp $
#
##############################################################################
###CONFIGSTART###
# URL of shoutcast info page
set url "http://pkcenter.nl:9000/"
# The full path to shout.pl
set shoutpath "scripts/shout.pl"
# path to your perl binary
set perlbin "usr/bin/perl"
###CONFIGEND###
# some random monkey code by tim
####### DON'T CHANGE ANYTHING BELOW HERE! #######
bind pub - !stream:peak shoutinfo
bind pub - !stream:genre shoutinfo
bind pub - !stream:status shoutinfo
bind pub - !stream:track shoutinfo
bind pub - !stream:help shouthelp
bind pub - !stream shouthelp
proc shoutinfo {nick mask hand chan text} {
global shoutpath perlbin method url lastbind
#putlog "Called for $chan"
set what "Stream Status"
switch -- $lastbind {
!stream:peak { set what "Listener Peak"; }
!stream:genre { set what "Stream Genre" }
!stream:track { set what "Current Song" }
}
# colored
# pushmode $chan -c
# flushmode $chan
# set displaytext "\002\0037[string index $what 0]\00315[string range $what 1 end]: \002"
# inverted
set displaytext "\002\026 ~> $what:\002 "
set f [open "|$perlbin $shoutpath $url $what"]
set output [read $f]
close $f
set lines [split $output "\n"]
foreach l $lines {
if {[string compare $l ""] != 0} {
putserv "PRIVMSG $chan :$displaytext$l "
}
}
# colored
# pushmode $chan +c
# flushmode $chan
}
proc shouthelp {nick uhost hand chan text} {
puthelp "NOTICE $nick :\002Usage of Shout Stream Info\002"
puthelp "NOTICE $nick :\002!stream:status\002: Current Stream Status"
puthelp "NOTICE $nick :\002!stream:peak\002: Listener Peak"
puthelp "NOTICE $nick :\002!stream:genre\002: Genre"
puthelp "NOTICE $nick :\002!stream:track\002: Currently played track"
puthelp "NOTICE $nick :\002!stream:help\002: This help screen"
}
putlog "ShoutCast Info v0.2 by Tim Niemueller \[http://www.niemueller.de\] loaded"
|
Last edited by TonyMont on Fri Jul 11, 2008 6:27 am; edited 1 time in total |
|
| Back to top |
|
 |
TonyMont
Voice
Joined: 11 Jul 2008
Posts: 2
|
|
| Back to top |
|
|
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Fri Jul 11, 2008 6:53 pm Post subject: |
|
|
| Quote: | | Code: | | <safeguild> [12:24] Tcl error [shoutinfo]: couldn't execute "usr/bin/perl": permission denied |
|
You need to have the shell administrator fix this.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
