新着情報 V0.955 更新しました。
今までのツリーは長くなりすぎたのでここから新規にします。

・タイトル行引用で表示が乱れるバグ修正

> #11729：Re^8: 「新着情報 携帯版」と掲示板の連携 　投稿者：konno 　 2024/12/10(火)
> 正確には新着のタイトル行丸ごと引用するとそれをタイトル行と誤認識してしまうというものです。
> > コードを貼り付けていただければ回避法を議論できるかもしれない、ということです。

今まではこのようにタイトル行を引用すると表示がバグっていたのを修正しました。
修正コードは
			if (($_ =~ /\投\稿\者\：/)){
			　　　　　　↓
			if (($_ =~ /^\投\稿\者\：/)){

これだけです。(^^;
「投稿者：」という文字列が行頭にある時だけ処理する、と変更して直りました。(^^;
今まで頭が全然回ってなかったようです。(^^;


・DOSVAXJ3の更新日付を表示

今まで不便に思っていたので思い切ってやってみたら、サイトの読み込みに失敗するようです。
この手のツールからのアクセスを制限しているのかもしれません。
しかたがないので、ブラウザの検索をURLにしたら（おい）アクセスできました。(^^;
表示しないこともあるかと思いますがそういうことなのでご容赦願います。m(__)m

・リンクの並びを変更

VTDOS BBS の更新が無いので、リンクの並びを個人的優先順位で変更しました。
私のノートPCだと表示がギリギリなので。(^^;

> 具体的にどういうコードでどういう出力になった、ということを示していただければ
> もしかしたらアドバイスできることもあるかもしれません。

    ## コンテンツの取得
#	my $url9 = 'https://www.nanshiki.co.jp/index.html';
	my $url9 = 'https://www.bing.com/search?q=https%3A%2F%2Fwww.nanshiki.co.jp%2Findex.html&form=ANNTH1&refig=f3c6701be6124ed48672eed8a56674e7&pc=U531';
	my $res9 = $lwp->get( $url9 );

このようにブラウザの検索で「DOSVAXJ3」を検索して、その時のURLを貼り付けました。

	if ( $res9->is_success ) {

## ダウンロード失敗時
	 } else {
		 print "error\n";
	}

このエラーが表示するので失敗したとわかりましたが、詳細はわかりません。
タイムオーバーではエラー表示しなかったのでブロックされているのではと思ったのです。

> > しかたがないので、ブラウザの検索をURLにしたら（おい）アクセスできました。(^^;
> ？？？
> これはよくわからない。
> CGIスクリプトで取得しているのですよね？

上に貼り付けたのでわかりますよね。

> 新しい並びで、私は全く問題ありません。
> が、例えば、縦ではなく横に並べてみる、ということはできませんか？

おお！　その手があったか！　スマホ対応で幅を制限してたんですが
ブラウザ画面を狭くするとリンクは折り返してくれるので全く問題ないですね。
どうも考え方が平面的になっていました。立体で考えるとはこのことですね。(^^;

眠いので続きはまた。(__)..zzZ

> 私が気がついたのは、WinXPに入っていたFirefoxの古い版でアクセスしたときに、
> メニューのブックマークの中にあった「このページを購読」のボタンがアクティブ
> になっていたからです。

これを見て UA偽装有り無しもやってみましたが変わらないようです。
    my $ua      = 'Mozilla/5.0 (compatible; MSIE 9.0; Trident/5.0)';
#    my $ua      = 'Mozilla/4.0 (compatible; MSIE 7.0;)';
#    my $ua      = 'Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:133.0) Gecko/20100101 Firefox/133.0';

> 軟式さんのサイトのトップページのソースを開くと、冒頭に「title='RSS'」って
> ありますので、そのリンクを使ってみてください。

これは気が付いていましたがそのリンクに変えても変わらないようです。
#	my $url9 = 'https://www.nanshiki.co.jp/nanshiki.xml';
	my $url9 = 'https://www.nanshiki.co.jp/index.html';

> そして、そのリンクだけを読み込もうとして、つまり、他のサイトを読まない、素の
> シンプルなテスト用のスクリプトを作って、それで
> > > これについてですが、#11754で私が尋ねたように、軟式さんのサイトだけを読み込む
> > > スクリプトでも同じ状況になる、ということですよね。

これもやってみましたが変わらず読めないようです。

ちなみに、「PerlでLWP::UserAgentを使った10のプログラミングテクニック」
https://jp-seemore.com/sys/20283/
と言うサイトに色々サンプルが載っていて、そのなかのサンプル
-----------------------------------------------------------
> 下記のサンプルコードでは、HTTPSリクエストを安全に送信する方法を表しています。

use LWP::UserAgent;
use IO::Socket::SSL;

my $ua = LWP::UserAgent->new(
    ssl_opts => {
        SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_PEER,
        verify_hostname => 1
    }
);

my $response = $ua->get('https://www.secure-example.com');

if ($response->is_success) {
    print "Secure Response: " . $response->decoded_content;
} else {
    die "SSL error: " . $response->status_line;
}

-----------------------------------------------------------

これも試してみましたがやはり読めませんでした。
他の HTTPS のサイトは読めましたがそれは元々読めていたので。

> この状況が起こるようであれば、私にもそのテスト用スクリプトを送ってほしい、
> ということでした。

色々ゴチャゴチャしてますが、メールで送りました。

> 色々ゴチャゴチャしてますが、メールで送りました。

いただきました。
ゴチャゴチャしているのもそうですが、送られてきたスクリプト、いろいろと悪い
意味で予想が外れていました。

#11773
> そして、そのリンクだけを読み込もうとして、つまり、他のサイトを読まない、素の
> シンプルなテスト用のスクリプトを作って、それで
> > これについてですが、#11754で私が尋ねたように、軟式さんのサイトだけを読み込む
> > スクリプトでも同じ状況になる、ということですよね。"
> この状況が起こるようであれば、私にもそのテスト用スクリプトを送ってほしい、

と書いたので、当然、該当URLを読み込む部分だけのスクリプトで試験していて、その
スクリプトを送ってくると思っていたのですよ。が、いろいろな出力部分が残って
いて、それがわりと迷彩状態。もうね、この段階で私の期待はずれ。
テストはできるだけシンプルなコードで、ということは心がけてほしい。

で、まずは手始めに、送っていただいたコードの中の取得するURLを指定している
だけを、うまく取得できるはずのbing経由に書き換えてlacoocanの私のスペースに
アップロードしてアクセスするも、あえなくlacoocanからの

> Internal Server Error
> 実行エラー
> CGIの実行時にエラーが発生しました。

の表示。う〜ん、一体何が悪いのかわからん。
もしかしたら、いらなさそうなところを全部削ればきちんと動くのかもしれません
が、そんなこともやってられない。結局、自前で試験用スクリプトを作ってしまい
ました。以下のような感じ。

#!/usr/local/bin/perl

use LWP::UserAgent;

    my $ua      = 'Mozilla/5.0 (compatible; MSIE 9.0; Trident/5.0)';
    my $timeout = '230';
    my $lwp = LWP::UserAgent->new( agent => $ua, timeout => $timeout );

    my @new = ();
    my @list = ();
    my $outline = '';
    print "Content-type: text/html\n\n";
    print "<html><head><title>dummy</title></head><body>\n";

    ## コンテンツの取得
    my $url1 = 'https://www.nanshiki.co.jp/nanshiki.xml';
#    my $url1 = 'http://27-138-85-108.rev.home.ne.jp';
    my $res1 = $lwp->get( $url1 );

    ## ダウンロード成功時
    if ( $res1->is_success ) {
        print "success";
    ## ダウンロード失敗時
    } else {
        print "error\n";
    }
    print "</body></html>\n";

__END__


これだけのコードで、うまくデータが取得できないことは確認。
ということで、ここから調査開始。
まず軟式さんのサイトの素性調査。すると、bit-driveというソニー系のサービスを
利用していることが判明。が、このサービスが特殊、というのは引っかかってこない。
次に、LWPでうまくアクセスできない、という状況を調査。
すると、２０年近く前のQ&Aで、Wikipediaにうまくアクセスできないという状況が
あったらしい。このときは、LWPのデフォルトのユーザーエージェントがlibwww-perl
となっていて、そのＵＡでのアクセスをWikipediaが蹴っ飛ばしているから、とのこと。
でも、今回はスクリプトでＵＡを変更しているから関係ないよなぁ、と思いつつ、
FirefoxのアドオンでＵＡを偽装してlibwww-perlを偽ってみたり、ＵＡなしにして
みたりして軟式さんのところにアクセスすると、普通にアクセスできるので、おそらく
ＵＡは関係なさそう。
ただ、これに着想を得て。
LWPがアクセスするときの、HTTPのプロトコルレベルで何か余計なものがくっついて
いる可能性があるのではないかと思い、自宅で80番ポートにダミーのサーバを立てて
プロトコルレベルでのやり取りを観察しようと思いました。使ったソフトは「鯖男」
というものです。ベクターにあります。
結果、「インデックスがリストの範囲を超えている」みたいなエラーメッセージを
「鯖男」が吐いてきて。つまり、「鯖男」が想定していないようなデータをニフティ
のLWPは送りつけている模様。

ここまでの調査でわかったことはこれだけ。
今後の調査の方向。
LWP::UserAgent ではなく LWP::Simple にある getprint というのを使うと、少し
詳しいステータスが取れるらしい。これでエラーコードか何かがわかれば、さらに
先に進む手がかりが得られるかも。
もちろん、LWP::UserAgent ですら、私は全てを把握できているわけではないので、
その中で何か有用なものがあれば使ってみたい。

途中経過でした。

> LWPがアクセスするときの、HTTPのプロトコルレベルで何か余計なものがくっついて
> いる可能性があるのではないかと思い、自宅で80番ポートにダミーのサーバを立てて
> プロトコルレベルでのやり取りを観察しようと思いました。

他の、簡単に立てられて簡単にプロトコルログが取れるサーバソフトはないかと
探したところ、やっぱりベクターにありました。似たような名前のソフトがいくつ
もありますが、以下のものです。

https://www.vector.co.jp/soft/winnt/net/se381431.html

普通、サーバログというのはプロトコルレベルではありません。
ですが、このソフトの場合は逆にシンプルすぎて、プロトコルレベルでしか記録
してくれないのです。
早速導入してニフティからアクセスさせた結果。
なんかえらく欠落が多い。
ローカルのブラウザからアクセスした時は、きちんと一通りのログが取れていると
いうのに。速度の問題なのかな。ニフティ側が速すぎるとか。
とりあえず、この方向は一旦保留。


> 今後の調査の方向。

> もちろん、LWP::UserAgent ですら、私は全てを把握できているわけではないので、
> その中で何か有用なものがあれば使ってみたい。

googleでいろいろと調べてみても埒が明かなくなりつつあったので、MS copilotに
質問を投げてみました。すると想定外に、役に立つ答えが返ってきました。

> LWPライブラリを使用して他のWEBサイトにアクセスできない原因を追究するため
> には、以下の方法を試してみると良いでしょう：
> 
> エラーメッセージの確認：
> LWPライブラリが返すエラーメッセージを確認し、具体的なエラー内容を把握し
> ます。これにより、問題の原因を特定しやすくなります。
> アクセス制限の確認：
> アクセスしようとしているWEBサイトが特定のIPアドレスやユーザーエージェン
> トをプロックしている可能性があります。サイトの管理者に問い合わせるか、
> 異なるIPアドレスやユーザーエージェントを使用してアクセスを試みてください。
> SSL/TLS設定の確認：
> HTTPSサイトにアクセスする場合、SSL/TLS証明書の問題が原因でアクセスできな
> いことがあります。LWP::UserAgentのSSL設定を確認し、必要に応じて証明書の
> 検証を無効にするか、正しい証明書を使用するように設定します。
> プロキシ設定の確認：
> プロキシサーバーを経由してアクセスする必要がある場合、LWP::UserAgentの
> プロキシ設定が正しく構成されているか確認します。
> タイムアウト設定の確認：
> タイムアウト設定が短すぎると、アクセスが完了する前にタイムアウトしてしま
> うことがあります。LWP::UserAgentのタイムアウト設定を適切に調整します。
> デバッグモードの使用：
> LWP::UserAgentのデバッグモードを有効にして、詳細なログを取得します。これ
> により、問題の原因をより詳細に分析できます。
> 
> これらの方法を試しても問題が解決しない場合は、Niftyのサポートに問い合わせ
> てみるのも良いでしょう。問題の詳細を提供することで、より具体的なサポート
> を受けられるかもしれません。

この次の質問として、サンプルコードを要求したのですがね。
なんと、一見正しく動きそうなサンプルコードを提示してきたのですよ。
びっくり。
本当にそのまま動くかどうかはわかりませんが、とりあえず、そこに提示されていた
「デバッグモードを有効にする」「SSL証明書の検証を無効にする」コードをを先述
のスクリプトに組み込んでみたところ、なんかきちんと軟式さんのところからデータ
を取得できているみたい。
次に、「SSL証明書の検証を無効にする」コードを取り外してみたところ、なんと
データの取得に失敗するではありませんか。
もしかしてこれか？

えぇと、可能性として考えられるものは２つ。
ニフティのLWPで使っているSSL/TLSの証明書がおかしくて、軟式さんのサイトと
きちんと通信できないという可能性。
もうひとつは、軟式さんのサイトで使っている証明書がおかしい可能性。
回避策としては、あまり好ましくはありませんが、上記のとおり、SSL証明書の検証
を無効にすればよい。無効にするためのコードは

    $lwp->ssl_opts(verify_hostname => 0);

というものを追加すればよい。$lwpを宣言した直後でも大丈夫のはず。


お試しください。

> 次に、「SSL証明書の検証を無効にする」コードを取り外してみたところ、なんと
> データの取得に失敗するではありませんか。
> もしかしてこれか？

おお、原因が特定できたようですね。凄いです！

> えぇと、可能性として考えられるものは２つ。
> ニフティのLWPで使っているSSL/TLSの証明書がおかしくて、軟式さんのサイトと
> きちんと通信できないという可能性。
> もうひとつは、軟式さんのサイトで使っている証明書がおかしい可能性。

軟式さんのサイトの証明書を見てみた時に有効期限が切れていたような気がしました。
これが原因かもですね。

> 回避策としては、あまり好ましくはありませんが、上記のとおり、SSL証明書の検証
> を無効にすればよい。無効にするためのコードは
>     $lwp->ssl_opts(verify_hostname => 0);
> というものを追加すればよい。$lwpを宣言した直後でも大丈夫のはず。
> お試しください。

試してみました。
おお！　軟式が読める！　私にも読めるぞ！　ララァー
ということで３倍重い百式専用機にザクっと組み込んでみます。

＃　SSLなんて飾りですよ。偉い人にはわからんのです。(嘘です）

> ・DOSVAXJ3の更新日付を表示
> 表示しないこともあるかと思いますがそういうことなのでご容赦願います。m(__)m

ブラウザの検索データは大きすぎて表示が間に合わないっぽいです。
更新を２度やれば表示するようです。
なので、コンテンツの取得では最後尾に追加してたんですが
    ## コンテンツの取得
	my $url9 = 'https://www.bing.com/search?q=https%3A%2F%2Fwww.nanshiki.co.jp%2Findex.html&form=ANNTH1&refig=f3c6701be6124ed48672eed8a56674e7&pc=U531';
	my $res9 = $lwp->get( $url9 );
    my $url1 = 'http://vtdos.bbs.fc2.com/';
    my $res1 = $lwp->get( $url1 );

このように最初に移動させて読み込み、処理時間稼ぎをしたらほぼ表示するようになったようです。
サーバーの負荷が凄そうでとっても邪悪。(^^;

あと日付の表示を大きめにして、表のタイトル文字を少し小さくしました。

３６年越しのリベンジを果たそうと思っているのですが、諸般の事情で難しそう。
するとさらにあと１２年待たないといけないのか。
そうなると、高い確率で果たすことは無理そう。

そういうことがあると、現実逃避に走るわけで。

> > > 別途作成済みのhtmlファイルの断片を、望んだところにインクルード
> > > できるか否か、というところ辺りから試してみましょう。
> > うーん、これがイメージ出来ないのですよ。

> なら、過去ログへのリンクを出力している部分で、CGIで自前でリンクを構築して
> 出力するのではなく、外部のテキストファイルを読み込んで、そのまま一切の加工
> を加えずに出力する、なんてことはできるわけです。

まずkonnoさんの過去ログ一覧のリンクをそのままサンプルとして使わせてもらおう
と思ったのですが、バグ発見。
なんか、<table>タグが閉じていない。
あと、尻尾のほう、<font>タグがあるけど、これで修飾される文字は謎。

そんなこんなででっち上げたサンプルテキスト。

<p><table><tr>
<td width=10></td><td class=num><b>TEST</b> 
[<b><a href="./wforum.cgi" title="00年00月"> 20 </a></b>]
[<b><a href="./wforum.cgi" title="00年00月"> 19 </a></b>]
[<b><a href="./wforum.cgi" title="00年00月"> 18 </a></b>]
</td></tr></table>

こいつを例えば pastdat.cgi などというテキストファイルに保存。
テキストファイルの拡張子を cgi にするのは、この界隈の流儀。
コードのほうはこんな感じ。

$pastdat = "pastdat.cgi";
open(IN,"$pastdat") || &error("Open Error: $pastdat");
while ($pastlink = <IN>) {
    print "
    $pastlink";
}
close(IN);

こんな感じで、任意のテキストファイルの中身をインクルードできます。
とりあえず、うちの板塀で期間限定で実装しています。
新規投稿フォームの直上。

konnoさんのイメージできないって別のことかな。
すれ違っていたらごめん。

> そして、そのテキストファイルの作成に当たって、手作業で作ってもいいし、何らか
> のトリガで自動で作るようにしてもいいのではないか、ということを考えました。

過去ログに現行ログから生地が追加されるたびに日付は更新される可能性がある
わけですよね。そんなもん、未来永劫手作業なんて、私ならちゃぶ台返しモード。
もちろん、konnoさんが毎日まめにチェックするなら全く問題なし。

> するとさらにあと１２年待たないといけないのか。

干支ですか？　(^^;

> まずkonnoさんの過去ログ一覧のリンクをそのままサンプルとして使わせてもらおう
> と思ったのですが、バグ発見。
> なんか、<table>タグが閉じていない。
> あと、尻尾のほう、<font>タグがあるけど、これで修飾される文字は謎。

げげ、発見していただきありがとうございます。見直してみます。

> そんなこんなででっち上げたサンプルテキスト。

おお、こんなやり方もあるのですね。これは応用が利きそうです。

> konnoさんのイメージできないって別のことかな。

過去ログ範囲の自動生成のほうですね。
今回更新のデータは require によるインクルードでやっています。
ym.cgi
	@ym=0;
	$ym[27]="24年01月から24年06月まで";
	$ym[26]="23年02月から23年06月まで";
	$ym[25]="22年02月から23年03月まで";
		以下略

このように配列変数にして
print "[<b><a href=\"$script?page=0&list=$in{'list'}&mode=past&pastlog=$pastkey2\" title=\"$ym[$pastkey]\"> ";
このリンクルーチンに追加するだけで実現できました。(^_^)　　　　　　　　　　　　　　　　　　^^^^^^^^^^^^^

> 過去ログに現行ログから生地が追加されるたびに日付は更新される可能性がある
> わけですよね。そんなもん、未来永劫手作業なんて、私ならちゃぶ台返しモード。
> もちろん、konnoさんが毎日まめにチェックするなら全く問題なし。

上記のように更新はほぼ日付のみなので１分も掛からないですね。
年１〜２回の更新で良いかと思いますが、なんなら放置でも良いかと。(ﾟ゜)☆＼(--#)ﾊﾞｷｯ
目的が発言の時期から過去ログを特定しやすくするためなので。
今回としきさんの助言で凄く便利になりました。(^_^)

> > もう既に何時間も考えているのですよね。(^^;
> そろそろ、延べ１時間くらいにはなるかなぁ。
> けど、頭の体操にはちょうど良くて。(^^;

なるほどわかる気がします。私もアイデアが浮かんだら目的の作業をそっちのけで
そのアイデアを実現する改造にのめりこんでしまいますしね。（それは違う気が）

> > ここを読んで思ったのですが、私のルーチンはデータは配列変数の並びになっています。
> 配列への代入って、どうなっているんですか？
> ファイルからの読み込み？
> ハードコーディング？

#11862 に書きましたが
>  今回更新のデータは require によるインクルードでやっています。
> ym.cgi
> 	@ym=0;
> 	$ym[27]="24年01月から24年06月まで";
> 	$ym[26]="23年02月から23年06月まで";
> 	$ym[25]="22年02月から23年03月まで";
> 		以下略
> このように配列変数にして

require ym.cgi;  で配列変数に取り込まれます。
この場合直近のログを調べて
$ym[27]="24年01月から25年02月まで";
などと変更して

	$i=0;
	open(OUT, "> ym.cgi");
		if ( $i<=27){
			print(OUT "$ym[$i];\n");
			$i++;
		}
	close(OUT);

文法は適当ですが、こんな感じでファイルに書き戻すとか。


＃　うう、もう過去ログが更新されてるぅ。(>_<)

新着情報 V0.958 更新しました。

・ #11803：テスト用スクリプト by としきさん情報 
>   $lwp->ssl_opts(verify_hostname => 0);
　を使用して LWP での軟式サイト読み込みに成功したのでこの方式に変更しました。
　調べて頂いたとしきさんに感謝です。

・リンクの順番変更と VTDOS bbs の項目数戻しなど

> > これはちょっと違います。屋敷の掲示板情報を閲覧した時の時間です。(^^;
> > って、めざらさんのいけず〜。(;_;)
> いけずのめざらから確認させていただきますが，

目上の人に失礼な言い方してすみませんでした。m(__)m
まじめな質問だったのですね。重ねて失礼をお詫びします。m(__)m

> （時間ではなく時刻だということは理解しました）
> 屋敷の閲覧を開始した時刻ではなく，新着情報を再表示した時刻ですね？

そうです。なので「表示時刻」と変更しました。私的に必要な情報なのです。

> 閲覧者のブラウジング環境のウィンドウサイズだと理解しました。
> ただ，この数値は正確ですか？
> わたしの環境は解像度 FHD で，各ブラウザを【全画面】にしたときに，
> 解像度と表示されたウィンドウサイズの値が一致しないのですが……。

私はコピペしただけなので詳細はわかりません。
ブラウザの外枠ではなく記事を表示する内枠の数値だと思いました。

> 「ウィンドウサイズ：横幅 = 1536 / 高さ = 864」になります。
> 本来の 1920 x 1080 に近い値というわけでもないですよね。

ブラウザ窓の上下左右は情報表示の空間になっているのでその内側だと思います。

> どちらかっていうと，●わたしの環境が変●なのかも。
> cman.jp の javascript サンプルのページの値を見ても変だし……。
> （https://web-designer.cman.jp/javascript_ref/window/size/）

おお、こんなサイトがあるんですね。確かにサンプルの表示数値は違いますね。
うちの環境で全画面の数値は、ウィンドウサイズ：横幅 = 1366 / 高さ = 617  なので
c1　window.innerWidth  (*1)　　　　　　　　ブラウザ内の表示域(スクロールバーを含む)　1366
h2　document.documentElement.clientHeight　ブラウザ内の表示域(スクロールバーを除く)　617
これが当てはまると思います。

(*1)：IE8以下では取得できません。とあるので環境によっては正しく表示しないかも。
うちの環境では全画面で無い場合は数値が１違う時があるようです。御魚もとい誤差かな？ (^^;

> ズームとか関係なさそうなんだけど，何が変なんだろう……(´・ω・｀)

上記の項目の値と全然違うのですか？　ソースを見ても難しすぎてわかりませんが

<tr><td>c1</td><td>window.innerWidth &nbsp;(*1)</td><td>ブラウザ内の表示域(スクロールバーを含む)</td><td id="outInnerWidth" class="nowValue"></td></tr>
<tr class="rowColor"><td>h2</td><td>document.documentElement.clientHeight</td><td>ブラウザ内の表示域(スクロールバーを除く)</td><td id="outElementClientHeight" class="nowValue"></td></tr>

うちの簡易なスクリプトとは違うような気がします。値が違うのは関数が違う？

//読み込み時の表示
window_load();

//ウィンドウサイズ変更時に更新
window.onresize = window_load;

//サイズの表示
function window_load() {
	var sW,sH,s;
	sW = window.innerWidth;
	sH = window.innerHeight;
	s = "ウィンドウサイズ：横幅 = " + sW + " / 高さ = " + sH;
	document.getElementById("winsize2").innerHTML = s;
}