#!/usr/bin/perl
use strict;
my ($buffer, @pairs, $pair, @data, $name, $value, %FORM, %keyhash, $da
+tabase);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
$buffer = $ENV{'QUERY_STRING'};
}
# Split information into name/value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$value} = $name;
$database = $name;
}
# HTTP Header
print "Content-type:text/html\r\n\r\n";
print "";
print "";
print "Checkbox - Third CGI Program";
print "";
print "";
print "It stops here"; #######################################
#retrieve sata from the database
my @arraydata =();
foreach my $request (keys %FORM){
my @array =split('!-!',$request);
$keyhash{$array[0]}=1;
push (@arraydata, $array[0]);
}
open (IN, "<", "./seqdb/$database") || die "$!";
my ($seq,$header,$lock) = ('','',0);
while (){
chomp;
if (/>/){
my @array =split(' ',$_);
$array[0]=~s/>//;
push(@data,"$header\n$seq\n
") if $lock == 1;
if ($keyhash{$array[0]}){
$header = $_;
$lock = 1;
}
else{
$lock = 0;
}
}
elsif ($lock == 1){
$seq .=$_;
}
}
close IN;
foreach (@data){
print $_;
}
print "";
print "";