#!/usr/bin/perl -w
use CGI;
use strict;
my $query = new CGI;
my $DirName =$query->param("dir");
my $maxSeqLen=$query->param("maxSeqLen");
my $minSeqLen=$query->param("minSeqLen");
my $WindowSize=$query->param("WindowSize");
my $Email=$query->param("email");
print $query->header();
my $cmd=" /var/www/cgi-bin/nuScore/ProcessLongData.pl $DirName $maxSeqLen $minSeqLen $WindowSize $Email &";
system($cmd);
print "\n";
print "\n";
print "nuScore\n";
print "\n";
print "
\n";
print "
Thank you for submiting your email address. Sequences will be processed and the link to results page will be sent by email. <