1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| if ($path eq '') {
if ($sequence ne '') {
open (FQ, ">$input_query") || die("Problème avec le fichier $input_query : $!");
print FQ $sequence;
close (FQ);
}
else {
print "<html>
<head>
<title>ERROR_#bl001</title>
</head>
<body>
<p><strong><font color=\"#A800000\" size=\"3\" face=\"Verdana, Arial, Helvetica, sans-serif\">ERROR<font color=\"#666666\"> [#bl001]</font><br><br>
<font color=\"#000000\">Input sequence was not sized...</font></font></strong></p>
</body>
</html>";
}
}
else {
if ($sequence eq '') {
open (FS, $path) || die("Can not open $path : $!");
my @seq = <FS>;
close (FS);
open (F, ">$input_query") || die("Problème avec le fichier $input_query : $!");
print F @seq;
close (F);
}
else {
print "<html>
<head>
<title>ERROR_#bl002</title>
</head>
<body>
<p><strong><font color=\"#A800000\" size=\"3\" face=\"Verdana, Arial, Helvetica, sans-serif\">ERROR<font color=\"#666666\"> [#bl002]</font><br><br>
<font color=\"#000000\">The text area and the browse menu can not be both used for seizure...</font></font></strong></p>
</body>
</html>";
}
} |
Partager