Hi,
I have written a Perl-CGI program(address.pl) which is linked to my HTML page(cgi.htm) . And my data file (dumb.pdb)is linked to Perl-CGI program.but when I submit my query then its just display the whole code of my Perl-CGI program.....
Sometimes ,I got HTTP error 404.I dn't know why is it creating error .
My all the programs are located in cgi-bin and the module cgi-lib.pl which I have downloaded is also located in cgi-bin.
Any help is really Appreciated.....
Thanks in advance.....
perl code (address.pl):
use CGI;
require "cgi-lib.pl";
# grab values passed from form:
&ReadParse(*in);
print "Content-type: text/html\n\n";
# print the top part of the response
print "<HTML><HEAD><TITLE>Addresss Book Search Results</TITLE></HEAD>\n";
print "<BODY><H1>Addresss Book Search Results</H1>\n";
# read and parse data file
$data="dumb.pdb";
open(DATA,"$data") || die "Can't open $data: $!\n</BODY></HTML>\n";
while(<DATA>) {
chop; # delete trailing \n
if (/^\s*$/) {
# break between records
if ($match) {
# if anything matched, print the whole record
&printrecord($record);
$nrecords_matched++;
}
undef $match;
undef $record;
next;
}
# tag: value
($tag,$val) = split(/:/,$_,2);
if ($tag =~ /^structureId/i) {
$match++ if( $in{'structureId'} && $val =~ /\b$in{'structureId'}\b/i) ;
$record = $val;
next;
}
}
# anything else
$record .= $_;
close DATA;
if (! defined $nrecords_matched)
{ print "<H2>No Matches</H2>\n"; }
print "</BODY></HTML>\n";
exit;
sub printrecord {
local($buf) = @_;
print "<P>\n$buf<P>\n";
}
HTML code (cgi.htm):
<html>
<head>
<body bgcolor=white>
<marquee>
<H1 align = "center"><font size=4><font color="blue">SEARCH FOR PROTEIN COMPLEXES</font></font></H1>
</marquee>
<HR>
<FORM METHOD="GET" ACTION="address.pl">
<H3><H1 align = "center"><font color="blue">Search for links: </font><H1></H3>
<input type="text"name="search" size="25" MAXLENGTH="30">
<input type="submit" value="submit search">
<input type="reset" value="clear form">
<br></br>
<br></br>
<img src="C:\Documents and Settings\Desktop\icsd.gif"width="300" height="150" align="center">
</FORM>
</body>
</html>
I have written a Perl-CGI program(address.pl) which is linked to my HTML page(cgi.htm) . And my data file (dumb.pdb)is linked to Perl-CGI program.but when I submit my query then its just display the whole code of my Perl-CGI program.....
Sometimes ,I got HTTP error 404.I dn't know why is it creating error .
My all the programs are located in cgi-bin and the module cgi-lib.pl which I have downloaded is also located in cgi-bin.
Any help is really Appreciated.....
Thanks in advance.....
perl code (address.pl):
use CGI;
require "cgi-lib.pl";
# grab values passed from form:
&ReadParse(*in);
print "Content-type: text/html\n\n";
# print the top part of the response
print "<HTML><HEAD><TITLE>Addresss Book Search Results</TITLE></HEAD>\n";
print "<BODY><H1>Addresss Book Search Results</H1>\n";
# read and parse data file
$data="dumb.pdb";
open(DATA,"$data") || die "Can't open $data: $!\n</BODY></HTML>\n";
while(<DATA>) {
chop; # delete trailing \n
if (/^\s*$/) {
# break between records
if ($match) {
# if anything matched, print the whole record
&printrecord($record);
$nrecords_matched++;
}
undef $match;
undef $record;
next;
}
# tag: value
($tag,$val) = split(/:/,$_,2);
if ($tag =~ /^structureId/i) {
$match++ if( $in{'structureId'} && $val =~ /\b$in{'structureId'}\b/i) ;
$record = $val;
next;
}
}
# anything else
$record .= $_;
close DATA;
if (! defined $nrecords_matched)
{ print "<H2>No Matches</H2>\n"; }
print "</BODY></HTML>\n";
exit;
sub printrecord {
local($buf) = @_;
print "<P>\n$buf<P>\n";
}
HTML code (cgi.htm):
<html>
<head>
<body bgcolor=white>
<marquee>
<H1 align = "center"><font size=4><font color="blue">SEARCH FOR PROTEIN COMPLEXES</font></font></H1>
</marquee>
<HR>
<FORM METHOD="GET" ACTION="address.pl">
<H3><H1 align = "center"><font color="blue">Search for links: </font><H1></H3>
<input type="text"name="search" size="25" MAXLENGTH="30">
<input type="submit" value="submit search">
<input type="reset" value="clear form">
<br></br>
<br></br>
<img src="C:\Documents and Settings\Desktop\icsd.gif"width="300" height="150" align="center">
</FORM>
</body>
</html>
Error in CGI\Perl.....