use strict;
use warnings;

use File::Basename;
use File::Find ();
use Getopt::Std;
use Linux::Inotify2;
use POE qw( Kernel Session Wheel::Run );

$|++;

#######################################
#######################################

our @found_dirs;
our $max_concurrent_tasks;

sub watch_add_dir {
 my ($heap_ref, $session, $dir_name) = @_;

 ##############
 # Watch this directory with a call back
 #  to the watch_hdlr() subroutine via
 #  a message to the POE system
 ##############
 $heap_ref->{inotify}->watch($dir_name, IN_CREATE|IN_CLOSE_WRITE, $session->postback("watch_hdlr"));
 print " Watching directory $dir_name\n";
}

sub watch_hdlr {
 my ($kernel, $heap, $session, $event) = ( $_[KERNEL], $_[HEAP], $_[SESSION], $_[ARG1][0] );

 my $name = $event->fullname;
 my $short_name = $event->name;

 ##############
 # We can receive many many notifications
 #  for a file.  If we’ve already processed
 #  the file, do nothing.
 ##############
 unless ($heap->{inotify}{files}{$name}) {

  ##############
  # If a new directory is added, we need
  #  to watch that directory too.
  ##############
  if ($event->IN_CREATE && -d $name) {
   print "New directory: $name\n";
   watch_add_dir($heap, $session, $name);
   } elsif ($event->IN_CLOSE_WRITE) {

   ##############
   # When a file descriptor that was opened for
   #  ’writing’ is closed, then process that
   #  file it was being written to.  We’re
   #  assuming that the file is complete at this
   #  point as the operation will be a copy into
   #  the watched directory
   ##############
   my $ext = ( fileparse($name, ‘\..*’) )[2];

   if (lc($ext) eq ‘.mp3′) {
    ##############
    # Add the file to the file process queue
    ##############
    push @{ $heap->{task}{task_files} }, $name;

    ##############
    # Mark that we have processed the file.  If
    #  we don’t we will end up processing the file
    #  in an infinite loop because we are modifying
    #  the files.
    ##############
    $heap->{inotify}{files}{$name} = 1;

    ##############
    # Yield to "task_next_file" through so
    #  that we can process files in the queue.
    ##############
    $kernel->yield("task_next_file");
   }

   $heap->{inotify}{files}{$name} = 1;
  }
 }

 ##############
 # While possible, it is highly unlikely that we will
 #  overflow the notification buffers within the Linux
 #  kernel.  If so, we should report that.
 ##############
  print "events for $name have been lost\n" if $event->IN_Q_OVERFLOW;
}

sub task_next_file {
 my ($kernel, $heap) = @_[ KERNEL, HEAP ];

 ##############
 # Process the files in the queue up
 #  to the $max_concurrent_tasks at
 #  once.  Any extras will be processed
 #  when a file (task) completes.
 ##############
 while ( keys( %{ $heap->{task} } ) < $max_concurrent_tasks ) {
  my $next_task_file = shift @{ $heap->{task}{task_files} };

  ##############
  # If the $next_task_file is empty, then we can safely
  #  ignore it.
  ##############
  last unless defined $next_task_file;

  ##############
  # Use POE::Wheel::Run to fire off the
  #  file processing using a sub process
  #  to the process_file() subroutine
  ##############
  my $task = POE::Wheel::Run->new (
    Program => sub { process_file($next_task_file) },
    StdoutEvent => "task_output",
    CloseEvent => "task_done",
   );

  ##############
  # Update the session with the task
  #  information and the kernel with
  #  the SIG_CHILD handler.  These are
  #  necessary for the task to execute.
  ##############
  $heap->{task}->{ $task->ID } = $task;
  $kernel->sig_child( $task->PID, "sig_child");
 }
}

sub process_file {
 my $file = shift;

 print "  Processed \"$file\"\n";

 ##############
 # Use the eyeD3 package to convert
 #  the mp3 id3v2/3/4 to id3v1.  If
 #  eyeD3 fails, we don’t really care.
 ##############
 my $cmd_output = `eyeD3 –to-v1.1 "$file"`;
 $cmd_output = `eyeD3 –remove-v2 "$file"`;
}

sub find_wanted {
 my $object = $File::Find::name;

 if (-d $object) {
  push @found_dirs, $object;
 }
}

#######################################
#######################################
#######################################

my %arg_options;
my $watch_dir;

getopts(‘d:t:’, \%arg_options);

