[Bio] / FigWebServices / scopmap_service.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/scopmap_service.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Wed Jun 15 21:03:56 2005 UTC revision 1.3, Fri Jun 17 05:18:17 2005 UTC
# Line 12  Line 12 
12  print "<HTML>\n";  print "<HTML>\n";
13  print "<HEAD><TITLE>Structural Classification Tool!</TITLE></HEAD>\n";  print "<HEAD><TITLE>Structural Classification Tool!</TITLE></HEAD>\n";
14  print "<BODY>\n";  print "<BODY>\n";
 print "<H2>SCOPmap Service</H2>\n";  
 print "<H5><a href='http://www.biomedcentral.com/1471-2105/5/197'>research article on SCOPmap</a></H5>\n";  
 print "<H5>special thanks to Yuan Qi, Sara Cheek and Nick Grishin for the SCOPmap program and their support</H5>\n";  
15  my @params = $cgi-> param();  my @params = $cgi-> param();
16  if($cgi->param('seq') && $cgi->param('email')){  if($cgi->param('seq') && $cgi->param('email')){
17      my $seq = $cgi->param('seq');      my $seq = $cgi->param('seq');
# Line 24  Line 21 
21      `chmod 777 $filename`;      `chmod 777 $filename`;
22    
23      #my $seq = "MKITVLGCGALGQLWLTALCKQGHEVQGWLRVPQPYCSVNLVETDGSIFNESLTANDPDFLATSDLLLVTLKAWQVSDAVKSLASTLPVTTPILLIHNGMGTIEELQNIQQPLLMGTTTHAARRDGNVIIHVANGITHIGPARQQDGDYSYLADILQTVLPDVAWHNNIRAELWRKLAVNCVINPLTAIWNCPNGELRHHPQEIMQICEEVAAVIEREGHHTSAEDLRDYVMQVIDATAENISSMLQDIRALRHTEIDYINGFLLRRARAHGIAVPENTRLFEMVKRKESEYERIGTGLPRPW";      #my $seq = "MKITVLGCGALGQLWLTALCKQGHEVQGWLRVPQPYCSVNLVETDGSIFNESLTANDPDFLATSDLLLVTLKAWQVSDAVKSLASTLPVTTPILLIHNGMGTIEELQNIQQPLLMGTTTHAARRDGNVIIHVANGITHIGPARQQDGDYSYLADILQTVLPDVAWHNNIRAELWRKLAVNCVINPLTAIWNCPNGELRHHPQEIMQICEEVAAVIEREGHHTSAEDLRDYVMQVIDATAENISSMLQDIRALRHTEIDYINGFLLRRARAHGIAVPENTRLFEMVKRKESEYERIGTGLPRPW";
24    
25      if (-e "1234_A.fa"){ system "rm 1234_A.fa";}      if (-e "1234_A.fa"){ system "rm 1234_A.fa";}
26    
27      $seq =~ s/\n//g;      $seq =~ s/\n//g;
28      $seq =~ s/\s//g;      $seq =~ s/\s//g;
29      print "The results will be sent to $email\n";  
30      system "python /disks/space0/fig/Tmp/seq2pdb.py $seq $filename";      system "python /disks/space0/fig/Tmp/seq2pdb.py $seq $filename";
31      system "perl /disks/space0/fig/Tmp/launcher.pl $filename $email $subject";      system "perl /disks/space0/fig/Tmp/launcher.pl $filename $email $subject";
32        print "The results will be sent to $email\n";
33    
34    
35  } else {  } else {
36            print "<H2>SCOPmap Service</H2>\n";
37            print "<H5><a href='http://www.biomedcentral.com/1471-2105/5/197'>research article on SCOPmap</a></H5>\n";
38            print "<H5>special thanks to Yuan Qi, Sara Cheek and Nick Grishin for the SCOPmap program and their support</H5>\n";
39    
40          print "<FORM method='POST' action='scopmap_service.cgi'>          print "<FORM method='POST' action='scopmap_service.cgi'>
41                      <h3>Enter email address:</h3>                      <h3>Enter email address:</h3>
42                      <p><INPUT type='text' name='email'></p>                      <p><INPUT type='text' name='email'></p>

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3