PAL Script - Kick Streaming Source (this script is included in SAM Broadcaster)

{ About:
   This script will disconnect any source connected
   to a SHOUTcast server and then connects this
   SAM Broadcaster as the new source.
   
   Usage:
    a) Create a single MP3 encoder to connect to the shoutcast server.
    b) Supply your shoutcast server details in the configuration section below
    c) Use the Event Scheduler to start this PAL script at the correct time.
}
{ CONFIGURATION }
{==================================================}
const shoutcast_password = 'changeme';
const shoutcast_host     = 'localhost';
const shoutcast_port     = '8000';
{==================================================}


{ IMPLEMENTATION }
{--------------------------------------------------}

{ Build URL used to send command to SHOUTcast server }
var URL : String;
URL := 'http://admin:'+shoutcast_password+'@'+shoutcast_host+':'+shoutcast_port+'/admin.cgi?mode=kicksrc';

{ Kick source from SHOUTcast server }
WebToFile('c:\dummy.txt',URL);

{ Now start & connect all encoders }
{ NOTE: This assumes you only have one encoder }
Encoders.StartAll;

{TIP: Use this to start a specific encoder:
Encoders[0].Start;
}

{--------------------------------------------------}