if ($arg_options{d} && -d $arg_options{d}) {
 $watch_dir = $arg_options{d};

 if ($arg_options{t} && $arg_options{t} =~ /^\d+/) {
  $max_concurrent_tasks = $arg_options{t};
 } else {
  $max_concurrent_tasks = 2;
 }

 ##############
 # We need to watch all existing sub directories
 #  so we will find them and add them to the
 #  @found_dirs array to be added to the watched
 #  directories when we create the Inotify object
 ##############
 File::Find::find({wanted => \&find_wanted}, $watch_dir);

 POE::Session->create
  ( inline_states =>
   { _start => sub {
     my $inotify_FH;

     ##############
     # alias this particular POE session to
     #  ’notify’ so we can easily reference
     #  it later if needed
     ##############
     $_[KERNEL]->alias_set(‘notify’);

     ##############
     # Create the Linux::INotify object
     ##############
     $_[HEAP]{inotify} = new Linux::Inotify2
      or die "Unable to create new inotify object: $!";

     ##############
     # Add the preexisting directories to
     #  be watched from the @found_dirs array
     ##############
     foreach my $dir (@found_dirs) {
      watch_add_dir($_[HEAP], $_[SESSION], $dir);
     }

     ##############
     # We need to create a hash in the "notify"
     #  POE session so we can determine if we’ve
     #  processed a file already
     ##############
     $_[HEAP]{inotify}{files} = {};

     ##############
     # The Inotify notifications are received
     #  on a file descriptor.  We need to read
     #  from it when there is something to be
     #  read
     ##############
     open $inotify_FH, "< &=" . $_[HEAP]{inotify}->fileno
      or die "Can’t fdopen: $!\n";

     ##############
     # Inform POE to poll the file descriptor
     ##############
     $_[KERNEL]->select_read( $inotify_FH, "inotify_poll" );
    },
    inotify_poll => sub {
     $_[HEAP]{inotify}->poll;
    },
    watch_hdlr => \&watch_hdlr,

    ##############
    # Process the next file in the queue
    ##############
    task_next_file => \&task_next_file,

    ##############
    # print the output of the job
    ##############
    task_output => sub {
     my $result = $_[ARG0];

     print "$result\n";
    },

    ##############
    # When we are done with a file, go process the
    #  next file if there is one waiting
    ##############
    task_done => sub {
     my ($kernel, $heap, $task_id) = @_[ KERNEL, HEAP, ARG0 ];

     delete $heap->{task}{$task_id};
     $kernel->yield("task_next_file");
    },
    sig_child => sub {
     my ($heap, $pid) = @_[ HEAP, ARG1 ];

     my $details = delete $heap->{$pid};
    },
   },
 );

 POE::Kernel->run();
}

exit 0;

use strict;
use warnings;

use File::Basename;
use File::Find ();
use Getopt::Std;
use Linux::Inotify2;
use POE;

$|++;

#######################################
#######################################

our @found_dirs;

sub watch_add_dir {
 my ($heap_ref, $session, $dir_name) = @_;

 $heap_ref->{inotify}->watch($dir_name, IN_CREATE|IN_CLOSE_WRITE, $session->postback("watch_hdlr"));
 print " Watching directory $dir_name\n";
}

sub watch_hdlr {
 my ($heap_ref, $session, $event) = ( $_[HEAP], $_[SESSION], $_[ARG1][0] );

 my $name = $event->fullname;
 my $short_name = $event->name;

 unless ($_[HEAP]{inotify}{files}{$name}) {
  if ($event->IN_CREATE && -d $name) {
   print "New directory: $name\n";
   watch_add_dir($heap_ref, $session, $name);
  } elsif ($event->IN_CLOSE_WRITE) {
   my $ext = ( fileparse($name, ‘\..*’) )[2];

   if (lc($ext) eq ‘.mp3′) {
    print "-"x20 . "\n";
    print "$name:\n";

    my $cmd_output = `eyeD3 –to-v1.1 "$name"`;
    $cmd_output = `eyeD3 –remove-v2 "$name"`;
   }

   $_[HEAP]{inotify}{files}{$name} = 1;
  }
 }

 print "events for $name have been lost\n" if $event->IN_Q_OVERFLOW;
}

sub find_wanted {
 my $object = $File::Find::name;

 if (-d $object) {
  push @found_dirs, $object;
 }
}

#######################################
#######################################
#######################################

my %arg_options;
my $watch_dir;

getopts(‘d:’, \%arg_options);

