[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.5, Tue Jun 6 20:07:18 2006 UTC revision 1.6, Fri Sep 8 18:59:21 2006 UTC
# Line 120  Line 120 
120    
121  sub to_prodom_by_seq {  sub to_prodom_by_seq {
122    
123      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";
124      my $request = POST( $url,      my $request = POST( $url,
125                           Content_Type => 'form-data',                           Content_Type => 'form-data',
126                           Content =>  [ 'matrice' => 'BLOSUM62',                           Content =>  [ 'matrice' => 'BLOSUM62',
# Line 148  Line 148 
148      $result =~ s/\.\./http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current/g;      $result =~ s/\.\./http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current/g;
149      $result =~ s/<link rel=.*?>//g;      $result =~ s/<link rel=.*?>//g;
150      $result =~ s/href\=\"\/prodom\.html\"/http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current\/html\/home\.php/g;      $result =~ s/href\=\"\/prodom\.html\"/http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current\/html\/home\.php/g;
151        $result =~ s/\"request\.pl/\"http\:\/\/prodomweb\.univ\-lyon1\.fr\/prodom\/current\/cgi\-bin\/request\.pl\?/g;
152    
153      print $result;      print $result;
154    
155  }  }

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3