===== START CUT ======
#!/bin/bash

URL="http://www.radioparadise.com/musiclinks/rp_128.m3u"
DIR="/export/streams"
DURATION_HOURS=8
DURATION_SECS=$[60*60*$DURATION_HOURS]
MAX_MEGS=1024

streamripper $URL -d $DIR -l $DURATION_SECS -M $MAX_MEGS &
===== END CUT ======

===== START CUT ======
#!/usr/bin/perl

@pattern_list = (
 "incomplete",
 ".*Beatles.*",
 "Talking Heads.*",
 "Ladysmith.*",
 "Bering Strait.*",
 "Elvis Costello.*",
 "Jethro Tull.*",
);

$verbose         = 1;
$debug           = 0;
$dryrun          = 0;
$total_dirs      = 0;
$total_files     = 0;
@files_to_delete = ();

if ($ARGV[0] eq "-n") {
 $dryrun = 1;
}

foreach(@pattern_list) {
 &delete_files($_);
}

&perform_delete if (!$dryrun);

sub delete_files {
 my($pattern) = @_;
 my(@filelist, @files, @dirs);
 @filelist = &find_files(".", $pattern, 0);
 push(@files_to_delete, @filelist);
 #print "For pattern \'$pattern\' found ".@filelist." filelist:\n@filelist\n";
 foreach (@filelist) {
   if (-d $_) {
    $total_dirs++;
    push(@dirs, $_);
   } else {
     $total_files++;
     push(@files, $_);
     }
 }
 if ($verbose) {
   print "Pattern \'$pattern\' will:\n";
   print " delete ".@dirs." directories...\n" if (@dirs);
   if ($verbose > 1) {
     foreach (@dirs) {
       print " $_\n";
     }
   }
   print " delete ".@files." files...\n" if (@files);
   if ($verbose > 1) {
     foreach (@files) {
       print " $_\n";
     }
   }
 }
}

sub perform_delete {
 $| = 1;
 if ($verbose) {
   print "Total files to delete: $total_files\n";
   print "Total directories to delete: $total_dirs\n";
 }
 
 if (@files_to_delete) {
   print "Deleting..." if ($verbose);
   foreach (reverse sort @files_to_delete) {
     if (-d $_) {
       rmdir $_ or die "Couldn\'t remove directory: $_";
     } else {
        unlink $_ or die "Couldn\'t delete file: $_";
        }
   }
 }
 print "done!\n" if ($verbose);
}

sub find_files {
 my($basedir, $pattern, $recursive) = @_;
 my($entry, @entries, @subfiles);
 my(@files) = ();

 print "find_files($basedir, $pattern, $recursive) called\n" if $debug;
 opendir THISDIR, $basedir;
 @entries = grep !/^(CVS|\..*)$/, readdir THISDIR;
 closedir THISDIR; 
 print "Found these entries @entries\n" if $debug;

 foreach $entry (@entries) {
   print "...checking entry \n" if $debug;
   if ( $entry =~ /^$pattern$/ ) {
     push(@files, $entry);

     if ( -d "$basedir/$entry" ) {
       @subfiles = &find_files("$basedir/$$ntry", ".*", 1);
       @subfiles = map "$entry/$_", @subfiles;
       print "In $basedir/$entry, found these files @subfiles\n" if $debug;
       push(@files, @subfiles);
     }
   } elsif ( -d "$basedir/$entry" ) {
     if ($recursive) {
       @subfiles = &find_files("$basedir/", $pattern, $recursive);
       @subfiles = map "$entry/$_", @subfiles;
       print "In $basedir/$entry, found these files @subfiles\n" if $debug;
       push(@files, @subfiles);
     }
   }
 }

 print "find_files($basedir, $pattern, $recursive) returned @files\n" if $debug;
 return (@files);
}

===== END CUT ======