#!/usr/bin/perl
###############################################################################
#
# name:       cnv2html.pl
#
# usage:      cnv2html.pl -h <text file>
#
# decription: - convert generic text file to standard HTML paragraph format.
#             - convert to standard HTML numeric/named entities.
#             - convert separate grave accents (only "E'" to "&Egrave;" is 
#               currently activated).
#             - one or more consecutive blank lines makes the end of a
#               paragaph.
#
# author:     paolo guiducci
#
# disclaimer: You are free to use this code, being understood that I decline
#             any responsibility, direct or implied, for damages or 
#             inconveniences that its use or impossibility of use may cause
#             (directly or indirectly). If your local law does not allow a full
#             decline of responsibility by the author of a software that you
#             use, then you are not allowed to use this code or any part of it. 
#
# web:        http://pguiducci.com
###############################################################################

use Getopt::Std;

my $line;
my $file;
my $elem;
my $fl;

getopts("h") or usage();
if ($opt_h) {usage()};
$file = $ARGV[0];

if ($file eq "") {
   @fileIn = <STDIN>;
} else {
   open (IN, "< $file") or die "unable to open $file";
   @fileIn = <IN>;
   close IN;
}

print "<p>";
$fl=0;

foreach $elem (@fileIn) {
   $line=$elem;
   
#eliminate end-of-line and left/right trailing spaces
   chomp($line);
   $line =~ s/^\s+//;
   $line =~ s/\s+$//;
   
#handling end of paragraph
   if ($line eq "") {
      if ($fl) {
         print "</p>\n\n<p>";
         $fl=0;
      }
      next;
   }
   $fl=1;

#substitute multi spaces with one single space
   $line =~ s/\s+/ /g;

   print cnvEntities($line), " ";
}

print "</p>\n";
exit;


###################
### Subroutines ###
###################

sub usage {
   print "usage: cnv2html.pl -h <text file>\n";
   exit;
}

