|
> サンプル掲示板を携帯でアクセスした時には > [Twitter]への投稿 が無いみたいなのですが??設定などで携帯からアクセスしても[Twitter]を表示させることが可能なのでしょうか?
これでどうでしょうか。 良かったら試してみて下さい。 Rev2.52(2.52M)での動作は未確認です。
Rev2.52(2.52M) ★lib/UnicodeJapanese.pl 161行目付近 ■修正前 # twitter.com # if ($TwitThis == 1) { if ($TwitThis >= 1) { #-# TwitThisは無効 # http://twitter.com/home/?status=内容(URLエンコードしてから)%20URL if ($TwitThis_gif ne '') { $out = qq |<a href="http://twitter.com/home/?status=$TTtitle%20$TTurl" title="この記事をTwitterにPOSTする" target="_blank"><img src="$imgurl$TwitThis_gif" title="この記事をTwitterにPOSTする" alt="この記事をTwitterにPOSTする" width="$TwitThis_wid" height="$TwitThis_hei" border="0"></a>|; } else { $out = qq |<a href="http://twitter.com/home/?status=$TTtitle%20$TTurl" title="この記事をTwitterにPOSTする" target="_blank">Twitter</a>|; }
# TwitThis } elsif ($TwitThis == 2) { if ($TwitThis_gif ne '') { $out = qq |<a href="http://twitthis.com/twit?url=$TTurl&title=$TTtitle" title="TwitThis〜この記事をTwitterにPOSTする〜" target="_blank"><img src="$imgurl$TwitThis_gif" title="TwitThis〜この記事をTwitterにPOSTする〜" alt="TwitThis〜この記事をTwitterにPOSTする〜" width="$TwitThis_wid" height="$TwitThis_hei" border="0"></a>|; } else { $out = qq |<a href="http://twitthis.com/twit?url=$TTurl&title=$TTtitle" title="TwitThis〜この記事をTwitterにPOSTする〜" target="_blank">TwitThis</a>|; } }
return $out;
■修正後 # twitter.com if ($TwitThis >= 1) { #-# TwitThisは無効 # 以下に変更されてる # PC # http://twitter.com/intent/tweet?text=投稿する文章&url=URL # 携帯 # http://twtr.jp/share?text=投稿する文章&url=携帯ページURL my $TTtarget = $imode ? 'http://twtr.jp/share?text=' : # 携帯 'http://twitter.com/intent/tweet?text='; # PC
if ($TwitThis_gif ne '') { $out = qq |<a href="$TTtarget$TTtitle&url=$TTurl" title="この記事をTwitterにPOSTする" target="_blank"><img src="$imgurl$TwitThis_gif" title="この記事をTwitterにPOSTする" alt="この記事をTwitterにPOSTする" width="$TwitThis_wid" height="$TwitThis_hei" border="0"></a>|; } else { $out = qq |<a href="$TTtarget$TTtitle&url=$TTurl" title="この記事をTwitterにPOSTする" target="_blank">Twitter</a>|; } }
return $out;
★lib/yyini_tel.pl 480行目付近 my $flag2 = 0; my $nam2 = $nam; # 投稿ランクキング用 my ($TTsub,$TTcom) = ($sub,$com); # Twiterリンク用 ← ■ 追加
# DoCoMo用formタグ $utnform1 = "<form action=\"$script\" method=\"$method\"$DCMUtn>";
1040行目付近 if (($HosUaOuti && $hos) || $IDOut == 2 || $IDOut == 3) { print qq |</font>|; }
# ■ ここから追加 if ($mode ne 'allno2' && $mode ne 'past' && $mode ne 'find' && $mode ne 'category') { # Twitter用リンク if ($TwitThis >= 1 && $Unicode && $mytime != 0) { require "${libDir}UnicodeJapanese.pl"; my $twit_view = &twit_view($no,$TTsub,$TTcom,$mytime);
# twitter.com if ($TwitThis >= 1) { #-# TwitThisは無効 if ($TwitThis_gif ne '') { print qq |<br>\n$twit_view|; } else { print qq |<br>\n[$twit_view]|; }
} } } # ■ ここまで追加
if ($upload >= 1 && $tail && $miruPass) { print qq |</form>\n|; } |