#!/usr/bin/perl # This makes neat little feeds. use strict; use warnings; use CGI qw(:standard); sub print_header() { print "Content-type:text/html\n\n"; print < Search feed creator (privateish beta)

Search feed creator (privateish beta)

This application will create feeds that:

  1. Search for a specific term on TokyoTosho.
  2. Filter those by making sure a specific term (Say, a fansub group name) appears in the file name
  3. Format the result as a nice RSS feed with enclosures, ready for use in any video podcast reader (Like iTunes, or Miro Player.
Basically, it makes it possible to automatically download episodes of some anime series or drama.

HEAD_HTML ; } sub print_footer() { print ""; } sub print_form() { print <Make a link

Example values are for a feed of Dattebayos Naruto fansubs.

Search term:
File name must include:
Feed title:
Feed image: (Hey, please use something you host yourself. Bandwith stealing is bad.)

FORM_HTML ; } sub print_link( $$$$ ) { my $anime = shift(); my $filter = shift(); my $title = shift(); my $image = shift(); print "

Feed for $title