[掲示板に戻る] [一覧表示に戻る] [新着表示に戻る] [ツリー表示に戻る] []
過去ログ[0013]
過去ログ
検 索
キーワード 条件 表示
標準表示/一覧表示

[→3879] Re: [Twitter]ボタンをパソコンと携帯で追加したい   Tambo ◆Uur6CmAwso : 2011/08/28(Sun) 00:22 No.3885
[スレッド全体]
カテゴリ:携帯対応YY-BOARD(改)   投稿数:1120回/管理人
! > サンプル掲示板を携帯でアクセスした時には
> [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&amp;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&amp;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&amp;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&amp;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|;
}
PC
ID:3juxRi9qsQ

 []