Parent Directory
| 
Revision Log
| 
Patch
| revision 1.7 by wakaba, Fri Oct 31 06:22:59 2008 UTC | revision 1.8 by wakaba, Fri Oct 31 06:32:25 2008 UTC | |
|---|---|---|
| # | Line 42 my $all_status = {}; | Line 42 my $all_status = {}; |
| 42 | my $tbt_added = {}; | my $tbt_added = {}; |
| 43 | ||
| 44 | warn "Generating...\n"; | warn "Generating...\n"; |
| 45 | $source_text =~ s{(<(?>p(?>re)?|li|d[td]|t[dh]|h[1-6]|caption)(?>\s[^>]*)?>)((?>(?!</?(?>p(?>re)?|li|d(?>[tdl]|iv)|t(?>[dr]|h(?>ead)?|able|body|foot)|h[1-6r]|ul|ol|caption)(?>\s[^>]*)?>).)+)} | $source_text =~ s{(<(?>p(?>re)?|li|d[td]|t[dh]|h[1-6]|caption)(?>\s[^>]*)?>)((?>(?!</?(?>p(?>re)?|li|d(?>[tdl]|iv)|t(?>[dr]|h(?>ead)?|able|b(?>ody|lockquote)|foot)|h[1-6r]|ul|ol|caption|section)(?>\s[^>]*)?>).)+)} |
| 46 | { | { |
| 47 | my ($tag, $text) = ($1, $2); | my ($tag, $text) = ($1, $2); |
| 48 | my $prefix = ''; | my $prefix = ''; |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |