lib/HTML/AutoConvert/antiword.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

package HTML::AutoConvert::antiword;

=head1 NAME

HTML::AutoConvert::antiword - antiword plugin for HTML::AutoConvert

=head1 URL

Antiword can be downloaded from http://www.winfield.demon.nl/index.html

=cut

use strict;
use vars qw( %info );
use base 'HTML::AutoConvert::Run';

%info = (
  'types'   => 'doc',
  'weight'  => 90,
  'url'     => 'http://www.winfield.demon.nl/index.html',
);

sub program { ( 'antiword' ) }

sub html_convert {
  my $self = shift;
  my $html = $self->SUPER::html_convert(@_);
  "<HTML><HEAD></HEAD><BODY><PRE>\n$html\n</PRE></BODY></HTML>";
}

1;