Changeset 20102 for platform

Timestamp:

09/28/08 11:42:53 (2 months ago)

Author:

drry

Message:

• fixed regexes.
  
• removed a svn prop.
  
• et cetera.
  

Files:

• platform/movabletype/plugins/TextHatena/mt-text-hatena.pl (modified) (2 diffs, 1 prop)

platform/movabletype/plugins/TextHatena/mt-text-hatena.pl

@@ -32 +32 @@
 
 sub _rewrite_tag {
-    my ($tag, $text) = @_;
+    my ($tag, $text, $attr) = @_;
+
+    if ($attr ~= /\sdatetime\s*=/) {
+        return sprintf('<%s%s>%s</%s>',$tag, $attr, $text, $tag);
+    }
 
     my $dt = DateTime->now->set_time_zone('local');
     my $dtstr = DateTime::Format::W3CDTF->format_datetime($dt);
 
-    return sprintf('<%s datetime="%s">%s</%s>',$tag, $dtstr, $text, $tag);
+    return sprintf('<%s%s datetime="%s">%s</%s>',$tag, $attr, $dtstr, $text, $tag);
 }
 
@@ -45 +49 @@
     for my $key (qw/text text_more/) {
         my $text = $entry_page->$key;
-        $text =~ s{<((?:ins|del))>(.*?)</\1>}{ &_rewrite_tag($1, $2); }egsx;
+        $text =~ s{<(ins|del)(\s[^>]+)?>(.*?)</\1\s*>}{ &_rewrite_tag($1, $3, $2); }gsex; #SEX!
         $entry_page->$key($text);
     }