if ($arg_options{d} && -d $arg_options{d}) {
 $watch_dir = $arg_options{d};
 File::Find::find({wanted => \&find_wanted}, $watch_dir);

 POE::Session->create
  ( inline_states =>
   { _start => sub {
     my $inotify_FH;

     $_[KERNEL]->alias_set(‘notify’);
     $_[HEAP]{inotify} = new Linux::Inotify2
      or die "Unable to create new inotify object: $!";

     foreach my $dir (@found_dirs) {
      watch_add_dir($_[HEAP], $_[SESSION], $dir);
     }

     $_[HEAP]{inotify}{files} = {};

     open $inotify_FH, "< &=" . $_[HEAP]{inotify}->fileno
     or die "Can’t fdopen: $!\n";

     $_[KERNEL]->select_read( $inotify_FH, "inotify_poll" );
   },
   inotify_poll => sub {
    $_[HEAP]{inotify}->poll;
   },
    watch_hdlr => \&watch_hdlr,
   },
 );

 POE::Kernel->run();
}

exit 0;

use strict;
use warnings;

use utf8;

use Config::Simple;
use Date::Manip qw( ParseDate UnixDate );
use Getopt::Std;
use LWP::Simple;
use Net::FTP;
use XML::LibXML;
use XML::RSS;
use URI;

use vars qw( $opt_h $opt_n $opt_o $opt_u $opt_c );

sub print_usage {
  print "-"x40 . "\n";
  print " "x10 . "too_jewish.pl\n";
  print "-"x40 . "\n";
  print " "x4 . "-n [# episodes] : Number of episodes to list in the RSS feed\n";
  print " "x4 . "-o [filename] : Save RSS feed to file\n";
  print " "x4 . "-u     : Upload RSS feed to ftp server\n";
  print " "x4 . "-c [cfg filename]: Read configuration from filename\n";
  print " "x4 . "-h     : Print help\n";
  print "-"x40 . "\n";
}

sub format_W3CDTF_date {
  my $orig_date = shift;

  my $w3cdtf_format = "%Y-%m-%d";
  my $tmp_date = ParseDate($orig_date);
  $tmp_date = UnixDate($tmp_date, $w3cdtf_format);

  return $tmp_date;
}

