lib/HTML/AutoConvert/antiword.pm

   1 package HTML::AutoConvert::antiword;
   2
   3 =head1 NAME
   4
   5 HTML::AutoConvert::antiword - antiword plugin for HTML::AutoConvert
   6
   7 =head1 URL
   8
   9 Antiword can be downloaded from http://www.winfield.demon.nl/index.html
  10
  11 =cut
  12
  13 use strict;
  14 use vars qw( %info );
  15 use base 'HTML::AutoConvert::Run';
  16
  17 %info = (
  18   'types'   => 'doc',
  19   'weight'  => 90,
  20   'url'     => 'http://www.winfield.demon.nl/index.html',
  21 );
  22
  23 sub program { ( 'antiword' ) }
  24
  25 sub html_convert {
  26   my $self = shift;
  27   my $html = $self->SUPER::html_convert(@_);
  28   "<HTML><HEAD></HEAD><BODY><PRE>\n$html\n</PRE></BODY></HTML>";
  29 }
  30
  31 1;