#!/usr/bin/perl
# Michael Tartaglia - Fading Text: User enters three colors
#	and a text string and the colors fade letter by letter
#	through that string. This script was translated from
#	its original JScript, also by Michael Tartaglia.
#	Orig. addr: http://members.aol.com/shmajent/misc/textfade.html


require template;
require math;

template::startHTML("Freelance Program","Fading Text");


# READ IN ENVIRONMENT VARIABLE "QUERY_STRING"

if ($ENV{QUERY_STRING} ne "") {
 $buffer = $ENV{'QUERY_STRING'};
 @pairs = split(/&/, $buffer);
 foreach $pair (@pairs) {
  ($name, $value) = split (/=/, $pair);
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ tr/</&lt;/;
  $FORM{$name} = $value;
 }

  $s = caps($FORM{'startColor'} eq "" ? $FORM{'c1'} : $FORM{'startColor'});	# START COLOR
  $e = caps($FORM{'endColor'} eq "" ? $FORM{'c2'} : $FORM{'endColor'});		# ... FADE-TO COLOR
  $b = caps($FORM{'backColor'} ne "" ? checkHex($FORM{'backColor'}) : $FORM{'backColor'});  # BG COLOR
  $x = $FORM{'text'};		# TEXT STRING


 if ($x ne "") {
  $faded= fadeText(checkHex($s), checkHex($e), $b, $x);		# FADED STRING AS HTML

  # PRINTING OUT RESULTS
  print "\n<font color=\"#252555\"><i>Results...</i></font><BR>",
	"\n<font size=5><b>$faded</b></font><BR><BR>\n",
	"<font color=\"#252555\"><i>...and now copy the code:</i></font>",
	"\n<form><textarea cols=37 rows=10>&lt;font size=5&gt;",
	"\n&lt;b&gt;$faded&lt;/b&gt;&lt;/font&gt;</textarea></form><br>",
	"\n<IMG SRC=\"../images/line.gif\" WIDTH=100% HEIGHT=2 VSPACE=0 ",
	"ALT=\"-------\">\n";
 } else {

  # IF NO TEXT HAS BEEN ENTERED
  print "<B><FONT SIZE=5 COLOR=red>Warning</FONT></B><BR>You have not ",
        "filled your text field!<BR><BR>";
 }
} else {
 $s = "";	# DEFAULT START VALUE
 $e = "";	# DEFAULT END VALUE
 $b = "";	# DEFAULT BG VALUE
 $x = "";	# DEFAULT TEXT
}

$showList = printColorList();	# INSTEAD OF REPEATING HTML SELECTION LIST,
				#    LIST IS SAVED AS VARIABLE, AND VARIABLE
				#    IS USED TO PRINT THE LIST


