SWISH::Filters::pp2html - Perl extension for filtering MS PowerPoint

SWISH-Filter documentation Contained in the SWISH-Filter distribution.

Index

Code Index:

NAME

Top

SWISH::Filters::pp2html - Perl extension for filtering MS PowerPoint documents with Swish-e

DESCRIPTION

Top

This is a plug-in module that uses the xlhtml package to convert MS PowerPoint documents to html for indexing by Swish-e.

This filter plug-in requires the xlhtml package which includes ppthtml available at:

   http://chicago.sourceforge.net/xlhtml

Currently produces document titles like /tmp/foo1234. Need to alter to pass actual document title.

AUTHOR

Top

Randy Thomas

SEE ALSO

Top

SWISH::Filter

SWISH-Filter documentation Contained in the SWISH-Filter distribution. 
package SWISH::Filters::pp2html;
use strict;
use vars qw( $VERSION @ISA );
$VERSION = '0.15';
@ISA = ('SWISH::Filters::Base');

require File::Spec;

sub new {
    my ($class) = @_;
    my $self = bless { mimetypes => [qr!application/vnd.ms-powerpoint!], },
        $class;
    return $self->set_programs('ppthtml');
}

sub filter {
    my ( $self, $doc ) = @_;
    my $content = $self->run_ppthtml( $doc->fetch_filename ) || return;

    # use just the file name as title with no path
    my ($title) = ( $content =~ m!<title>(.*?)</title>!io );
    my ( $volume, $directories, $file ) = File::Spec->splitpath($title);
    my $meta = $doc->meta_data || {};
    my $headers = $self->format_meta_headers($meta);

    $meta->{title} = $file;
    $file = $self->escapeXML($file);
    $content =~ s,<title>.*?</title>,<title>$file</title>,i;

    if ( $content =~ m/<head>/i ) {
        $content =~ s/<head>/<head>$headers/i;
    }
    else {
        $content =~ s/<title>/$headers\n<title>/i;
    }

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

    return ( \$content, $meta );
}

1;
__END__