[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.3, Tue Jun 6 03:36:10 2006 UTC revision 1.4, Tue Jun 6 15:14:26 2006 UTC
# Line 13  Line 13 
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 pegID]";
15  my @arguments_in;  my @arguments_in;
 my $arguments_in;  
 my $temp;  
16    
17  if (@ARGV > 0)  if (@ARGV > 0)
18  {  {
# Line 39  Line 37 
37    
38  $peg =~ s/\%7C/\|/g;  $peg =~ s/\%7C/\|/g;
39    
   
40  my $seq = $fig->get_translation($peg);  my $seq = $fig->get_translation($peg);
41  my @aliases=$fig->feature_aliases($peg);  my @aliases=$fig->feature_aliases($peg);
42    
# Line 104  Line 101 
101          if(! ($response->content =~ m/Sorry/i) ) {          if(! ($response->content =~ m/Sorry/i) ) {
102              my $result = $response->content;              my $result = $response->content;
103              # Replace relative paths with absolute paths              # Replace relative paths with absolute paths
104              $result =~ s/\.\./http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current\//g;              $result =~ s/\.\./http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current/g;
105    
106                $result =~ s/<\!DOCTYPE HTML PUBLIC \"-\/\/W3C\/\/DTD HTML 4\.0 Transitional\/\/EN\"//;
107                $result =~ s/"http\:\/\/www\.w3\.org\/TR\/REC-html40\/loose\.dtd\">//;
108                $result =~ s/<HTML>//;
109                $result =~ s/<HEAD>//;
110                $result =~ s/<\/HEAD>//;
111                $result =~ s/<\/HTML>//;
112              #Get rid of css reference because it breaks the FIG header              #Get rid of css reference because it breaks the FIG header
113              $result =~ s/<link rel=.*?>//g;              $result =~ s/<link rel=.*?>//g;
114              print $result;              print $result;
# Line 132  Line 135 
135    
136      my $response = $user_agent->request($request);      my $response = $user_agent->request($request);
137      my $result = $response->content;      my $result = $response->content;
138    
139        $result =~ s/<\!DOCTYPE HTML PUBLIC \"-\/\/W3C\/\/DTD HTML 4\.0 Transitional\/\/EN\"//;
140        $result =~ s/"http\:\/\/www\.w3\.org\/TR\/REC-html40\/loose\.dtd\">//;
141        $result =~ s/<HTML>//;
142        $result =~ s/<HEAD>//;
143        $result =~ s/<\/HEAD>//;
144        $result =~ s/<\/HTML>//;
145    
146      # Replace relative paths with absolute paths      # Replace relative paths with absolute paths
147      $result =~ s/\.\./http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current\//g;      $result =~ s/\.\./http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current/g;
148      $result =~ s/<link rel=.*?>//g;      $result =~ s/<link rel=.*?>//g;
149      print $result;      print $result;
150    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3