# PRINT FORM TO SCREEN WITH INSTRUCTIONS
print <<EndOfHTML;
   <FORM NAME="theForm" METHOD="get" ACTION="fadetext.cgi">
	<b><font 
	color="#252555">W</font><font 
	color="#292957">e</font><font 
	color="#2C2C58">l</font><font 
	color="#20205A">c</font><font 
	color="#34345C">o</font><font 
	color="#37375E">m</font><font 
	color="#3B3B5F">e</font> <font 
	color="#424263">T</font><font 
	color="#464664">o</font> <font 
	color="#4D4D68">T</font><font 
	color="#51516A">h</font><font 
	color="#54546B">e</font> <font 
	color="#5C5C6F">T</font><font 
	color="#5F5F71">e</font><font 
	color="#636372">x</font><font 
	color="#676774">t</font> <font 
	color="#6E6E77">F</font><font 
	color="#717179">a</font><font 
	color="#75757B">d</font><font 
	color="#79797D">e</font><font 
	color="#7C7C7E">r</font><font 
	color="#707070">!</font></b><BR>
	Enter the hexidecimal codes in the appropriate fields below,
	then type in the text you want the colors to fade through,
	and finally, click the submit button to see the result!
	The HTML code will then be waiting for you with a sample!<BR>
	<input type="reset"><input type="submit"><BR><BR>
	<B>From which color?</B><BR>#<INPUT TYPE="text" NAME="startColor"
	MAXLENGTH=6 SIZE=6
	onFocus="c1.options[0].selected=true;this.value='';">
	<SELECT onChange="s=this.options[this.selectedIndex].value;
			  startColor.value=s;
			  if (this.style) this.style.color=s;"
	NAME="c1">$showList
	</SELECT><BR><BR>
	<B>To which color?</B><BR>#<INPUT TYPE="text" NAME="endColor"
	MAXLENGTH=6 SIZE=6
	onFocus="c2.options[0].selected=true;this.value=''">
	<SELECT onChange="s=this.options[this.selectedIndex].value;
			  endColor.value=s;
			  if (this.style) this.style.color=s;"
	NAME="c2">$showList
	</SELECT><BR><BR>
	<B>With what background?</B><BR>#<INPUT TYPE="text" 
	NAME="backColor" MAXLENGTH=6 SIZE=6 
	onFocus="c3.options[0].selected=true;this.value=''">
	<SELECT onChange="s=this.options[this.selectedIndex].value;
			  backColor.value=s;
			  if (this.style) this.style.color=s;"
	NAME="c3">$showList
	<OPTION VALUE="">
	<OPTION VALUE="">(No Background)
	</SELECT><BR>(leave blank if no background is desired)<BR><BR>
	<B>What message?</B><BR>
	<TEXTAREA NAME="text" COLS=35 ROWS=4 WRAP="virtual" onFocus="this.value=''">$x</TEXTAREA>
   </FORM>
   <SCRIPT LANGUAGE="JavaScript">
   <!-- Begin
	// SCRIPT AUTOMATICALLY SELECTS QUERIED COLOR AS DEFAULT WHEN PAGE IS RELOADED
	a = new Array("$s","$e","$b");
	with (document.theForm) {
        	startColor.value = "$s";	// START COLOR
        	endColor.value = "$e";		// END COLOR
        	backColor.value = "$b";		// BG COLOR
		for (j = 0; j < c1.options.length; ++j) {
			if (c1.options[j].value == a[0]) {
				c1.options[j].selected = true;
				break;
			}
		}
		for (j = 0; j < c2.options.length;++j) {
			if (c2.options[j].value == a[1]) {
				c2.options[j].selected = true;
				break;
			}
		}
		if (a[2] == "") c3.options[c3.options.length-1].selected = true;
		else {
			for (j = 0; j < c3.options.length; ++j) {
				if (c3.options[j].value == a[2]) {
					c3.options[j].selected = true;
					break;
				}
			}
		}
	}
   // End -->
   </SCRIPT>
EndOfHTML

template::endHTML();




sub fadeText
{
 $fromColor = $_[0];
 $toColor = $_[1];
 $bgColor = $_[2];
 $text = $_[3];

 # IF BG IS DESIRED, USE SPAN TAG...
 $HTMLout = "";
 $HTMLout = "<SPAN STYLE=\"background: \#$bgColor\">" if ($_[2] ne "");

 $textL = length $text;

 @fromColorsSplit = ( hex substr ($fromColor, 0, 2),
		      hex substr ($fromColor, 2, 2),
		      hex substr ($fromColor, 4, 2) );

 @toColorsSplit = ( hex substr ($toColor, 0, 2),
		    hex substr ($toColor, 2, 2),
		    hex substr ($toColor, 4, 2) );

 # VALUES BY WHICH TO INCREMENT RED, GREEN, AND BLUE
 @inc = ( (($fromColorsSplit[0]-$toColorsSplit[0])/($textL-1)),
	  (($fromColorsSplit[1]-$toColorsSplit[1])/($textL-1)),
	  (($fromColorsSplit[2]-$toColorsSplit[2])/($textL-1)) );


 # FOR AS MANY LETTERS IN THE STRING, START FROM BEGINNING COLOR
 #    AND ADD BY VALUES IN @inc UNTIL END COLOR IS REACHED
 for ($i = 0; $i < $textL; ++$i)
 {
  $letter = substr($text, $i, 1);
  if ($letter ne " ") {
   $hexColor = numberToHex($fromColorsSplit[0], $fromColorsSplit[1],
			   $fromColorsSplit[2]);
   $HTMLout = $HTMLout . "<font \ncolor=\"#$hexColor\">$letter</font>";
  } else {
   $HTMLout = $HTMLout . " ";
  }

  $fromColorsSplit[0] -= eval($inc[0]);
  $fromColorsSplit[1] -= eval($inc[1]);
  $fromColorsSplit[2] -= eval($inc[2]);
 }

 $HTMLout = $HTMLout . "</SPAN>" if ($bgColor ne "");

 return $HTMLout; 
}


