#! /usr/bin/perl
#use warnings;
use LWP::Simple;
use Getopt::Std;


getopts( "dvs" );

fork && exit if ($opt_d);

##############Config################
my $home = "/home/nathan/"; #home directory
my $psd = "$home/.perlsynd"; #logfile directory
my $log = "$psd/podcast.log"; #logfile
my $music = "$home/music"; #music directory
####################################

mkdir $psd unless -d $psd;

unless (-e $log) {
	open(CREATE, "> $log") or die("Couldn't make $log: $!");
	print CREATE "#perlsynd log#";
	close(CREATE);
}

#set date for making directory
($day, $month, $year) = (localtime)[3..5];
$year += 1900;
$month++;
$date = "$year-$month-$day";
$dir = "$music/podcasts/$date";

#open file to create an array to test against
open FILE, "< $log" or die("Can't open podcast.log for reading:$!");
@test=<FILE>;
close FILE;

#open file to add to log file
open(CONF, ">> $log") or die("Can't open podcast.log for writing");

#making directory and chdir to it
mkdir($dir) unless -d $dir;
chdir($dir) or die("Can't change directory: $!");

#basic extraction of urls
foreach (<DATA>) {
 $rss = get($_) or warn("Cant get $_: $!");
 while ($rss =~ /url\s*=\s*["']?[^ '">]+/gi) {
  ($url = $&)=~ s/^url=['"]?([^'" >]+?)['"]?/$1/gi;
  #added for lugradio
  $url =~ s/\?podcast$//;
  ($url =~ m#[^/ >]+?$#i);
  #creating scalar to test against
  $line = join( $", @test) or die("Join failed:$!");

  if ($opt_v) {
   #Verbose
   print "Getting: $url\n\t" unless $line =~ /$&/;
   print "as: $&\n\n" unless $line =~ /$&/;
  }
  unless (defined($opt_s)) {
   #downloading file
   #print "Downloading ...\n" unless $line =~ /$&/;
   getstore($url, $&) unless $line =~ /$&/;
   #entering file into log
   print CONF "$&\n" unless $line =~ /$&/;
  }
 }
}
__DATA__
http://www.thelinuxlink.net/tllts/tllts_ogg.rss