File Coverage

blib/lib/SWISH/Filters/Pdf2HTML.pm

Criterion	Covered	Total	%
statement	9	41	21.9
branch	0	10	0.0
condition	0	8	0.0
subroutine	3	6	50.0
pod	1	4	25.0
total	13	69	18.8

package SWISH::Filters::Pdf2HTML;
use strict;
use vars qw( $VERSION @ISA );
$VERSION = '0.190';
@ISA = ('SWISH::Filters::Base');

sub new {
    my ($class) = @_;

    my $self = bless { mimetypes => [qr!application/pdf!], }, $class;

    return $self->set_programs(qw/ pdftotext pdfinfo /);
}

sub filter {
    my ( $self, $doc ) = @_;

    my $user_data = $doc->user_data;
    my $title_tag
        = ref $user_data eq 'HASH'
        ? $user_data->{pdf}{title_tag}
        : 'title';

    my $user_meta = $doc->meta_data || {};
    my $file = $doc->fetch_filename;

    $self->mywarn("Pdf2HTML handling $file");

    my $metadata = $self->get_pdf_headers($file);

    # merge pdf meta with meta we inherited, preferring user meta
    $metadata->{$_} = $user_meta->{$_} for keys %$user_meta;

    my $headers = $self->format_meta_headers($metadata);

    if ( $title_tag && exists $metadata->{$title_tag} ) {
        my $title = $self->escapeXML( $metadata->{$title_tag} );

        $headers = "$title\n" . $headers;
    }

    # Check for encrypted content

    my $content_ref;

    # patch provided by Martial Chartoire
    if (   $metadata->{encrypted}
        && $metadata->{encrypted} =~ /yes\.*\scopy:no\s\.*/i )
    {
        $content_ref = \'';

    }
    else {
        $content_ref = $self->get_pdf_content_ref($file);
    }

    # update the document's content type
    $doc->set_content_type('text/html');

    my $txt = <


$headers



$$content_ref



EOF

    return ( \$txt, $metadata );

}

sub get_pdf_headers {

    my ( $self, $file ) = @_;

    # We need a file name to pass to the pdf conversion programs

    my %metadata;
    my $headers = $self->run_pdfinfo($file);
    return \%metadata unless $headers;

    for ( split /\n/, $headers ) {
        if (/^\s*([^:]+):\s+(.+)$/) {
            my ( $metaname, $value ) = ( lc($1), $2 );
            $metaname =~ tr/ /_/;
            $metadata{$metaname} = $value;
        }
    }

    return \%metadata;
}

sub get_pdf_content_ref {
    my ( $self, $file ) = @_;

    my $content = $self->escapeXML( $self->run_pdftotext( $file, '-' ) );

    return \$content;
}

1;
__END__