[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.2, Wed Jun 15 21:03:56 2005 UTC
# Line 21  Line 21 
21      my $email = $cgi->param('email');      my $email = $cgi->param('email');
22      my $subject = $cgi->param('subject');      my $subject = $cgi->param('subject');
23      ($fh, $filename) = mkstemp("/disks/space0/fig/Tmp/tmpfileXXXXX");      ($fh, $filename) = mkstemp("/disks/space0/fig/Tmp/tmpfileXXXXX");
24        `chmod 777 $filename`;
25    
26      #my $seq = "MKITVLGCGALGQLWLTALCKQGHEVQGWLRVPQPYCSVNLVETDGSIFNESLTANDPDFLATSDLLLVTLKAWQVSDAVKSLASTLPVTTPILLIHNGMGTIEELQNIQQPLLMGTTTHAARRDGNVIIHVANGITHIGPARQQDGDYSYLADILQTVLPDVAWHNNIRAELWRKLAVNCVINPLTAIWNCPNGELRHHPQEIMQICEEVAAVIEREGHHTSAEDLRDYVMQVIDATAENISSMLQDIRALRHTEIDYINGFLLRRARAHGIAVPENTRLFEMVKRKESEYERIGTGLPRPW";      #my $seq = "MKITVLGCGALGQLWLTALCKQGHEVQGWLRVPQPYCSVNLVETDGSIFNESLTANDPDFLATSDLLLVTLKAWQVSDAVKSLASTLPVTTPILLIHNGMGTIEELQNIQQPLLMGTTTHAARRDGNVIIHVANGITHIGPARQQDGDYSYLADILQTVLPDVAWHNNIRAELWRKLAVNCVINPLTAIWNCPNGELRHHPQEIMQICEEVAAVIEREGHHTSAEDLRDYVMQVIDATAENISSMLQDIRALRHTEIDYINGFLLRRARAHGIAVPENTRLFEMVKRKESEYERIGTGLPRPW";
27      if (-e "1234_A.fa"){ system "rm 1234_A.fa";}      if (-e "1234_A.fa"){ system "rm 1234_A.fa";}
28    
29        $seq =~ s/\n//g;
30        $seq =~ s/\s//g;
31        print "The results will be sent to $email\n";
32      system "python /disks/space0/fig/Tmp/seq2pdb.py $seq $filename";      system "python /disks/space0/fig/Tmp/seq2pdb.py $seq $filename";
33      system "perl /disks/space0/fig/Tmp/launcher.pl $filename $email $subject";      system "perl /disks/space0/fig/Tmp/launcher.pl $filename $email $subject";
34      print "The results will be sent to $email\n";  
35    
36  } else {  } else {
37          print "<FORM method='POST' action='scopmap_service4.cgi'>          print "<FORM method='POST' action='scopmap_service.cgi'>
38                      <h3>Enter email address:</h3>                      <h3>Enter email address:</h3>
39                      <p><INPUT type='text' name='email'></p>                      <p><INPUT type='text' name='email'></p>
40                      <h3>Enter sequence identifier (protein name, id, etc ...):</h3>                      <h3>Enter sequence identifier (protein name, id, etc ...):</h3>
41                      <p><INPUT type='text' name='subject'></p>                      <p><INPUT type='text' name='subject'></p>
42                      <h3>Enter protein sequence:</h3>                      <h3>Enter protein sequence:</h3>
43                      <p><INPUT name='seq' size='1000' wrap='virtual'> </INPUT></p>                      <p><TEXTAREA rows='20' cols='100' name='seq'> </TEXTAREA></p>
44                      <p><INPUT type='submit' value='Launch SCOPmap'></p>                      <p><INPUT type='submit' value='Launch SCOPmap'></p>
45                      <h3>Reset this Form</h3>                      <h3>Reset this Form</h3>
46                      <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.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3