Changeset 960

Timestamp:

10/31/07 15:24:00 (6 years ago)

Author:

cho45

Message:

lang/perl/mobirc/trunk/mobirc/t/05-filter-clickable.t,
lang/perl/mobirc/trunk/mobirc/t/05-filter-mailaddr.t,
lang/perl/mobirc/trunk/mobirc/t/05-filter-telno.t,
lang/perl/mobirc/trunk/mobirc/t/05-filter-url.t,
lang/perl/mobirc/trunk/mobirc/lib/Mobirc/HTTPD/Filter/Clickable.pm,
lang/perl/mobirc/trunk/mobirc/config.yaml.sample:

テストの追加と削除
http_link_string でリンク文字列を変更できるように

Location:

lang/perl/mobirc/trunk/mobirc

Files:

• config.yaml.sample (modified) (1 diff)
• lib/Mobirc/HTTPD/Filter/Clickable.pm (modified) (1 diff)
• t/05-filter-clickable.t (added)
• t/05-filter-mailaddr.t (deleted)
• t/05-filter-telno.t (deleted)
• t/05-filter-url.t (deleted)

lang/perl/mobirc/trunk/mobirc/config.yaml.sample

@@ -40 +40 @@
         au_pcsv: 0
         pocket_hatena: 1
+        # http_link_string: $host$path
         # accept_schemes: [mailto, tel]
         # redirector: http://www.google.com/url?sa=D&q=

lang/perl/mobirc/trunk/mobirc/lib/Mobirc/HTTPD/Filter/Clickable.pm

@@ -37 +37 @@
     my ( $class, $conf, $uri, $orig_uri ) = @_;
     my $out = "";
+    my $link_string = $orig_uri;
+
+    if ( $conf->{http_link_string} ) {
+        $link_string =$conf->{http_link_string};
+        $link_string =~ s{\$(\w+)}{
+            $uri->$1;
+        }eg
+    }
+
     if ( $conf->{redirector} ) {
-        $out = sprintf('<a href="%s%s" rel="nofollow" class="url">%s</a>', $conf->{redirector}, $uri, $uri);
+        $out = sprintf('<a href="%s%s" rel="nofollow" class="url">%s</a>', $conf->{redirector}, $uri, $link_string);
     } else {
-        $out = qq{<a href="$uri" rel="nofollow" class="url">$orig_uri</a>};
+        $out = qq{<a href="$uri" rel="nofollow" class="url">$link_string</a>};
     }
     if ( $conf->{au_pcsv} ) {