#use warnings;
use CGI;
use CGI qq(redirect);
print "Content-type: text/html\n\n";
print qq
{
Welcome to Use This Smart Tool!
Welcome to Use Our MutConv Tool!
};
my $cgi = new CGI;
$e = $cgi->param('error');
#print "error: $e ";
{
if ($e eq '1')
{
$errorinfo = "The mutation description is empty!";
}
elsif ($e eq '2')
{
$errorinfo = "The mutation description is not correct!";
}
elsif ($e eq 'a')
{
$errorinfo = "The original cDNA is empty!";
}
elsif ($e eq 'b')
{
$errorinfo = "The original cDNA is not correct: including non AGCT character!";
}
elsif ($e eq '3')
{
$errorinfo = "The second deletion position of the deletion description is not correct!";
}
elsif ($e eq '4')
{
$errorinfo = "The first deletion position of the deletion description is not correct!";
}
elsif ($e eq '5')
{
$errorinfo = "The insertion position of the insertion description is not correct!";
}
elsif ($e eq '6')
{
$errorinfo = "The substitution position of the substitution description is not correct!";
}
elsif ($e eq '7')
{
$errorinfo = "The nucleotide in the substitution description is not correct!";
}
elsif ($e eq '8')
{
$errorinfo = "The format of the deletion description is not correct!";
}
elsif ($e eq '9')
{
$errorinfo = "The format of the insertion description is not correct!";
}
elsif ($e eq '10')
{
$errorinfo = "The format of the substitution description is not correct!";
}
}
if($errorinfo)
{
print "