Unnamed

            for my $entry ($feed->entries) {
                next if $seen{ $blog->id . $entry->id };

                my $id = post_to_mt( $author, $blog, $feed, $entry );
                MT->log(
                    sprintf "Refeed: Posted entry %s ('%s') as entry %d",
                        $entry->id, $entry->title, $id,
                );
                $seen{ $blog->id . $entry->id } = $id;
            }
        }
    }
}

sub post_to_mt {
    my( $author, $blog, $feed, $entry ) = @_;

    ## Ensure time is set properly by converting to UTC here.
    my $issued = $entry->issued;
    $issued->set_time_zone('UTC');

    my $content = sprintf <<HTML, $entry->content->body, $entry->link, $feed->link, $feed->title;
%s