Dear Beginner-cgi:
I used a CGI program to load a HTML form page as shown below,
After I filled the form and submit, the results is just attached to the initiated form
page when it leads to the new webpage. My question is: how can I load to a new HTML
page after I submit the form?
********************************************************************************
#!C:\Perl\bin\perl.exe
use lib "C:\Perl\lib";
use FileIO;
use SeqFileIO;
use CGI qw/:standard/;
use Bio::Perl;
use Bio::Tools::Run::RemoteBlast;
use strict;
use warnings;
print header,
start_html(' Form'),
'<body bgcolor=#AFD2DF>',
h1('<font color=black> BLAST Network Service!</font>'),p,
"This is a NCBI BLAST2 service",
hr,
start_multipart_form,
'<font color=black>',
h3("1) Sequence file name (FASTA or RAW format): "),
filefield(-name=>'fileseq',
-default=>'starting value',
-size=>50,
-maxlength=>200,
), p,
strong(em("or")),
h3("Type sequence: "),
textarea(
-name=>'typedseq',
-rows=>10,
-columns=>40,
-maxlength=>1000,
),
'Output format:<select name="action">
<OPTION value="Normal" selected="selected">HTML
<OPTION value="NiceBlast">NiceBlast
<OPTION value="PlainText">Plain Text
</select>',
p,
h3("2) Submit the BLAST searching:"),
'<input type=submit value="Run BLAST"> or <input type=reset value="Reset Form">',
p,
'</font>',
hr,
end_form;
end_html;
print end_html;
if (param()) {
my $sequence = '';
# must have exactly one of the two sequence input methods specified
if(param('typedseq') and param('fileseq')) {
print "<font color=red>You have given a file AND typed in sequence: do only
one!</font>", hr;
exit;
}elsif(not param('typedseq') and not param('fileseq')) {
print "<font color=red>You must give a sequence file OR type in
sequence!</font>", hr;
exit;
}elsif(param('typedseq')) {
$sequence = param('typedseq');
}elsif(param('fileseq')) {
my $fh = upload('fileseq');
while (<$fh>) {
/^\s*>/ and next; # handles fasta file headers
$sequence .= $_;
}
}
# strip out non-sequence characters
$sequence =~ s/\s//g;
$sequence = uc $sequence;
hr;
print "need to go to a new page!!!!";
}
********************************************************************************
Thanks in advance.
Jane
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