#convert to standard HTML numeric/named entities
#important: &amp; must be substituted first
sub cnvEntities {
   (my $cnvLine)=@_;
   
   $cnvLine =~ s/\x26/&amp;/g;
   
   $cnvLine =~ s/\x22/&quot;/g;
   $cnvLine =~ s/\x3C/&lt;/g;
   $cnvLine =~ s/\x3E/&gt;/g;
   
   $cnvLine =~ s/\x82/&#130;/g;
   $cnvLine =~ s/\x83/&#131;/g;
   $cnvLine =~ s/\x84/&#132;/g;
   $cnvLine =~ s/\x85/&#133;/g;
   $cnvLine =~ s/\x86/&#134;/g;
   $cnvLine =~ s/\x87/&#135;/g;
   $cnvLine =~ s/\x88/&#136;/g;
   $cnvLine =~ s/\x89/&#137;/g;
   $cnvLine =~ s/\x8A/&#138;/g;
   $cnvLine =~ s/\x8B/&#139;/g;
   $cnvLine =~ s/\x8C/&#140;/g;
   $cnvLine =~ s/\x91/&#145;/g;
   $cnvLine =~ s/\x92/&#146;/g;
   $cnvLine =~ s/\x93/&#147;/g;
   $cnvLine =~ s/\x94/&#148;/g;
   $cnvLine =~ s/\x95/&#149;/g;
   $cnvLine =~ s/\x96/&#150;/g;
   $cnvLine =~ s/\x97/&#151;/g;
   $cnvLine =~ s/\x98/&#152;/g;
   $cnvLine =~ s/\x99/&#153;/g;
   $cnvLine =~ s/\x9A/&#154;/g;
   $cnvLine =~ s/\x9B/&#155;/g;
   $cnvLine =~ s/\x9C/&#156;/g;
   $cnvLine =~ s/\x9F/&#159;/g;

   $cnvLine =~ s/\xA0/&nbsp;/g;
   $cnvLine =~ s/\xA1/&iexcl;/g;
   $cnvLine =~ s/\xA2/&cent;/g;
   $cnvLine =~ s/\xA3/&pound;/g;
   $cnvLine =~ s/\xA4/&curren;/g;
   $cnvLine =~ s/\xA5/&yen;/g;
   $cnvLine =~ s/\xA6/&brvbar;/g;
   $cnvLine =~ s/\xA7/&sect;/g;
   $cnvLine =~ s/\xA8/&uml;/g;
   $cnvLine =~ s/\xA9/&copy;/g;
   $cnvLine =~ s/\xAA/&ordf;/g;
   $cnvLine =~ s/\xAB/&laquo;/g;
   $cnvLine =~ s/\xAC/&not;/g;
   $cnvLine =~ s/\xAD/&shy;/g;
   $cnvLine =~ s/\xAE/&reg;/g;
   $cnvLine =~ s/\xAF/&macr;/g;
   $cnvLine =~ s/\xB0/&deg;/g;
   $cnvLine =~ s/\xB1/&plusmn;/g;
   $cnvLine =~ s/\xB2/&sup2;/g;
   $cnvLine =~ s/\xB3/&sup3;/g;
   $cnvLine =~ s/\xB4/&acute;/g;
   $cnvLine =~ s/\xB5/&micro;/g;
   $cnvLine =~ s/\xB6/&para;/g;
   $cnvLine =~ s/\xB7/&middot;/g;
   $cnvLine =~ s/\xB8/&cedil;/g;
   $cnvLine =~ s/\xB9/&sup1;/g;
   $cnvLine =~ s/\xBA/&ordm;/g;
   $cnvLine =~ s/\xBB/&raquo;/g;
   $cnvLine =~ s/\xBC/&frac14;/g;
   $cnvLine =~ s/\xBD/&frac12;/g;
   $cnvLine =~ s/\xBE/&frac34;/g;
   $cnvLine =~ s/\xBF/&iquest;/g;
   $cnvLine =~ s/\xC0/&Agrave;/g;
   $cnvLine =~ s/\xC1/&Aacute;/g;
   $cnvLine =~ s/\xC2/&Acirc;/g;
   $cnvLine =~ s/\xC3/&Atilde;/g;
   $cnvLine =~ s/\xC4/&Auml;/g;
   $cnvLine =~ s/\xC5/&Aring;/g;
   $cnvLine =~ s/\xC6/&AElig;/g;
   $cnvLine =~ s/\xC7/&Ccedil;/g;
   $cnvLine =~ s/\xC8/&Egrave;/g;
   $cnvLine =~ s/\xC9/&Eacute;/g;
   $cnvLine =~ s/\xCA/&Ecirc;/g;
   $cnvLine =~ s/\xCB/&Euml;/g;
   $cnvLine =~ s/\xCC/&Igrave;/g;
   $cnvLine =~ s/\xCD/&Iacute;/g;
   $cnvLine =~ s/\xCE/&Icirc;/g;
   $cnvLine =~ s/\xCF/&Iuml;/g;
   $cnvLine =~ s/\xD0/&ETH;/g;
   $cnvLine =~ s/\xD1/&Ntilde;/g;
   $cnvLine =~ s/\xD2/&Ograve;/g;
   $cnvLine =~ s/\xD3/&Oacute;/g;
   $cnvLine =~ s/\xD4/&Ocirc;/g;
   $cnvLine =~ s/\xD5/&Otilde;/g;
   $cnvLine =~ s/\xD6/&Ouml;/g;
   $cnvLine =~ s/\xD7/&times;/g;
   $cnvLine =~ s/\xD8/&Oslash;/g;
   $cnvLine =~ s/\xD9/&Ugrave;/g;
   $cnvLine =~ s/\xDA/&Uacute;/g;
   $cnvLine =~ s/\xDB/&Ucirc;/g;
   $cnvLine =~ s/\xDC/&Uuml;/g;
   $cnvLine =~ s/\xDD/&Yacute;/g;
   $cnvLine =~ s/\xDE/&THORN;/g;
   $cnvLine =~ s/\xDF/&szlig;/g;
   $cnvLine =~ s/\xE0/&agrave;/g;
   $cnvLine =~ s/\xE1/&aacute;/g;
   $cnvLine =~ s/\xE2/&acirc;/g;
   $cnvLine =~ s/\xE3/&atilde;/g;
   $cnvLine =~ s/\xE4/&auml;/g;
   $cnvLine =~ s/\xE5/&aring;/g;
   $cnvLine =~ s/\xE6/&aelig;/g;
   $cnvLine =~ s/\xE7/&ccedil;/g;
   $cnvLine =~ s/\xE8/&egrave;/g;
   $cnvLine =~ s/\xE9/&eacute;/g;
   $cnvLine =~ s/\xEA/&ecirc;/g;
   $cnvLine =~ s/\xEB/&euml;/g;
   $cnvLine =~ s/\xEC/&igrave;/g;
   $cnvLine =~ s/\xED/&iacute;/g;
   $cnvLine =~ s/\xEE/&icirc;/g;
   $cnvLine =~ s/\xEF/&iuml;/g;
   $cnvLine =~ s/\xF0/&eth;/g;
   $cnvLine =~ s/\xF1/&ntilde;/g;
   $cnvLine =~ s/\xF2/&ograve;/g;
   $cnvLine =~ s/\xF3/&oacute;/g;
   $cnvLine =~ s/\xF4/&ocirc;/g;
   $cnvLine =~ s/\xF5/&otilde;/g;
   $cnvLine =~ s/\xF6/&ouml;/g;
   $cnvLine =~ s/\xF7/&divide;/g;
   $cnvLine =~ s/\xF8/&oslash;/g;
   $cnvLine =~ s/\xF9/&ugrave;/g;
   $cnvLine =~ s/\xFA/&uacute;/g;
   $cnvLine =~ s/\xFB/&ucirc;/g;
   $cnvLine =~ s/\xFC/&uuml;/g;
   $cnvLine =~ s/\xFD/&yacute;/g;
   $cnvLine =~ s/\xFE/&thorn;/g;
   $cnvLine =~ s/\xFF/&yuml;/g;

#substitute separate grave accent
#   $cnvLine =~ s/A'/&Agrave;/g;
   $cnvLine =~ s/E'/&Egrave;/g;
#   $cnvLine =~ s/I'/&Igrave;/g;
#   $cnvLine =~ s/O'/&Ograve;/g;
#   $cnvLine =~ s/U'/&Ugrave;/g;
#   $cnvLine =~ s/a'/&agrave;/g;
#   $cnvLine =~ s/e'/&egrave;/g;
#   $cnvLine =~ s/i'/&igrave;/g;
#   $cnvLine =~ s/o'/&ograve;/g;
#   $cnvLine =~ s/u'/&ugrave;/g;

   return $cnvLine;
}