[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.1, Wed Jun 15 13:08:59 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');
18      my $email = $cgi->param('email');      my $email = $cgi->param('email');
19      my $subject = $cgi->param('subject');      my $subject = $cgi->param('subject');
20      ($fh, $filename) = mkstemp("/disks/space0/fig/Tmp/tmpfileXXXXX");      ($fh, $filename) = mkstemp("/disks/space0/fig/Tmp/tmpfileXXXXX");
21        `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;
28        $seq =~ s/\s//g;
29    
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";      print "The results will be sent to $email\n";
33    
34    
35  } else {  } else {
36          print "<FORM method='POST' action='scopmap_service4.cgi'>          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'>
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>
43                      <h3>Enter sequence identifier (protein name, id, etc ...):</h3>                      <h3>Enter sequence identifier (protein name, id, etc ...):</h3>
44                      <p><INPUT type='text' name='subject'></p>                      <p><INPUT type='text' name='subject'></p>
45                      <h3>Enter protein sequence:</h3>                      <h3>Enter protein sequence:</h3>
46                      <p><INPUT name='seq' size='1000' wrap='virtual'> </INPUT></p>                      <p><TEXTAREA rows='20' cols='100' name='seq'> </TEXTAREA></p>
47                      <p><INPUT type='submit' value='Launch SCOPmap'></p>                      <p><INPUT type='submit' value='Launch SCOPmap'></p>
48                      <h3>Reset this Form</h3>                      <h3>Reset this Form</h3>
49                      <p><INPUT type='reset' value='Clear all my input now'></p>                      <p><INPUT type='reset' value='Clear all my input now'></p>

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3