#!/usr/bin/perl

# iplayer-notify
# by Gav Ford
# revford@blueyonder.co.uk
# http://revford.pwp.blueyonder.co.uk
# 2008-05-03, updated 2008-09-25
# quickly search the BBC iPlayer and return links to shows, quiet cronjob version


use LWP::Simple;
use FindBin '$RealBin';


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


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

# print the head
foreach (@resultlist)
  {
  $thislink = $_;
  $showtitle = iplayertitle($thislink);

  print "$showtitle\n";
  print "$thislink\n\n";
  }