[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.5, Tue Jun 6 20:07:18 2006 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 102  Line 102 
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                $result =~ s/href\=\"\/prodom\.html\"/http:\/\/prodes\.toulouse\.inra\.fr\/prodom\/current\/html\/home\.php/g;
106    
107              $result =~ s/<\!DOCTYPE HTML PUBLIC \"-\/\/W3C\/\/DTD HTML 4\.0 Transitional\/\/EN\"//;              $result =~ s/<\!DOCTYPE HTML PUBLIC \"-\/\/W3C\/\/DTD HTML 4\.0 Transitional\/\/EN\"//;
108              $result =~ s/"http\:\/\/www\.w3\.org\/TR\/REC-html40\/loose\.dtd\">//;              $result =~ s/"http\:\/\/www\.w3\.org\/TR\/REC-html40\/loose\.dtd\">//;
# Line 146  Line 147 
147      # Replace relative paths with absolute paths      # Replace relative paths with absolute paths
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;
151      print $result;      print $result;
152    
153  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3