It’s actually relatively easy (as you are about to see) and really only requires a few lines of PHP code on the web end and the same again in TCL on the eggdrop. The general idea is that the eggdrop will open up a socket and sit listening waiting for data to come through before displaying the message. For the PHP end it is as simple as connecting to said socket and sending through some data.

First things first, the TCL script sock-listen.tcl:

set output_chan "#chan"
# eggdrop port to bindset 
port 7878
# eggdrop ip to bind
set host xxx.xxx.xxx.xxx
set serverSocket [socket -server main -myaddr $host $port]
proc main { sock host port } {
  fconfigure $sock -buffering line
  fileevent $sock readable [action $sock $host $port]
}
proc action { chan host port } {
  global output_chan
  if {![eof $chan]} {
    set soc_data [gets $chan]
    if {$soc_data != ""} {
      putquick "PRIVMSG $output_chan :$host | $port $soc_data"
    }
  } { close $chan }
}
putlog "sock-listen.tcl loaded"

That’s it! Simple enough. Create a socket which will sit and listen waiting for something to connect and send through data. Once a connection is made call the ‘action’ function which will  send a message to the channel with the host, port and socket data.

To get that up and running just copy sock-listen.tcl into the scripts folder of your eggdrop and include it in your config file. Don’t forget to change the channel, IP address and port. Once you rehash or reconnect the bot the socket will automatically start listening.

Now to send messages from PHP is very straight forward, just open up a socket and connect to the IP/port specified in the TCL script. Send through a message and watch it come out the other end (IRC channel).

To do this we create a php file called send.php and place the following code:

<?php
//eggdrop port
$egg_port = 7878;
//eggdrop ip
$egg_ip = 'xxx.xxx.xxx.xxx';
// message to send
$msg = 'Sent from a PHP page';
$sock = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
socket_connect($sock, $egg_ip, $egg_port) or die ('failed to connect!');
socket_write($sock, $msg);
socket_close($sock);
?>

Again, easy enough. Make sure you set the correct IP address and port and then upload the file. Point your browser to it and watch the magic happen. You should see the following message appear on the IRC channel:

xxx.xxx.xxx.xxx | 7878 | Sent from a PHP page

To make it easier I’ve added a small form which will allow you to customize the message to your liking. Again send.php:

<?php
//eggdrop port$egg_port = 7878;
//eggdrop ip
$egg_ip = 'xxx.xxx.xxx.xxx';

if (isset($_POST['message'])) {
  $msg = $_POST['message'];   
  $sock = socket_create(AF_INET, SOCK_STREAM, SOL_TCP);
  socket_connect($sock, $egg_ip, $egg_port) or die ('failed to connect!');
  socket_write($sock, $msg);
  socket_close($sock);
  header("Location: send.php");
}
?>
<form action='send.php' method='POST'>
<input type='text' name='message' cols='20'><br>
<input type='submit' value='send'>
</form>

It isn’t all that secure but gives you a general idea of what you can do. To implement it into the examples I posted at the start all you really need to do is edit the submit/post PHP files and place the socket code above with a customized message in.

This isn’t limited to just PHP. Something similar could easily be set up in a number or any other languages as well. Simply by opening the socket and sending the data.

Something simple for  the day. Have a play around and let me know if you make any improvements. Feel free to ask any questions, I’ll do my best to answer them 

Also feel free to follow me on twitter: @JAGracie

The post Sending messages to an Eggdrop via PHP first appeared on Devhour.

Shoutcast TCL Script

I was recently approached by a friend to help out with a TCL script for his  Shoutcast radio station. He has an eggdrop running on the EFNet IRC server which acts as an announcer for the radio station. It gives users the ability to call commands such as what song is currently playing, what is playing next and  general advertising of the station.

Shoutcast have recently had a big upgrade to their software and in particular the admin interface. While this is always a welcome edition due to new features and bug fixes one of the downsides is that scripts that use the old software tend to be made null and void. In particular changes to the XML and the inclusion of stream IDs broke most of the old TCL scripts.

