/[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 23 by dpavlin, Thu Dec 13 11:46:46 2007 UTC revision 25 by dpavlin, Thu Dec 13 12:54:43 2007 UTC
# Line 30  my $page_date; Line 30  my $page_date;
30    
31  my @page_names;  my @page_names;
32    
33  print "Collecting pages...\n";  print "Importing $max pages", $attachments ? " with attachments" : "", "...\n";
34    
35  find({  find({
36          wanted => sub {          wanted => sub {
# Line 133  sub surround { Line 133  sub surround {
133    
134  sub pre {  sub pre {
135          my $text = shift;          my $text = shift;
136          $text =~ s/^{{{//;          $text =~ s/^{{{\s*//s;
137          $text =~ s/}}}$//;          $text =~ s/\s*}}}$//s;
138          return '.pre' . $text . '.pre';          return "\n.pre\n" . $text . "\n.pre\n";
139  }  }
140    
141  sub convert_markup {  sub convert_markup {
Legend:
Removed from v.23  
changed lines
  Added in v.25
  ViewVC Help
Powered by ViewVC 1.1.26