[Bio] / FigKernelScripts / to_prodom.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/to_prodom.pl

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

revision 1.4, Tue Jun 6 15:14:26 2006 UTC revision 1.7, Thu Aug 27 21:08:37 2009 UTC
# Line 11  Line 11 
11    
12  my $fig = new FIG;  my $fig = new FIG;
13  my $user_agent = LWP::UserAgent->new;  my $user_agent = LWP::UserAgent->new;
14  my $usage = "usage: to_prodom [peg pegID]";  my $usage = "usage: to_prodom [peg\tpegID]";
15  my @arguments_in;  my @arguments_in;
16    
17  if (@ARGV > 0)  if (@ARGV > 0)
# Line 88  Line 88 
88          $url_id =~ s/uni\|//g;          $url_id =~ s/uni\|//g;
89          $url_id =~ s/tr\|//g;          $url_id =~ s/tr\|//g;
90    
91          my $url = "http://protein.toulouse.inra.fr/prodom/current/cgi-bin/request.pl?question=SPTR&query=$url_id&bool_operator=OR";          my $url = "http://prodom.prabi.fr/prodom/current/cgi-bin/request.pl?question=SPTR&query=$url_id&bool_operator=OR";
92            # my $url = "http://protein.toulouse.inra.fr/prodom/current/cgi-bin/request.pl?question=SPTR&query=$url_id&bool_operator=OR";
93    
94    
95          # Pre-Check to see if there's no entry in ProDom. If there are no entry for the specified id,          # Pre-Check to see if there's no entry in ProDom. If there are no entry for the specified id,
# Line 101  Line 102 
102          if(! ($response->content =~ m/Sorry/i) ) {          if(! ($response->content =~ m/Sorry/i) ) {
103              my $result = $response->content;              my $result = $response->content;
104              # Replace relative paths with absolute paths              # Replace relative paths with absolute paths
105              $result =~ s/\.\./http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current/g;  
106                $result =~ s/\.\./http:\/\/prodom\.prabi\.fr\/prodom\/current/g;
107                $result =~ s/href\=\"\/prodom\.html\"/http:\/\/prodom\.prabi\.fr\/prodom\/current\/html\/home\.php/g;
108    
109                #$result =~ s/\.\./http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current/g;
110                #$result =~ s/href\=\"\/prodom\.html\"/http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current\/html\/home\.php/g;
111    
112              $result =~ s/<\!DOCTYPE HTML PUBLIC \"-\/\/W3C\/\/DTD HTML 4\.0 Transitional\/\/EN\"//;              $result =~ s/<\!DOCTYPE HTML PUBLIC \"-\/\/W3C\/\/DTD HTML 4\.0 Transitional\/\/EN\"//;
113              $result =~ s/"http\:\/\/www\.w3\.org\/TR\/REC-html40\/loose\.dtd\">//;              $result =~ s/"http\:\/\/www\.w3\.org\/TR\/REC-html40\/loose\.dtd\">//;
# Line 119  Line 125 
125    
126  sub to_prodom_by_seq {  sub to_prodom_by_seq {
127    
128      my $url = "http://protein.toulouse.inra.fr/prodom/current/cgi-bin/ProDomBlast3.pl";      my $url = "http://prodom.prabi.fr/prodom/current/cgi-bin/ProDomBlast3.pl";
129      my $request = POST( $url,      my $request = POST( $url,
130                           Content_Type => 'form-data',                           Content_Type => 'form-data',
131                           Content =>  [ 'matrice' => 'BLOSUM62',                           Content =>  [ 'matrice' => 'BLOSUM62',
# Line 146  Line 152 
152      # Replace relative paths with absolute paths      # Replace relative paths with absolute paths
153      $result =~ s/\.\./http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current/g;      $result =~ s/\.\./http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current/g;
154      $result =~ s/<link rel=.*?>//g;      $result =~ s/<link rel=.*?>//g;
155        $result =~ s/href\=\"\/prodom\.html\"/http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current\/html\/home\.php/g;
156        $result =~ s/\"request\.pl/\"http\:\/\/prodomweb\.univ\-lyon1\.fr\/prodom\/current\/cgi\-bin\/request\.pl\?/g;
157    
158      print $result;      print $result;
159    
160  }  }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3