#!/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 $maxSeq +Len $minSeqLen $WindowSize $Email &"; system($cmd); print "<html>\n"; print "<head>\n"; print "<title>nuScore</title>\n"; print "<body>\n"; print "<table width='641' border='0' cellspacing='0' cellpadding='0' a +lign='left'>\n"; print "<tr> <td>Thank you for submiting your email address. Sequences +will be processed and the link to results page will be sent by email. +<br>< </td> </tr>\n"; print "<hr></table></body></html>\n";
In reply to How can I kill pid of parent and keep that of child alive by advait
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |