use CGI::Carp 'fatalsToBrowser';
use warnings;
use Net::SMTP;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

##</code><code>##

for $parm (@PARM)
	{	chomp ($parm);
		$parm =~ s/[+]/ /g;
		$parm =~ s/%([0-9a-fA-F]{2})/pack ('c', hex ($1))/eg;
		if ($parm =~ /^[a-z0-9]+ *=/i)
		{	($parmname, $parmvalue) = split (/ *= */, $parm, 2);
			if ($parmname eq 'txtRequester')
			{	$Reviewer = $parmvalue;
			}
			elsif ($parmname eq 'person')
			{	$Person = $parmvalue;
			}
			elsif ($parmname eq 'team')
			{	$Team = $parmvalue;
			}
			else
			{	$TIME{$parmname} = $parmvalue;


			}
		}
	}