[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.4, Mon Dec 5 19:12:12 2005 UTC
# Line 1  Line 1 
1    #
2    # Copyright (c) 2003-2006 University of Chicago and Fellowship
3    # for Interpretations of Genomes. All Rights Reserved.
4    #
5    # This file is part of the SEED Toolkit.
6    #
7    # The SEED Toolkit is free software. You can redistribute
8    # it and/or modify it under the terms of the SEED Toolkit
9    # Public License.
10    #
11    # You should have received a copy of the SEED Toolkit Public License
12    # along with this program; if not write to the University of Chicago
13    # at info@ci.uchicago.edu or the Fellowship for Interpretation of
14    # Genomes at veronika@thefig.info or download a copy from
15    # http://www.theseed.org/LICENSE.TXT.
16    #
17    
18  use FIG;  use FIG;
19  use CGI;  use CGI;
20  use Net::SMTP;  use Net::SMTP;
# Line 12  Line 29 
29  print "<HTML>\n";  print "<HTML>\n";
30  print "<HEAD><TITLE>Structural Classification Tool!</TITLE></HEAD>\n";  print "<HEAD><TITLE>Structural Classification Tool!</TITLE></HEAD>\n";
31  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";  
32  my @params = $cgi-> param();  my @params = $cgi-> param();
33  if($cgi->param('seq') && $cgi->param('email')){  if($cgi->param('seq') && $cgi->param('email')){
34      my $seq = $cgi->param('seq');      my $seq = $cgi->param('seq');
35      my $email = $cgi->param('email');      my $email = $cgi->param('email');
36      my $subject = $cgi->param('subject');      my $subject = $cgi->param('subject');
37      ($fh, $filename) = mkstemp("/disks/space0/fig/Tmp/tmpfileXXXXX");      ($fh, $filename) = mkstemp("/disks/space0/fig/Tmp/tmpfileXXXXX");
38        `chmod 777 $filename`;
39    
40      #my $seq = "MKITVLGCGALGQLWLTALCKQGHEVQGWLRVPQPYCSVNLVETDGSIFNESLTANDPDFLATSDLLLVTLKAWQVSDAVKSLASTLPVTTPILLIHNGMGTIEELQNIQQPLLMGTTTHAARRDGNVIIHVANGITHIGPARQQDGDYSYLADILQTVLPDVAWHNNIRAELWRKLAVNCVINPLTAIWNCPNGELRHHPQEIMQICEEVAAVIEREGHHTSAEDLRDYVMQVIDATAENISSMLQDIRALRHTEIDYINGFLLRRARAHGIAVPENTRLFEMVKRKESEYERIGTGLPRPW";      #my $seq = "MKITVLGCGALGQLWLTALCKQGHEVQGWLRVPQPYCSVNLVETDGSIFNESLTANDPDFLATSDLLLVTLKAWQVSDAVKSLASTLPVTTPILLIHNGMGTIEELQNIQQPLLMGTTTHAARRDGNVIIHVANGITHIGPARQQDGDYSYLADILQTVLPDVAWHNNIRAELWRKLAVNCVINPLTAIWNCPNGELRHHPQEIMQICEEVAAVIEREGHHTSAEDLRDYVMQVIDATAENISSMLQDIRALRHTEIDYINGFLLRRARAHGIAVPENTRLFEMVKRKESEYERIGTGLPRPW";
41    
42      if (-e "1234_A.fa"){ system "rm 1234_A.fa";}      if (-e "1234_A.fa"){ system "rm 1234_A.fa";}
43    
44        $seq =~ s/\n//g;
45        $seq =~ s/\s//g;
46    
47      system "python /disks/space0/fig/Tmp/seq2pdb.py $seq $filename";      system "python /disks/space0/fig/Tmp/seq2pdb.py $seq $filename";
48      system "perl /disks/space0/fig/Tmp/launcher.pl $filename $email $subject";      system "perl /disks/space0/fig/Tmp/launcher.pl $filename $email $subject";
49      print "The results will be sent to $email\n";      print "The results will be sent to $email\n";
50    
51    
52  } else {  } else {
53          print "<FORM method='POST' action='scopmap_service4.cgi'>          print "<H2>SCOPmap Service</H2>\n";
54            print "<H5><a href='http://www.biomedcentral.com/1471-2105/5/197'>research article on SCOPmap</a></H5>\n";
55            print "<H5>special thanks to Yuan Qi, Sara Cheek and Nick Grishin for the SCOPmap program and their support</H5>\n";
56    
57            print "<FORM method='POST' action='scopmap_service.cgi'>
58                      <h3>Enter email address:</h3>                      <h3>Enter email address:</h3>
59                      <p><INPUT type='text' name='email'></p>                      <p><INPUT type='text' name='email'></p>
60                      <h3>Enter sequence identifier (protein name, id, etc ...):</h3>                      <h3>Enter sequence identifier (protein name, id, etc ...):</h3>
61                      <p><INPUT type='text' name='subject'></p>                      <p><INPUT type='text' name='subject'></p>
62                      <h3>Enter protein sequence:</h3>                      <h3>Enter protein sequence:</h3>
63                      <p><INPUT name='seq' size='1000' wrap='virtual'> </INPUT></p>                      <p><TEXTAREA rows='20' cols='100' name='seq'> </TEXTAREA></p>
64                      <p><INPUT type='submit' value='Launch SCOPmap'></p>                      <p><INPUT type='submit' value='Launch SCOPmap'></p>
65                      <h3>Reset this Form</h3>                      <h3>Reset this Form</h3>
66                      <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.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3