|
リンク先はそのままで表示だけ変えればいいんですよね。
これでどうでしょうか。
Rev2.52 yyini_tel.pl 571行目付近 } else { $nam = &emoji_length($nam,2,'tel',$nam_leni); } }
if ($dougaOn1 >= 1) { $com = &douga_on1($com); } # ← 追加
# 引用部文字色変更 if ($refTel) { $com = &com_ref($com); }
2126行目付近 sub douga_on1 { &error("無効な機能\の呼び出しです(it-11)"); } ↓ sub douga_on1 { my $com = shift;
# YouTube my $pturl = 'http://((jp|www)\.)?youtube\.com/watch\?'; my $tar = 'v=([\w\_\-]{1,})'; my $opt1 = '[\w\_\-\&=;+]*'; my $opt2 = '[\w\_\-\&=;+<>]{1,}'; my $ut_v = 'YouTube投稿あり';
# 閲覧者限定・auto_link有効時 (オプション指定時サポート) if ($com =~ m|<a href="$script\?(${multi_link})?mode=jump&url=$pturl$opt1$tar$opt1" target="_blank">$pturl$opt2<\/a>|i) { $com =~ s|(<a href="$script\?(${multi_link})?mode=jump&url=$pturl$opt1$tar$opt1" target="_blank">)$pturl$opt2</a>|$1$ut_v</a>|ig; # auto_link有効時 (オプション指定時サポート) } elsif ($com =~ m|<a href="$pturl$opt1$tar$opt1" target="_blank">$pturl$opt2</a>|i) { $com =~ s|(<a href="$pturl$opt1$tar$opt1" target="_blank">)$pturl$opt2</a>|$1$ut_v</a>|ig; # auto_link無効時 (オプション指定時サポート) } elsif ($com =~ m|$pturl$opt1$tar$opt1|i) { $com =~ s|($pturl$opt1$tar$opt1)|$ut_v|ig; } return $com; } |