サポート掲示板
[トップに戻る] [留意事項] [ワード検索] [過去ログ] [投稿ファイル] [投稿ランキング] [新規投稿] [管理用]
　[投稿情報(WWWC/RSS)] 　[カテゴリ] 　[標準/一覧/新着/ツリー] 　[▼]

[→3979] Re: パソコンから携帯対応ページを開きたい   Tambo ◆Uur6CmAwso ： 2013/06/21(Fri) 18:08 No.3985
|
カテゴリ：携帯対応YY-BOARD(改)   投稿数：1155回/管理人
！ > 日頃から大変お世話になっております。
>
> パソコンから携帯電話仕様のYY-BOARDにアクセスしたいのですが、その場合どうすればいいのでしょうか？
>
> お手隙の際にご指南いただければ幸いです。

やってみました。
クッキーを使用します。
投稿された該当の機種（既定ではFOMA）の絵文字は文字化けします。

Rev2.52

■yybbs.cgi
33行目付近
# メイン処理
&decode;
&ViewMode; # 表示モード定義 ← 追加
require "${libDir}lib_bbs.pl";

■yyregi.cgi
34行目付近
# メイン処理
&decode;
&ViewMode; # 表示モード定義 ← 追加
require "${libDir}lib_reg.pl";

■yyini.cgi
274行目付近
#-------------------------------------------------
# クッキー発行
#-------------------------------------------------
sub set_cookie {
local(@cook) = @_;
local($flag) = 0;

# 閲覧者限定 認証パスワード用 クッキー
if ($cook[0] eq 'GATE') { shift(@cook); $flag=1; }
#-# ↓ここから追加 #-#
# 表示モード定義用 クッキー
elsif ($cook[0] eq 'ViewMode') { shift(@cook); $flag=2; }
#-# ↑ここまで追加 #-#

local($gmt, $cook, @t, @m, @w);

@t = gmtime(time + 60*24*60*60);
@m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
@w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

# 国際標準時を定義
$gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",
$w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);

# 保存データをURLエンコード
foreach (@cook) {
s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
$cook .= "$_<>";
}

# 格納
if ($flag == 1) {
print "Set-Cookie: YY_BOARD_GATE=$cook; expires=$gmt\n";
#-# ↓ここから追加 #-#
} elsif ($flag == 2) {
print "Set-Cookie: YY_BOARD_ViewMode=$cook;\n";
#-# ↑ここまで追加 #-#
} else {
print "Set-Cookie: YY_BOARD=$cook; expires=$gmt\n";
}
}

#-------------------------------------------------
# クッキー取得
#-------------------------------------------------
sub get_cookie {
local($key, $val, *cook);
local($str) = @_;

if ($str eq 'GATE') { $str = 'YY_BOARD_GATE'; }
#-# ↓ここから追加 #-#
elsif ($str eq 'ViewMode') { $str = 'YY_BOARD_ViewMode'; }
#-# ↑ここまで追加 #-#
else { $str = 'YY_BOARD'; }

# クッキー取得
$cook = $ENV{'HTTP_COOKIE'};

# 該当IDを取り出す
foreach ( split(/;/, $cook) ) {
($key, $val) = split(/=/);
$key =~ s/\s//g;
$cook{$key} = $val;
}

# データをURLデコードして復元
@cook=();
foreach ( split(/<>/, $cook{$str}) ) {
s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1)/eg;
push(@cook,$_);
}

return (@cook);
}

【続く】		 [修正]
[削除]
PC
ID：3juxRi9qsQ

返信フォーム
お名前 （トリップ機能あり）
Ｅメール （非表示）
タイトル
メッセージ URLの自動リンク無効
ＵＲＬ
添付File1
添付File2
添付File3
（gif jpg png/5MBまで）
イメージ   [イメージ参照]
暗証キー (英数字で8文字以内)
文字色 ■ ■ ■ ■ ■ ■ ■ ■ ■
カテゴリ 携帯対応YY-BOARD(改)  e-PAD(ちょこっと改)  その他 
記事移動 管理人の設定 移動しない トップへ移動
クッキー クッキー情報を記録しない
プレビュー 確認する
投稿後このスレッドに戻る
ツリー表示
▼ パソコンから携帯対応ページを開きたい - day-tripper☆ 2013/06/10(Mon) 09:52 No.3979
     ├ [→3979] Re: パソコンから携帯対応ページ... - Tambo ◆Uur6CmAwso 2013/06/12(Wed) 23:15 No.3980
     ├ 削除 - 削除 2013/06/13(Thu) 10:14 No.3981
     ├ [→3980] Re: パソコンから携帯対応ページ... - day-tripper☆ 2013/06/13(Thu) 15:09 No.3982
     ├ [→3982] Re: パソコンから携帯対応ページ... - Tambo ◆Uur6CmAwso 2013/06/15(Sat) 14:06 No.3984
     ├ [→3979] Re: パソコンから携帯対応ページ... - Tambo ◆Uur6CmAwso 2013/06/21(Fri) 18:08 No.3985  ＜＜表示中
     ├ [→3985] Re: パソコンから携帯対応ページ... - Tambo ◆Uur6CmAwso 2013/06/21(Fri) 18:09 No.3986
     └ Re: パソコンから携帯対応ページを開きたい - day-tripper 2013/06/25(Tue) 08:57 No.3987

[標準/一覧/新着/ツリー]  [▲]