#!/usr/bin/perl

# iplayer-search
# by Gav Ford
# revford@blueyonder.co.uk
# http://revford.pwp.blueyonder.co.uk
# 2008-04-16, updated 2008-09-25
# quickly search the BBC iPlayer and return links to shows


use LWP::Simple;
use FindBin '$RealBin';
use Term::ANSIColor qw(:constants);


require "$RealBin/lib-rf-iplayer.pl";


@resultlist = iplayersearch(join '+', @ARGV);

# print the head
print CYAN, "BBC iPlayer search results\n", RESET;
print 'search term: ';
foreach (@ARGV) {print "$_ "};
print "\n\n";

foreach (@resultlist)
  {
  $thislink = $_;
  $showtitle = iplayertitle($thislink);

  print "$showtitle\n";
  print YELLOW, $thislink, RESET . "\n\n";
  }