[Bio] / FigTutorial / test_prot.pl Repository:
ViewVC logotype

Annotation of /FigTutorial/test_prot.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (view) (download) (as text)

1 : disz 1.1 #!/usr/bin/perl -w
2 :     use strict;
3 :     use LWP::UserAgent;
4 :     use HTTP::Request::Common;
5 :     use Getopt::Long;
6 :     use File::Basename;
7 :     use Data::Dumper;
8 :    
9 :    
10 :     my $ua = new LWP::UserAgent;
11 :     $HTTP::Request::Common::DYNAMIC_FILE_UPLOAD=1;
12 :     #my $url = "http://bio-macpro-1.mcs.anl.gov/~disz/FIG/test_server.cgi";
13 :     my $url = "http://bio-macpro-1.mcs.anl.gov/~disz/FIG/figfam_server_1.cgi";
14 :    
15 :     my $fname = $ARGV[0];
16 :    
17 :     my @form = (Content => [upfile => [$fname]]);
18 :    
19 :     my $form = ">FQ8D8DZ01A01DU\nMALDVAAIRAHVPALKSGTARFDAPGGTQTPQPVIDAIAAALTAPLANRGRNTEGERNADRIVDEARSALADLLGTTPGTVVFGRSATQLAYDLSRTLAKGWGPGDEVVVTRLDHDSNIRPWVQAAEAAGADVRWADFDPATGELRPEHLAAVLGPRTRLVAVTAASNLIGTMPDLPALASLVHANGAHFHVDAVHYASHAVVDLAATGADTLVCSPYKFLGPHLGVLTGRAELLESLRPDKLLPSADTVPERFELGTLPYELLAGTSAAVDFLAGLEAEAEGSRRDRLVASFAALEAHEEALRERLERGLAELGGITVYSRAARRTPTLLFTVAGLRPADVYRQLAERAVDAPAGSFYAVEAARRLGLGDEGGVRVGLAPYSSAEDVDRLLTALGALER\n>FOO\nDPATGELRPEHLAAVLGPRTRLVAVTAASNLIGTMPDLPALASLVHANGAHFHVDAVHYASHAVVDLAATGADTLVCSPYKFLGPHLGVLTGRAELLESLRPDKLLPSADTVPERFELGTLPYELLAGTSAAVDFLAGLEAEAEGSRRDRLVASFAALEAHEEALRERLERGLAELGGITVYSRAARRTPTLLFTVAGLRPADVYRQLAERAVDAPAGSFYAVEAARRLGLGDEGGVRVGLAPYSSAEDVDRL\n>TEST\nMALDVAAIRAHVPALKSGTARFDAPGGTQTPQPVIDAIAAALTAPLANRGRNTEGERNADRIVDEARSALADLLGTTPGTVVFGRSATQLAYDLSRTLAKGWGPGDEVVVTRLDHDSNIRPWVQAAEAAGADVRWADFDPATGELRPEHLAAVLGPRTRLVAVTAASNLIGTMPDLPALASLVHANGAHFHVDAVHYASHAVVDLAATGADTLVCSPYKFLGPHLGVLTGRAELLESLRPDKLLPSADTVPERFELGTLPYELLAGTSAAVDFLAGLEAEAEGSRRDRLVASFAALEAHEEALRERLERGLAELGGITVYSRAARRTPTLLFTVAGLRPADVYRQLAERAVDAPAGSFYAVEAARRLGLGDEGGVRVGLAPYSSAEDVDRL\n>fig|83333.1.peg.4\nMKLYNLKDHNEQVSFAQAVTQGLGKNQGLFFPHDLPEFSLTEIDEMLKLDFVTRSAKILSAFIGDEIPQEILEERVRAAFAFPAPVANVESDVGCLELFHGPTLAFKDFGGRFMAQMLTHIAGDKPVTILTATSGDTGAAVAHAFYGLPNVKVVILYPRGKISPLQEKLFCTLGGNIETVAIDGDFDACQALVKQAFDDEELKVALGLNSANSINISRLLAQICYYFEAVAQLPQETRNQLVVSVPSGNFGDLTAGLLAKSLGLPVKRFIAATNVNDTVPRFLHDGQWSPKATQATLSNAMDVSQPNNWPRVEELFRRKIWQLKELGYAAVDDETTQQTMRELKELGYTSEPHAAVAYRALRDQLNPGEYGLFLGTAHPAKFKESVEAILGETLDLPKELAERADLPLLSHNLPADFAALRKLMMNHQ
20 :     \n";
21 :    
22 :     #
23 :     # The POST method also supports the `multi-
24 :     # part/form-data' content used for Form-based File
25 :     # Upload as specified in RFC 1867. You trigger this
26 :     # content format by specifying a content type of
27 :     # `'form-data'' as one of the request headers. If one
28 :     # of the values in the $form_ref is an array reference,
29 :     # then it is treated as a file part specification with
30 :     # the following interpretation:
31 :     #
32 :     # [ $file, $filename, Header => Value... ]
33 :     #
34 :     # The first value in the array ($file) is the name of a
35 :     # file to open. This file will be read and its content
36 :     # placed in the request. The routine will croak if the
37 :     # file can't be opened. Use an `undef' as $file value
38 :     # if you want to specify the content directly. The
39 :     # $filename is the filename to report in the request.
40 :     # If this value is undefined, then the basename of the
41 :     # $file will be used. You can specify an empty string
42 :     # as $filename if you don't want any filename in the
43 :     # request.
44 :     my $res = $ua->post( $url."?function=assign_function_to_prot", Content_Type => 'multipart/form-data',
45 :     'Content' => [ 'subject' => 'Demand',
46 :     #'upfile' => [$fname],
47 :     # else send in line string
48 :     'upfile' => [
49 :     undef,
50 :     'inline',
51 :     'Content_Type' => 'application/fasta',
52 :     'Content' => "$form"
53 :     ]
54 :     ]);
55 :     if ($res->is_success) {
56 :     print $res->content;
57 :     } else {
58 :     print "Error ", $res->content;
59 :     };
60 :    
61 :     exit;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3