Work round for 'Input is Null' problem caused by MS bug.

The following changes have been tested with 6.1.4 but should work for all versions of v6, v5 and v4.1.1.
Customers with v4 prior to v4.1.1 should upgrade to 4.1.1 before apply this patch.

In all cases, customers should take a copy of Actinic.pm and OrderScript.pl before applying the changes.

Edit Actinic.pm
Search for 'sub ReadAndParseInput'
Scroll down to...

		return ($::FAILURE, "The input is NULL", '', '', 0, 0);

Replace the above line with...

#		return ($::FAILURE, "The input is NULL", '', '', 0, 0);
		my ($status, $sError) = ProcessPath("", "");
		return ($::BADDATA, "The input is NULL", '', '', 0, 0);

Save and exit.

Edit OrderScript.pl
Search for 'sub Init'
Scroll down to...

	@Response = ReadAndParseInput();					# read the input from the CGI call
	($Status, $Message) = @Response;	# parse the response
	if ($Status != $::SUCCESS)
		{
			ACTINIC::TerminalError($Message);			# can't be report error because problem could be path error
		}

Replace the above lines with...

	$::g_NullInput = $::FALSE;

	@Response = ReadAndParseInput();					# read the input from the CGI call
	($Status, $Message) = @Response;	# parse the response
	if ($Status != $::SUCCESS)
		{
		if ($Status == $::BADDATA)
			{
			$::g_NullInput = $::TRUE;
			}
		else
			{
			ACTINIC::TerminalError($Message);			# can't be report error because problem could be path error
			}
		}

Search for 'sub ProcessInput'
Scroll down to...

	#
	# If the progress is forward
	#
	my ($sHTML, $sAction, $eDirection);
	$sAction = $::g_InputHash{'ACTION'};

Immediateley after the above lines, insert...

	if ($::g_NullInput)
		{
		$sAction = $sStartButton;
		}

Search for 'sub ValidateInput'
Scroll down to...

	#
	# special case - startup
	#
	if ($::g_nCurrentSequenceNumber == $::STARTSEQUENCE) # if this is startup
		{
		@Response = ValidateStart($bActuallyValidate); # validate the input/cart settings
		return (@Response);
		}

Replace the above lines with...

	#
	# special case - startup
	#
	if ($::g_nCurrentSequenceNumber == $::STARTSEQUENCE) # if this is startup
		{
		@Response = ValidateStart($bActuallyValidate); # validate the input/cart settings
		if ($::g_NullInput)
			{
			my $sError = "The input is NULL <p><b>No data has been received.</b>" .
				"<br>This may be due to a known bug in a Microsoft run time file." . 
				"<br>The bug along with the solution is described <a href='http://support.microsoft.com/default.aspx?kbid=831167' target=_blank>" . 
				"here</a>.";
			@Response = DisplayPage($sError, 1, $eDirection);	# redisplay this page with the error messages
			if ($Response[0] != $::SUCCESS)
				{
				return (@Response);
				}
			$Response[0] = $::BADDATA;
			$Response[1] = $Response[2];
			$Response[2] = $Response[3];
			}
		return (@Response);
		}

Save and exit
Update the site