1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

#! /usr/bin/perl
###########################################################################
# This is an example script that sends external metadata to streamripper.
# It implements an external program that:
#   1) Fetches a web page
#   2) Searches the web page for the artist and title information
#   3) Sends the information to streamripper
# 
# To invoke the script, do this:
#    streamripper URL -E "perl fetch_external_metadata.pl META_URL"
#
# This assumes that META_URL is the URL with the artist/title information
# 
# You will need perl and LWP::Simple installed to run this script. 
# On unix, you install LWP::Simple as root, like this:
#    perl -MCPAN -e 'install LWP::Simple';
# On windows, LWP::Simple is included in the ActiveState perl distribution.
#
# This script is in the public domain. You are free to use, modify and 
# redistribute without restrictions.
###########################################################################

use LWP::Simple;

if ($#ARGV != 0) {
    die "Usage: fetch_external_metadata.pl URL\n";
}
$url = $ARGV[0];

while (1) {
    my $content = get $url;

    if ($content =~ m/title="(.*)" artist="(.*)"/) {
	$title = "TITLE=$1\n";
	$artist = "ARTIST=$2\n";
	$end_of_record = ".\n";
	$meta_data = $title . $artist . $end_of_record;
	syswrite (STDOUT, $meta_data, length($meta_data));
    }
    sleep (10);
}