sub get_episode_data {
  my $num_episodes = shift;

  my $episode_data_ref;

  # Set up the parser, and set it to recover
  # from errors so that it can handle broken
  # HTML
  my $parser = XML::LibXML->new();
  $parser->recover(1);

  # Parse the page into a DOM tree structure
  my $url = ‘http://www.toojewishradio.com/too_jewish_shows.htm’;
  my $data = get($url) or die $!;
  my $doc = $parser->parse_html_string($data);

  # Extract the table rows (as an
  # array of referrences to DOM nodes)
  my @table_rows = $doc->findnodes( q{ /html/body/table/tr } );

  @table_rows = @table_rows[1..$#table_rows];

  foreach my $row (@table_rows) {
    my $row_date = $row->find(‘string(td[1]//font/font)’)->value();
    next if $row_date =~ /^\s*$/;

    my $mp3_file = $row->find(‘string(td[2]/font//a[1]/@href)’)->value();
    next if $mp3_file =~ /^\s*$/;

    my $description = $row->find(‘string(td[2]/font)’)->value();
    next if $description =~ /^\s*$/;
    $description =~ s/\s+/ /g;
    $description =~ s/^\s+//;
    $description =~ s/\s+$//;

    my $abs_url_mp3 = URI->new($mp3_file)->abs($url)->as_string;

    push @$episode_data_ref, {
        ‘pubDate’ => $row_date,
        ‘description’ => $description,
        ‘url’ => $abs_url_mp3
      };
  }

  if ($num_episodes) {
    @$episode_data_ref = @$episode_data_ref[0..$num_episodes-1];
  }

  return $episode_data_ref;
}

sub create_rss_feed {
  my ($episode_data_ref, $rss_filename) = @_;

  my $rss = new XML::RSS (version => ’2.0′);

  $rss->channel(
    title        => ‘Too Jewish with Rabbi Cohon’,
    link       => ‘http://www.toojewishradio.com’,
    description  => ‘"Too Jewish" with Rabbi Sam Cohon and Friends plays every Sunday morning at 7:00 am on radio station KAPR 930 AM in Douglas, Bisbee, and Sierra Vista at 9:00 am, on KJAA 1240 AM in Globe at 9:00 am, and at 9:00 am on radio station KVOI AM 690 in Tucson.

"Too Jewish" is a lively and fast-paced show that highlights everything interesting in contemporary Jewish life and features music, arts, culture, comedy, and inspiration. "Too Jewish" is a blend of information, irreverence, and exploration of all things Jewish in the 21st century. "Too Jewish" makes Judaism accessible, interesting, and fun for listeners of all ages and backgrounds, and brings the best of Jewish experience vividly to life. But on "Too Jewish", Rabbi Cohon also challenges accepted pieties and has fun with anything boring or inauthentic in the way Jews live today in the United States, Israel, and everywhere else.

Since its Tucson debut August 4, 2002, "Too Jewish" has featured such prominent guests as legendary singer and recording artist Neil Sedaka, Kinky Friedman, Elie Wiesel, comedian Lily Tomlin, folksinger Peter Yarrow, NPR Supreme Court Expert Nina Totenberg, Eve Ensler, U.S. Senator Russ Feingold, and many more!

Regular expert commentators of the "Too Jewish" maven section include Tom Price, an educator and former diplomat who offers unique insights into Jewish life around the world, and Amy Hirshberg Lederman, nationally syndicated columnist, who shares stories which speak to the heart of Jewish listeners. Comedy and musical selections drawn by Rabbi Cohon from the remarkable range of great Jewish material help make listening to "Too Jewish" an exciting and fun experience.’,
    dc => {
        date     => format_W3CDTF_date(‘now’),
        subject   => ‘Jewish Radio’,
        creator   => ‘toojewishradio@yahoo.com’,
        publisher   => ‘toojewishradio@yahoo.com’,
        rights   => ‘All Rights Reserved, toojewishradio@yahoo.com’,
        language  => ‘en-us’,
      },
    sync => {
        updatePeriod   => ‘weekly’,
        updateFrequency => ’1′,
        updateBase      => format_W3CDTF_date(’01/01/1901′),
      },
    taxo => [
        ‘http://www.templeemanueltucson.org’,
        ‘http://www.toojewishradio.com/about_the_rabbi.htm’
      ],
    );

  $rss->image(
    title => ‘Too Jewish with Rabbi Cohon’,
    url    => ‘http://www.toojewishradio.com/Too%20Jewish%20logo_color.jpg’,
    link => ‘http://www.templeemanueltucson.org’,
    dc => {
      creator => ‘toojewishradio@yahoo.com’
      },
    );

  foreach my $episode (@$episode_data_ref) {
    $rss->add_item(
      title        => $episode->{description},
      enclosure     => {
        url    => $episode->{url},
        type => "audio/mpeg"
        },
      description => $episode->{description},
      pubDate     => format_W3CDTF_date( $episode->{pubDate} )
      );
  }

  if ($rss_filename) {
    $rss->save($rss_filename);
  }

  return $rss->as_string;
}

sub upload_rss_file {
  my ($ftp_server, $rss_filename) = @_;

  my $ftp = Net::FTP->new( $ftp_server->{server}, Debug => 0)
    or die "Cannot connect to $ftp_server->{server}: $@";
  $ftp->login( $ftp_server->{user}, $ftp_server->{password})
    or die "Cannot login ", $ftp->message;
  $ftp->cwd($ftp_server->{dir})
    or die "Unable to change directory to $ftp_server->{dir}", $ftp->message;
  $ftp->put($rss_filename)
    or die "Cannot upload $rss_filename", $ftp->message;
  $ftp->quit;
}

my $num_episodes;
my $ftp_server;
my $rss_filename;
my $upload;

if (getopts(‘hc:n:o:u’)) {
  if ($opt_h) {
    print_usage;
    exit;
  }

  if ($opt_n) {
    if ($opt_n =~ /^[[:digit:]]+$/) {
      $num_episodes = $opt_n;
    }
  }

  if ($opt_o) {
    $rss_filename = $opt_o;
  }

  if ($opt_u) {
    $upload = 1;

    my $cfg_filename;

    if ($opt_c && -f $opt_c) {
      $cfg_filename = $opt_c;
    } else {
      $cfg_filename = ‘.too_jewish.ini’;
    }

    my $cfg = new Config::Simple($cfg_filename);

    if ($cfg &&
        $cfg->param(‘RSS.ftp_server’) && $cfg->param(‘RSS.ftp_user’) &&
        $cfg->param(‘RSS.ftp_password’) && $cfg->param(‘RSS.ftp_dir’)
      ) {
      $ftp_server = {
        server   => $cfg->param(‘RSS.ftp_server’),
        user     => $cfg->param(‘RSS.ftp_user’),
        password  => $cfg->param(‘RSS.ftp_password’),
        dir        => $cfg->param(‘RSS.ftp_dir’)
        };
    } else {
      print "Configuration file \"$cfg_filename\" does not contain a valid configuration!\n";
      exit;
    }
  }
}

my $rss_string = create_rss_feed( get_episode_data($num_episodes), $rss_filename );

if ($rss_filename && $upload && -f $rss_filename) {
  upload_rss_file($ftp_server, $rss_filename);
} else {
  print "$rss_string\n" unless $rss_filename;
}