Geschichte von Werwolf 《SchwarzWeiss》 


28 『黒と白』004(バグ報告・要望・発言テスト)

情報 プロローグ エピローグ 終了 / 最新

視点:

全て表示


(11)

くろねこ たすく

2012/01/29(日) 22:50:42

文字に変更してみても、403 Forbidden返されました。

画像はまた、違う問題のようです。

(12)

Schwarze Katze

2012/01/29(日) 23:02:12

>>11 そしたら、元に戻して先頭から少しづつ追加してみましょう。

http://schicksal.sakura.ne.jp/sow/sow.cgi

いまこちらで動いているソースをダウンロードして、

html_memo_pc.pl の、
#----------------------------------------
# メモ発言欄HTML表示(一行分)
#----------------------------------------
sub OutHTMLMemoSinglePC {

こちらのパッチだけ当ててみてください。
(メモへの、a name 追加)

それでメモが表示されたら次にいってみましょう。

(13)

Schwarze Katze

2012/01/29(日) 23:08:45

一気に変更して上手くいかないようなら、少しづつ変更してどこでおかしくなるかチェックするののがいいですよ。

……って、見たらメモ表示(html_memo_pc.pl)はクリアされているようですね。
幻夢チェックしたところ村進行中になかった a name(メモID)がきちんと追加されていました。

(14)

Schwarze Katze

2012/01/29(日) 23:13:01

次は、html_vlogsingle_pc.pl

#----------------------------------------
# ログHTMLの表示(アクション)
#----------------------------------------
sub OutHTMLSingleLogActionPC {
my ($sow, $vil, $log, $no, $newsay, $anchor, $modesingle) = @_;
my $net = $sow->{'html'}->{'net'};
my $atr_id = $sow->{'html'}->{'atr_id'};
my $cfg = $sow->{'cfg'};

my $logpl = &GetLogPL($sow, $vil, $log);
my $date = $sow->{'dt'}->cvtdt($log->{'date'});

この先頭部分をサーバーからダウンロードしたものと比較してみてください。
違いがあったら教えてくださいね。

my $cfg = $sow->{'cfg'};

の行がもしかしたら不足しているかも?

(15)

くろねこ たすく

2012/01/29(日) 23:19:56

あ、確かに、『my $cfg = $sow->{'cfg'};』の行はないですね。
それ以外の部分は、違いないです。

(16)

Schwarze Katze

2012/01/29(日) 23:26:41

>>15 なるほど、それでは多分そこが原因っぽいですね。
多分、そこさえ追加すればいいと思いますが、慎重に言ってみましょう。

まず、
my $cfg = $sow->{'cfg'};
を追加して動くことを確認お願いします。

(17)

くろねこ たすく

2012/01/29(日) 23:31:48

追加しました!

発言・act関係の動作に問題はないです。

(18)

Schwarze Katze

2012/01/29(日) 23:33:52

>>16 で動いたら、
&OutHTMLFilterDivHeader($sow, $vil, $log, $no, $logpl, $modesingle);

の次の行に

# メモリンクの整形
my $memolink = '';

この2行を追加して、動作確認。

(19)

Schwarze Katze

2012/01/29(日) 23:36:13

うまくいったら、次は、外側の if を追加

my $memolink = '';
if(defined $log->{'memoid'}){
}

(20)

Schwarze Katze

2012/01/29(日) 23:37:46

確認取れたら、内側の if もついか

my $memolink = '';
if(defined $log->{'memoid'}){
if($log->{'memoid'} ne '_none_'){
}
}

(21)

くろねこ たすく

2012/01/29(日) 23:46:34

>>20までの反映と動作確認、大丈夫ですー。

(22)

Schwarze Katze

2012/01/29(日) 23:51:30

>>21 おつかれさま、くろねこさん。

では、いよいよ肝心の中身。

if($log->{'memoid'} ne '_none_'){
my $reqvals = &SWBase::GetRequestValues($sow);
}

これを内側に追加して確認。

(23)

Schwarze Katze

2012/01/29(日) 23:53:22

動いたら下の行を追加して確認、

my $reqvals = &SWBase::GetRequestValues($sow);
$memolink = &SWBase::GetLinkValues($sow, $reqvals)."&cmd=hist&logid=$log->{'memoid'}";

OKだったら、

if($log->{'memoid'} ne '_none_'){
my $reqvals = &SWBase::GetRequestValues($sow);
$memolink = &SWBase::GetLinkValues($sow, $reqvals)."&cmd=hist&logid=$log->{'memoid'}";
$memolink = " <a href=\"$cfg->{'BASEDIR_CGI'}/$cfg->{'FILE_SOW'}?$memolink\" class=\"memo_anchor\"><img src=\"$cfg->{'IMG_SPACER'}\"></a>";
}

と、全部追加して確認してね。
ここまでいけば後もう一歩。

(24)

Schwarze Katze

2012/01/29(日) 23:55:05

>>22 見て、二人とも黒猫にゃ〜って思ったのは秘密にゃ)

(25)

くろねこ たすく

2012/01/30(月) 00:06:37

>>23までOKですー。
動作関係にも問題なく。


[そういやW黒猫でしたねw]

(26)

Schwarze Katze

2012/01/30(月) 00:12:27

my $logtext = $log->{'log'};

# メモリンクの整形


そしたら、これを追加で確認。

その次が最後。

(27)

くろねこ たすく

2012/01/30(月) 00:20:49

>>26まで追加、動作確認OKですー。

(28)

Schwarze Katze

2012/01/30(月) 00:29:21

それじゃ、下のほうを修正してね。

<p>$chrname<a $atr_id="$log->{'logid'}">は</a>、$log->{'log'}<br$net></p>
  ↓
<p>$chrname<a $atr_id="$log->{'logid'}">は</a>、$logtext$memolink<br$net></p>

これで、メモリンクが出てくるはず。

出なかったら、if の内側の、
  <img src=\"$cfg->{'IMG_SPACER'}\">
この部分をてきとーに変更したら出るはず。
(黒白は、1x1pxのダミーグラいっぱい使ってるので config で定義してるってだけですので)

(29)

Schwarze Katze

2012/01/30(月) 00:36:15

出てるにゃん♪
おつかれさま ><b

(30)

くろねこ たすく

2012/01/30(月) 00:36:37

メモリンク発生、ポップアップ出ました!
ありがとうございますっ!

……でも、やっぱりダミー画像は認識してない?

情報 プロローグ エピローグ 終了 / 最新

視点:


トップページに戻る


← ↓ ■ □ フィルタ

生存者 (1)

少年 アルベルト
1回 残4000pt/10

犠牲者 (0)

処刑者 (0)

突然死者 (0)

発言種別

通常発言
独り言
囁き/共鳴/念話
死者のうめき

一括操作