view release on metacpan or  search on metacpan

lib/App/html2wp.pm  view on Meta::CPAN

        {url=>'prog:pod2wp'},
        {url=>'prog:wp-xmlrpc'},
    ],
};
sub html2wp {
    my %args = @_;

    my $dry_run = $args{-dry_run};

    my $filename = $args{filename};
    (-f $filename) or return [404, "No such file '$filename'"];

    require File::Slurper;
    my $html = File::Slurper::read_text($filename);

    my $title;
    if ($html =~ m!<title>(.+?)</title>!i || $html =~ m!<meta\s+name=\"?title\"?\s+content=\"?(.*?)\"?>!is) {
        $title = $1;
        log_trace("Extracted title from HTML document: %s", $title);
    } else {
        $title = "(No title)";