#!/usr/bin/perl

use strict;
use warnings;
use YAML 'LoadFile';
use Data::Dumper;
use Data::UUID;
use IronMan::Schema;

my $yamlfile = shift;
my $dsn = shift;
my $yaml_dump = LoadFile($yamlfile);

# my ($sub_dbi) = grep { $_->{module} eq 'Subscription::DBI' } 
#   @{ $yaml_dump->{plugins} };
# my $schema = IronMan::Schema->connect($sub_dbi->{config}{connect_info}->[0]);
my $schema = IronMan::Schema->connect($dsn);

my ($sub_conf) = grep { $_->{module} eq 'Subscription::Config' } 
 @{ $yaml_dump->{plugins} };
print Dumper($sub_conf);
my $feeds = $sub_conf->{config}{feed};

my $uuid = Data::UUID->new();
foreach my $feed (@$feeds) {
    print "Feed: $feed->{url}\n";
    my $fdb = $schema->resultset('Feed')->find_or_new({ id => $uuid->create_str, %$feed}, { key => 'url' });
    if($fdb->in_storage) { 
        print "... already exists\n";
        next;
    }
    $fdb->insert;
}