#!/usr/bin/perl -w

# mplay.pl - by dual
# stream your favorite internet radio stations at the command line

use strict;

help() unless defined(my $chan = shift);

if ($chan =~ /air/) {
	system("mplayer http://69.56.202.180:9100");
}
elsif ($chan =~ /bass/) {
	system("mplayer http://us-dc1.streams.bassdrive.com:8012");
}
elsif ($chan =~ /di/) {
	system("mplayer http://205.188.234.68:8006");
}
elsif ($chan =~ /ind/) {
	system("mplayer http://198.172.235.21:8000");
}
elsif ($chan =~ /talk/) {
	system("mplayer http://broadcast.rantradio.com:9010");
}
else { help(); }

sub help {
	print "usage: mplay <channel>\n";
	print "channels:\n";
	print "air  - trance airlines\n";
	print "bass - bassdrive\n";
	print "di   - digitally imported\n";
	print "ind  - rantradio industrial\n";
	print "talk - rantradio talk\n";
	exit;
}