iQs Site

#!/usr/bin/perl -w
#
# opml2mdwn.pl 
#
# This script evolved from:
#
# opml2html.pl, (c) Jeremy Zawodny -- http://jerermy.zawodny.com/blog/
#
# You may distribute this code freely.  It's not rocket science.
#
# Given an OPML file on stdin, produces an MDWN - Output of the Feedlist.
#
# Usage: opml2html.pl < foo.opml > bar.mdwn
#

use strict;      # ---- barfs out *grrr

use warnings;
use XML::Simple;
use XML::OPML;
use Data::Dumper;
use HTML::Entities;

my $xml;

{
    local($/) = undef;
    $xml = <>;
}

my $info = XML::Simple::XMLin($xml,KeyAttr=>"outline",ForceArray=>1);

print "# Feedlist \n\n\n\n";

?MyIterate($info->{body}[0]->{outline},0,5);
        
sub ?MyIterate
        {
        my $obj=shift;
        my $depth=shift;
        my $maxlevel=shift;
        
        if ( $maxlevel < 0) {return}

        my $path="";
        if ($depth>0) 
                {
                for (my $i=0; $i<$depth;$i++)
                        {
                        $path.=" ";
                        }
                }

        for my $o (@{$obj})
                {
                my $title = $o->{title};
                my $h_url = $o->{htmlurl} || $o->{htmlUrl};
                my $x_url = $o->{xmlurl}  || $o->{xmlUrl};
                my $descr = encode_entities($o->{description});
            print "\n";
            if (
                        ("" ne $title)
                &&      ("" ne $h_url)
                &&      ("" ne $x_url)
                &&      ("" ne $descr)
                )
                {
                print "$path* ";
                        print "[\\[\\]]($h_url) $title [ (Feed) ]($x_url)";
                        print "\n$descr\n" if ( $descr ne $title );
                        } else {
                        print "\n$title";
                        }
                
                ?MyIterate($o->{outline},$depth+1, $maxlevel-1);
                }
                
        }