I wouldn’t say I am particularly skilled in the TCL language but I’m always willing to give something a go and by looking at the old scripts and the newer admin interface I did manage to make a fairly feature rich Shoutcast announcement script.

The below code block outlines how I made the basic commands by using an http connection to browse to the admin xml webpage and then using an exceptional TCL package called tDom to extract particular XML nodes and their inline text. This text is then displayed to an IRC channel.

package require http
package require tdom

bind pub -|- !song currsong

proc currplaying {nick uhost hand chan arg} { 
  global siteurl djchan radiochan adminpass  
  # Create an HTTP request to the admin xml page :
  :http::config -useragent "Mozilla/5.0; Shoutinfo" 
  set http_req [::http::geturl http://$siteurl:8000/admin.cgi?pass=$adminpass&sid=1&mode=viewxml&page=0 -timeout 2000]
  if {[::http::status $http_req] != "ok"} { 
    putnow "PRIVMSG $chan :Stream is unavailable"; 
  } 
  set data [::http::data $http_req] ::http::cleanup $http_req  
  # Create dom document 
  set doc [dom parse $data] set xmlNodes [$doc documentElement]  
  # Grab Stream status from XML to check if the station is currently online or not 
  if {[[$xmlNodes selectNodes /SHOUTCASTSERVER/STREAMSTATUS/text()] data] == "1"} {  
    # If it is online display a message to the channel the current playing song 
    putnow "PRIVMSG $chan :\002Current Song\002: [[$xmlNodes selectNodes /SHOUTCASTSERVER/SONGTITLE/text()] data]" 
  } else {    
    # Otherwise let the user kmow the server is offline 
    if {$chan != $djchan} { 
      putnow "PRIVMSG $chan :Server status is offline..." 
    } else { 
      putnow "NOTICE $nick :Server status is offline..." 
    }
  }
}

I won’t go through it line by line as most of it is standard TCL code but I will point out the bits important to this post. Firstly you can see I include two packages. HTTP and tDom. As mentioned previously this allows me to make http calls and then extract and use the XML nodes.

package require http
package requite tdom

Next up  I make an http call to the servers admin interface passing through the $siteurl and $adminpass variables. These are set at the top of the script as global variables. As you can see in the url I am also calling &mode=viewxml to display the output in XML.

::http::config -useragent "Mozilla/5.0; Shoutinfo" 
set http_req [::http::geturl http://$siteurl:8000/admin.cgi?pass=$adminpass&sid=1&mode=viewxml&page=0 -timeout 2000] 
if {[::http::status $http_req] != "ok"} { 
  putnow "PRIVMSG $chan :Stream is unavailable"; 
} 
set data [::http::data $http_req] ::http::cleanup $http_req

Finally I create a Dom document from the returned http data and use that to extract particular nodes.

set doc [dom parse $data]
set xmlNodes [$doc documentElement]
putnow "PRIVMSG $chan :\002Current Song\002: [[$xmlNodes selectNodes /SHOUTCASTSERVER/SONGTITLE/text()] data]"

This similar technique is also used to display the next song, current bitrate, current listeners which are all grabbed from the XML output. Other features of the script include:

• Topic changes for when the radio station comes online/goes offline
• A periodic timer to check and show song changes
• A timer to check if the peak listeners changes
• Commands to show current song, next song, server status, radio url and radio url
• Ability for operators to disconnect current dj
• Ability for users to request songs (which are displayed to a separate dj channel)
• List the 10 previous songs
• Display the current and peak listeners

I add the script to my github page soon, so feel free to check it out and replace any old scripts you may have. I’m always up for a challenge so if you have any ideas for new features drop a comment or tweet and I’ll be happy to discuss it.

If you want to see it in action jump on EFNet and join the #android-radio channel.

The post Shoutcast TCL script for eggdrops first appeared on Devhour.