/[socialtext-import]/tamtam/tamtam2socialtext.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /tamtam/tamtam2socialtext.pl

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

revision 9 by dpavlin, Wed Dec 12 13:22:32 2007 UTC revision 10 by dpavlin, Wed Dec 12 13:28:40 2007 UTC
# Line 93  foreach my $name ( keys %$page ) { Line 93  foreach my $name ( keys %$page ) {
93    
94          # fix links          # fix links
95          $body =~ s/\["([^"]+)"\]/[$1]/gs;          $body =~ s/\["([^"]+)"\]/[$1]/gs;
96            $body =~ s,\[(http://\S+)\s+([^\]]+)\],"$2"<$1>,gs;
97            $body =~ s,\[(http://[^\]]+)\],$1,gs;
98    
99          Encode::_utf8_off( $body );          Encode::_utf8_off( $body );
100    

Legend:
Removed from v.9  
changed lines
  Added in v.10

  ViewVC Help
Powered by ViewVC 1.1.26