#!/usr/local/bin/perl
# *********************************************************************** #
# *									* #
# *                Copyright (c) 1996-1999 Scott Crevier		* #
# *                    All Rights Reserved Worldwide			* #
# *									* #
# *  This program product material is the property of Scott Crevier.	* #
# *  This program may be used and modified by anyone free of charge,	* #
# *  as long as this copyright notice remains in tact. By using this	* #
# *  code, you agree to indemnify Scott Crevier from any liability	* #
# *  that might arise from its use.					* #
# *									* #
# *     scott@crevier.org  -  Scott M. Crevier  -  www.crevier.org      * #
# *********************************************************************** #
# *  HyperText Converter v2.0				22-Dec-1998	* #
# *									* #
# *  The purpose of 'htc' is to convert an HTML file into an equivalent	* #
# *  HTML file that is practically impossible to read with the human	* #
# *  eye. This allows web developers to convert sensitive web pages	* #
# *  into a format, so that when the typical web surfer views the HTML	* #
# *  source, they immediately think "What the hell is this?!"		* #
# *									* #
# *  This is a perl script that converts alpha characters to their	* #
# *  equivalent values in the ISO-Latin-1 character set. It also	* #
# *  converts all newline characters to spaces.				* #
# *									* #
# *********************************************************************** #
# *  Instructions:							* #
# *									* #
# *  1. Put the 'htc' script in a directory that is referenced in	* #
# *	your PATH envirnment variable. Also make sure that the script	* #
# *	is executable (chmod 700 htc).					* #
# *									* #
# *  2. Create your HTML file just as you normally would, except for	* #
# *	the filename. Use the ".src" file extension. For example, your	* #
# *	main file would be named "index.src".				* #
# *									* #
# *  4. Run the 'htc' script, passing it your source filename as an	* #
# *	argument on the command line and redirecting the output as	* #
# *	needed.	For example:						* #
# *									* #
# *	htc index.src > index.shtml					* #
# *	OR								* #
# *	htc index.src > index.html					* #
# *									* #
# *									* #
# *********************************************************************** #
# *  WARNINGS:								* #
# *									* #
# *  1.	This is version 2.0. It's pretty crude but it works just fine.	* #
# *	Future versions may be made a little more efficient, etc.	* #
# *									* #
# *  2. Your target file may be up to 6 times larger than your source	* #
# *	file. This is not a design flaw; it's how it works. You can	* #
# *	easily understand this if you know, for example, that every	* #
# *	occurance of the letter 's' will be converted to the string	* #
# *	's'.							* #
# *									* #
# *  3.	The contents of HTML tags MUST NOT be converted, therefore,	* #
# *	they will remain in their original state and will still be	* #
# *	legible. Only the alpha text (A-Z,a-z) between HTML tags will	* #
# *	be converted. (I could have converted digits also, but it	* #
# *	really is not necessary).					* #
# *									* #
# *  4.	Since all newline characters are also removed, certain		* #
# *	implementations of JavaScript might get messed up, so pay close	* #
# *	attention.							* #
# *									* #
# *  5. If you use any character entities in your code (i.e. ©)	* #
# *	the alpha portion of the code WILL BE CONVERTED. THIS IS BAD.	* #
# *	Therefore, before converting the file, change any codes to	* #
# *	their numeric equivalent (i.e. ©).				* #
# *									* #
# *  6. This script will remove all comment lines. For purposes of	* #
# *	functionality, a comment line is defined as one that begins	* #
# *	with the 5 characters "<!-- ". Note the space at the end of	* #
# *	that string. That is to insure that server-side includes 	* #
# #	remain intact. If you have comments that span multiple lines,	* #
# *	this will NOT work. All comments must begin and end on the	* #
# *	same line.							* #
# *									* #
# *  7. I recommend setting the permissions on your source file so	* #
# *	your web server cannot read it. For example:			* #
# *									* #
# *		chmod 600 index.src					* #
# *		chmod 644 index.html					* #
# *									* #
# *	The above example sets the permissions so that the web server	* #
# *	is only allowed to access the converted copy of the file. This	* #
# *	is helpful if someone who is aware of this program sees your	* #
# *	converted source, and then attempts to view the original file	* #
# *	by just entering the filename (index.src) in their browser.	* #
# *	Be sure to try that for yourself in your browser to make sure	* #
# *	the permissions are set the way you need them.			* #
# *									* #
# *  8.	I did not write this with you in mind. I wrote it for me. So	* #
# *	you may find that certain features that could have been here 	* #
# *	are not.							* #
# *									* #
# *********************************************************************** #
# *  Possible improvements:						* #
# *									* #
# *  1. Support for ISO Latin 1 character entities (like &copy;).	* #
# *									* #
# *  2. Support for a meta tag inside the source file that will		* #
# *	indicate the target filename. For example:			* #
# *									* #
# *	<meta name="smchtc" description="index.shtml">			* #
# *									* #
# *	This will prevent you from having to redirect output into the	* #
# *	target file on the command line.				* #
# *									* #
# *  So, is that enough comment lines?					* #
# *									* #
# *********************************************************************** #

