#!/usr/bin/perl -w

# ########################################################################
# This program converts the the output from a OPML file to the format 
# used by feed2imap. You could for example export a opml file from 
# Google reader and convert it to a .feedrc file.
# 
# #########################################################################
# This file is part of opml2feed
# 
# opml2feed is free software: you can redistribute it and/or modify
# it under the terms of the GNU Affero General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
# 
# opml2feed is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU Affero General Public License for more details.
# 
# You should have received a copy of the GNU Affero General Public License
# along with opml2feed.  If not, see <http://www.gnu.org/licenses/>.
# http://www.gnu.org/licenses/agpl-3.0.html
# #########################################################################

use strict;
use XML::Twig;
use Data::Dumper;
use URI::Escape;
binmode STDOUT, ":utf8";

my $imap_username = 'rss@example.com';
my $imap_password = 'myultracoolpassword';
my $imap_server = 'imap.example.com';
my $imap_base = 'INBOX.Feeds';
#my $maildir_base = '/home/meutel/.mail/feeds';
my $maildir_base = '/home/meutel/tmp/feeds';

# You shouldn't need to change anything after here - If you do please contribute back.
$imap_username = uri_escape_utf8( $imap_username );
$imap_password = uri_escape_utf8( $imap_password );

my $title_parent = "";
my $opmlfile= $ARGV[0] || 'google-reader-subscriptions.xml';
my $feed2imapfile= $ARGV[1] || '.feed2imaprc';

die "ERROR: $opmlfile is missing" unless -e $opmlfile;

die "ERROR: $feed2imapfile already exists" if -e $feed2imapfile;

open FH, ">>:utf8", $feed2imapfile or die "can't open '$feed2imapfile': $!";

print FH  "feeds:\n";

my $twig= new XML::Twig(
                twig_handlers =>
                  { outline => \&outline }
                       );

$twig->parsefile( $opmlfile);
close FH;

sub outline
{ my( $twig, $outline)= @_;
  $title_parent = $outline->parent->att( 'text') || "#" ;
  if ( $title_parent !~ /^\#/ )
  {
    my $title   = $outline->att( 'text');
    $title =~ s/[^a-zA-Z0-9_ .]*//g;
    $title =~ s/ {1,}/ /g;
    $title_parent =~ s/[^a-zA-Z0-9_ .]*//g;
    $title_parent =~ s/ /_/g;
    my $xmlUrl = $outline->att( 'xmlUrl');
    print FH  " - name: ${title}\n";
    print FH "   url: ${xmlUrl}\n";
    print FH "   target: maildir://${maildir_base}/${title_parent}\n";
	#print FH "   target: imap://${imap_username}:${imap_password}\@${imap_server}/${imap_base}.${title_parent}\n";
    print FH "   include-images: true\n\n";
  }
}