Anti stream ripping script. How to implement?

Read 5353 times
I found this script while hunting for a way to deter streamrippers.  Is it possible to implement it on Centova?

***********************************************************************************
#!/usr/bin/perl

# Smoothbeats Anti-Ripping Technology (ART)

# Written for Smoothbeats.com



use strict;

use LWP::Simple qw($ua get);

use LWP::UserAgent;



# ****************************************

# Script settings



my $server="your_server";

my $port = "8000";

my $password = "your_password";

my $art_freq = 110;  # How frequently should the ART message be displayed?

my $art_delay = 10;  # How long should the ART message be displayed for?

my $art_message = "Dynamic Range Radio";



# ****************************************





my($title, $last_update);



# LWP settings for http request

#$ua->proxy('http','http://proxy.com:8080');  # Uncomment if you need to configure a proxy

$ua->agent('Mozilla/5.0');



while(1) {

  # Retrieve current title

  $title = (getdata($server, $port))[6];



  # Update title with ART message

  &settitle($server, $port, $art_message, $password);



  $last_update = time;

  sleep($art_delay);



  # Set title back

  &settitle($server, $port, $title, $password);



  sleep($art_freq);

}







sub getdata {

  my($server, $port) = @_;

  my($content,@data);



  # Get content from 7.html

  $content = get("http://$server:$port/7");



  # Parse fields from content

  (@data) = ($content =~ m/<body>(.*?),(.*?),(.*?),(.*?),(.*?),(.*?),(.*)<\/body>/is);



  return(@data);

}







sub settitle {

  my($server, $port, $title, $password) = @_;

  my($content);



  $content = get("http://$server:$port/admin.cgi?mode=updinfo&song=$title&pass=$password");

}
**********************************************************************************