# *********************************************************************** #
# *  This script is freeware. All I ask is that you leave the following	* #
# *  plug in here so that I get credit for the work. I have provided a	* #
# *  template below for you to add any comments that you want to appear	* #
# *  legible in the HTML source.					* #
# *  Thanx, Scott							* #
# *********************************************************************** #

print <<endOfPlug;
<!-- ********************************************************************* -->
<!-- **                                                                 ** -->
<!-- **  This HTML document has been converted using Scott Crevier's	** -->
<!-- **  HyperText Converter, a perl script that makes HTML source	** -->
<!-- **  difficult to read.						** -->
<!-- **                                                                 ** -->
<!-- **  HyperText Converter is freeware (not public domain) and is	** -->
<!-- **  available from Scott Crevier's Web Resources on the web at	** -->
<!-- **  http://www.crevier.org/.					** -->
<!-- **                                                                 ** -->
<!-- **             Copyright (c) 1996-1999 Scott Crevier               ** -->
<!-- **                 All Rights Reserved Worldwide                   ** -->
<!-- **                                                                 ** -->
<!-- **                       scott\@crevier.org                         ** -->
<!-- **                                                                 ** -->
<!-- ********************************************************************* -->
endOfPlug

print "<!-- **                                                                 ** -->";

print ' ' x 20;


# *************************************************************** #
# *  Loop through each line in the file.			* #
# *************************************************************** #
$conv_flag = 1;
while (<>) {

    # *********************************************************** #
    # *  If it's a comment line, we don't want it.		* #
    # *********************************************************** #
    unless (/^<!-- /) {

        # ******************************************************* #
        # *  Loop through each character of the line.		* #
        # ******************************************************* #
        for ($i = 0; $i < length($_); $i++) {

            $ch = substr($_, $i, 1);

            # *************************************************** #
            # *  If the character is a '<' then we turn off	* #
            # *  the conversion flag, since we do not want to	* #
            # *  convert characters inside HTML tags. If the	* #
            # *  character is a '>', then we're at the end of	* #
	    # *  an HTML tag so we turn the conversion flag	* #
	    # *  back on.					* #
            # *************************************************** #
            if    ($ch eq '<') { $conv_flag = 0; }
            elsif ($ch eq '>') { $conv_flag = 1; }
       
            # *************************************************** #
	    # *  If the conversion flag is on and it's an	* #
	    # *  alpha character, then convert it to its	* #
	    # *  ordinal equivalent. Or if it's a newline,	* #
	    # *  convert it to a space. Otherwise just print	* #
	    # *  the character.					* #
            # *************************************************** #
            if ($conv_flag && &isalpha($ch))	{ print '&#', ord($ch), ';'; }
            elsif ($ch eq "\n")			{ print ' '; }
	    else				{ print $ch; }

            }
    }
}

# *************************************************************** #
# *  If you want any of your comments to appear legible in the	* #
# *  HTML source, enter them here between the two lines that	* #
# *  contain the word "userComments".				* #
# *************************************************************** #
print <<userComments;

<!-- **  If you need any info regarding the source of this file, just	** -->
<!-- **  contact Scott Crevier at scott\@crevier.org.                    ** -->
<!-- **                                                                 ** -->
<!-- ********************************************************************* -->
userComments
exit(0);


# *********************************************************************** #
# *  Subroutine to determine if a character is an alpha character.	* #
# *********************************************************************** #
sub isalpha() {
	local($ch) = @_;
	$ch =~ /[a-zA-Z]/;
}