# VERIFY THAT ENTERED HEXIDECIMAL CODE IS VALID
sub checkHex
{
 @hexLetters = qw ( 0 .. 9 A .. F );
 $hexIn = $_[0];
 $hexOK = "";
 $hexInL= length $hexIn;
 for ($digit = 0; $digit < 16; ++$digit) {
  $match = 0;
  foreach (0 .. $hexInL) {
   $match = 1 if (substr($hexIn,$digit,1) ne [a-fA-F0-9]);
  }
  if ($match) {
   $hexOK = $hexOK . substr($hexIn,$digit,1);
  } else {
   $hexOK = $hexOK . "F";
  }
 }
 if ($hexInL-6 != 0) {
  for ($digit = 0; $digit < $hexInL-6; ++$digit) {
   $hexOK = $hexOK . "0";
  }
 }
 return $hexOK;
}


# CONVERT DECIMAL TO HEXIDECIMAL
sub numberToHex
{
 @inArray = (math::round($_[0]), math::round($_[1]), math::round($_[2]));
 @hexLetters = ("0","1","2","3","4","5","6","7","8","9",
		"A","B","C","D","E","F");
 $outHex = "";
 for ($pair = 0; $pair < 3; ++$pair)
 {
  if ($inArray[$pair] >= 255) {
   $outHex = $outHex . "FF";
  } elsif ($inArray[$pair] <= 0) {
   $outHex = $outHex . "00";
  } else {
   $outHex = $outHex . "" . $hexLetters[math::floor($inArray[$pair]/16)]
	. $hexLetters[$inArray[$pair]%16];
  }
 }
 return $outHex;
}

sub caps
{
 return "\U$_[0]\E";
}


# RETURN COLOR LIST TO VARIABLE, THEREBY AVOIDING REDUNDANCY
sub printColorList
{
return <<EndOfList;
	<OPTION VALUE="">Some choices:
	<OPTION VALUE="">
	<OPTION VALUE="FF0000">Red
	<OPTION VALUE="800000">Crimson
	<OPTION VALUE="FFAAAA">Pink
	<OPTION VALUE="BC8F8F">Dusty Pink
	<OPTION VALUE="8E236B">Maroon
	<OPTION VALUE="">
	<OPTION VALUE="FF7F00">Orange
	<OPTION VALUE="FF2400">Orange Red
	<OPTION VALUE="">
	<OPTION VALUE="FFFF00">Yellow
	<OPTION VALUE="99CC32">Yellow Green
	<OPTION VALUE="CD7F32">Gold
	<OPTION VALUE="">
	<OPTION VALUE="008800">Green
	<OPTION VALUE="6B8E23">Forest Green
	<OPTION VALUE="00FF00">Lime
	<OPTION VALUE="426F42">Sea Foam Green
	<OPTION VALUE="">
	<OPTION VALUE="0000FF">Blue
	<OPTION VALUE="00FFFF">Bright Blue
	<OPTION VALUE="000080">Rich Blue
	<OPTION VALUE="38B0DE">Sky Blue
	<OPTION VALUE="23238E">Navy Blue
	<OPTION VALUE="">
	<OPTION VALUE="6F3F6F">Violet
	<OPTION VALUE="FF00FF">Loud Purple
	<OPTION VALUE="CC3299">Violet Red
	<OPTION	VALUE="9F5F9F">Blue Violet
	<OPTION VALUE="">
	<OPTION VALUE="A62A2A">Brown
	<OPTION VALUE="DB9370">Tan
	<OPTION VALUE="6B4226">Chocolate
	<OPTION VALUE="">
	<OPTION VALUE="000000">Black
	<OPTION VALUE="252525">Dark Grey
	<OPTION VALUE="919191">Grey
	<OPTION VALUE="EBEBEF">Silver
	<OPTION VALUE="FFFFFF">White
EndOfList
}