★ INCM Plug-in開発掲示板 ★ TinyGrass Ver0.32a ［戻る］
[0476] 03/04/03 17:35 Buckeye(IWcyoI6XJKE): Re:475)Re: プロキシ関連で不具合か？
☆ GETWILD'74さん
そっか、CMLIB15.PL側でやってるんですね。
ただ、いずれにしても、incm_bbs.iniに"PROXY="パラメータがないと設定されないわけで……ダイアログを見てもincm_bbs.iniを直接開いてみても、PROXYパラメータは見あたらないんです。
Best regards,
Buckeye
[0475] 03/04/03 17:07 GETWILD'74(7ewbH5F8/fA): Re:474)Re: プロキシ関連で不具合か？
★Buckeyeさん
>if($proxy){}という処理はあるけど、その$proxyを設定している部分がないように思うんです。
CMLIB15.PLで代入してるみたいですよ。
incm_bbs.iniからパラメータを取得する際に
elsif(/^PROXY=.*http=([^:]+):(\d+)[ \n]/){ ($proxy,$port)=($1,$2); }
elsif(/^PROXY=([^:]+):(.+)\n$/){ ($proxy,$port)=($1,$2); }
の部分で代入されてるようです。
[0474] 03/04/03 16:01 Buckeye(IWcyoI6XJKE): プロキシ関連で不具合か？
私が公開しているcm_@nifty-FORUMプラグインで、プロキシが設定されているためか、うまく動かないという不具合報告をもらいました。これに対し、正常にアクセスできているプラグインとして、↓などがあげられていました。
§ ＊INCM用Plug-in(ライブラリ)： Yahoo掲示板用(新版）
§ Ver0.13b 2002/3/1 by 一 五明 cm_Yahoo_new.pl
で、一五明さんのプラグインのソースも見てみたのですが、cm_Yahoo_new.plって、実際にはプロキシ処理をしていないことになるんじゃないかと思ったんですけど……この理解、間違っているでしょうか。if($proxy){}という処理はあるけど、その$proxyを設定している部分がないように思うんです。
Best regards,
Buckeye
[0473] 02/12/12 22:50 ？？？(bOpLiVe293Y): 無題
[0472] 02/12/07 01:57 一 五明(0iDqLDdaPWc): Re:469)INCMページのアップローダー
>スペースの件はここにコピーする時に文章を整形したので入ってしまったのだと思います。
掲示板だとtabが飛んだりしますからね(^^;
INCMページのアップローダーのEtc辺りを使うのがいいかも。
http://ka.sakura.ne.jp/~nikeno/incm/upload/
http://kt.sakura.ne.jp/~timeflow/M/
[0471] 02/12/06 21:08 Buckeye(IWcyoI6XJKE): Re:470)RE: 表示方法はないはず…
☆ 3382:GETWILD'74 さん
おー、ソースを公開していたかいがありましたねぇ(^^)
Best regards,
Buckeye
[0470] 02/12/06 16:21 GETWILD'74(Vy2HhQBvukc): Re:468)RE2: 表示方法はないはず…
Buckeyeさん、レスありがとうございます。
Perlで出来ると分かっただけでも収穫でした。
改めてcm_@nifty-FORUMプラグインを見ていて問題点が分かりました。
[DIALOG]だとプロパティを開いた時にプラグインが実行されないみたいですね。
前もその辺りは疑っていたのですが、処理に何か問題があったのでしょう。
もしかしたら書き込む際に[DIALOG]に戻し忘れていたのかもしれません。
とにかく成功して嬉しい限りです。
BuckeyeさんのPerlでも出来るというレスがなかったら、もう一度挑戦して
みようと思うことはなかったでしょう、ありがとうございました。
これでKENT-WEBプラグインなどで、余分な詳細設定をカットできそうです。
[0469] 02/12/06 13:44 ゆう(yxtrs31Q3CY): Re:467)Re2: ソース見ないと理由は不明ですが…
ありがとうございます！
\nを挿入したら読むことができました！
スペースの件はここにコピーする時に文章を整形したので入ってしまったのだと思います。
まだまだ対応したい掲示板があります。
わからなかったらまたお聞きすることがあるかもしれません。
これからもよろしくお願いいたします。
[0468] 02/12/06 13:25 Buckeye(IWcyoI6XJKE): Re:466)RE: 表示方法はないはず…
☆ 7988:GETWILD'74 さん
変ですね、私のところではできてますよ。
開発は、ず〜っとPerlでやって、最後にexeにして動作確認という形だから、Perlでできないことはしていません。今も、動作確認という意味もあって、私の手元では、exe版とPerl版の両方を使っていますが、動きに違いがあると感じたことはありません。
Best regards,
Buckeye
[0467] 02/12/06 12:43 GETWILD'74(FkAfNAHAw2U): Re:463)Re2: ソース見ないと理由は不明ですが…
001.cm$を見てみました。
M:
本文
http://*****.pdf.
S:***********
となっていて、記事の区切りの「\n.\n」になってません。
$udataへの代入を独自にされている部分に問題があります。
s/<a href=\"(.*?)\" target=\"new\">//; $udata="$uribase$1";
を
s/<a href=\"(.*?)\" target=\"new\">//; $udata="$uribase$1\n";
にすれば記事の取得は出来るようになりました。
それとここに掲載されたスクリプトの７４行目に全角空白が混入していて
最初はエラーになりました。
[0466] 02/12/06 12:43 GETWILD'74(FkAfNAHAw2U): Re:464)RE2: 表示方法はないはず…
>私のcm_@nifty-FORUMプラグインは、Perlで詳細設定をガシガシ書き換えてますけど。なにか違うものを指しているのかなぁ。
もちろん存じております。
なのでPerl版でも出来ると思ってcm_@nifty-FORUMプラグインも参考に
色々とやってみたのですが、どうしてもダメなんですよね。
cm_@nifty-FORUMプラグインではコンパイル前のPerlの状態で実行
しても詳細設定の書き換えは出来てますか？
私のやり方に問題があるのかなぁ？(^^;
[0465] 02/12/06 11:19 Buckeye(IWcyoI6XJKE): Re:461)RE: ソース見ないと理由は不明ですが…
具体的な手順は、
・PerlプラグインとINCM_BBS.iniを適当なフォルダにコピー
・Windowsの「スタート」メニューから「プログラム」→「MS DOSプロンプト」
とか「コマンドプロンプト」というものを選ぶ
・黒いウィンドウが現れる（DOS窓）。
実行したいPerlプログラムを、エクスプローラからドラッグして、この
・DOS窓にドロップ
・Enterキーを押す
私は、上記が面倒なんで、">001.cm$"を">001.txt"と書き換えて実行するっていうのをよくやります。で、これが簡単にできるように、出力ファイルの指定は変数にしておいて、プログラムの頭で指定するようにしています。
ただ、今回の件だと、タイトルは出るのに記事本文がエラーログ側に出力されるとのことなので、エラーログの出力ルーチンを調べたほうがいいのかなと思います。
Best regards,
Buckeye
[0464] 02/12/06 11:19 Buckeye(IWcyoI6XJKE): Re:459)RE: 表示方法はないはず…
☆ 7988:GETWILD'74 さん
すいません、ここんとこ、きちんと読めていないんではずしているかもしれませんが……
>>iオプションでの詳細設定書き換えもexeでないと出来ないみたいですし。
私のcm_@nifty-FORUMプラグインは、Perlで詳細設定をガシガシ書き換えてますけど。なにか違うものを指しているのかなぁ。
Best regards,
Buckeye
[0463] 02/12/06 11:12 ゆう(ye95RRuO3ZA): Re:461)Re: ソース見ないと理由は不明ですが…
お返事ありがとうございます。ソースは１３０行くらいですので失礼して・・・
##### INCM用plug-in for 東経投資クラブ用 ver0.1.0
#
# 東経投資クラブ用対応 2002/12/05 by jk
# http://www.tktoushi.com/cgi-bin/stock/info.cgi?key=
#
# 一 五明さんの YY-BOARD plug-in をベースに修正しました。
# ナカタさんの INCM用plug-in for OTD bbs-plain#14アイコン用 ver0.1.0をベースに修正しました。
# ☆返信は出来ません。あしからず。
$_=$0; s/[^\\]+$//; require($_."CMLIB15.PL");
##### フォルダプロパティの設定 ###########################################
$_= <<"#[/DIALOG]";
#[DIALOG]
#URL=1\nUPURL=0\nNAME=0\nEMAIL=0\nHP=0\nKEY=0
#USER=0\nPASS=0\nPARAM1=1\nPARAM2=1
#_URL=掲示板のアドレス(URL)(&A):
#_UPURL=書き込み先のアドレス(URL):
#_NAME=名前:
#_EMAIL=メールアドレス:
#_HP=ホームページ(URL):
#_KEY=削除キー:
#_USER=
#_PASS=
#_PARAM1=読み取りページ数(無指定:1)
#_PARAM2=未読ポインタ(例：01/11/28,06:07)
#[/DIALOG]
#L000=L,,未読ポインタの有効/無効
#L001=R,L_PTR=0,有効(デフォルト)
#L002=R,L_PTR=1,無効
#L003=.
if(&init){
##### 接続/その他の初期設定 ##############################################
unless($local){ # ローカル変換でなければ接続
&httpget('>001.cm$',"") || exit;
}
print &gettitle; # CMTヘッダ出力 ※出力される
$lastptr=$param2 || 0;
$newptr=$lastptr;
##### 記事の出力 #########################################################
$param2=$param2 || 1; # 何ページ読むか
$atclmax=0; # 1ページに最大いくつの記事が有るか
ATCL:{
$atclcnt=0; # 各ページ毎の記事数
$page+=1; print STDOUT "\nPage $page:";
$/="<\/tr>"; # 区切り
while(<HTTP>){ # 区切り毎に、ファイル終端まで $_に読む
s/\r\n?/\n/g;
print LOG $_;
if(/<a href=.*?.pdf.*?target=\"new\">/){ # $_に「pdf」が取得出来たら記事とみなす
if(/<div style=\"font-size:14px\;\">(\d{4}\.\d{2}\.\d{2})<\/div>/){ $tempdate=$1; $tempdate.=" ";}
if(/<div style=\"font-size:14px\;\">(\d{2}:\d{2})<\/div>/){ $tempdate.=$1; }
$date=&getdate($tempdate);
$date=~s/^..//; # 年を2桁化
$usave=$_;
# 未読管理
if($date lt $lastptr){last}
if($date gt $newptr){$newptr=$date}
$num=$rnum="*"; # 記事No
$head=""; # head初期化
s/<div style=\"font-size:14px\;\">(\d+)<\/div>//; $uTempNo=$1; # 番号 使用しない
s/<div style=\"font-size:14px\;\">(\d{4})<\/div>//; $utitle=$1; # タイトル
s/<div style=\"font-size:14px\;\">(.*?)<\/div>//; $utitle.=":$1"; # タイトル
$utitleM=$utitle;
$utitle=~s/ //g;
if (/<tr>/){
$atclcnt+=1;
print STDOUT "."; # 読み取り状況
}else{
$atclcnt+=1;
print STDOUT "*"; # 読み取り状況
}
# $head.="F:$form\&no=$root\&reno=$root\n"; # 返信param
$head.="T:$utitle\n"; # タイトル
$head.="N:東洋経済新報社\n"; # 名前
s/\n//g;
$uribase="http://$host";
s/<a href=\"(.*?)\" target=\"new\">//; $udata="$uribase$1";
s/<div style=\"font-size:14px\;\">(.*?)<\/div><\/a>//; $_="$utitleM $1";
print STDERR "\n==========\n";
print STDERR "S:$num,$rnum,$date,\n"; # 記事ヘッダ出力
print STDERR "$head";
print STDERR "M:\n$_\n$udata\n\."; # 本文の出力
print "S:$num,$rnum,$date,\n",$head; # 記事ヘッダ出力 ※出力されない
&wrtmes($_,$udata); # 本文の出力 ※出力されない
# print "S:$num,$rnum,$date,\n"; # 記事ヘッダ出力 ※出力されない
# print "$head";
# print "M:\n$_\n$udata\n\."; # 本文の出力 ※出力されない
}
} # ← while(<HTTP>)の終わり
##### 次のページ #########################################################
last ATCL if $local; # ローカルファイルなら抜ける
$param2-=1; last unless $param2;
$atclmax=$atclcnt unless $atclmax; # 最初のページの数がページ毎の最大値に
last ATCL if($atclcnt != $atclmax); # 最大値より少ないなら最終ページ(終了)
print STDOUT "\nConnecting...";
if(&httpreq("page=".($page*$atclmax))){ &gettitle; redo ATCL; }
print STDOUT "\nPage ",$page+1," and before cannot read."; # 読めなかった
} # ← ATCL: の終わり
##### 終了 ###############################################################
&fin;
print STDOUT "\ndone.";
}
exit;
##### 覚え書き ###########################################################
__END__
以上です。なにかお気づきな点がありましたらご教授下さい。
人のプラグインをカスタマイズして作っています。
お返事頂いた内容でも調べてみます。
[0462] 02/12/06 09:29 GETWILD'74(ijw3ekq1Rl.): Re:461)Re: ソース見ないと理由は不明ですが…
もしDOSに抵抗があるのなら、Perlが実行できるエディタを使う手もあります。
[0461] 02/12/06 07:57 一 五明(0iDqLDdaPWc): Re:460)ソース見ないと理由は不明ですが…
*.cm$を直接チェックするには、Perl+プラグインをINCMを通さずにDOS窓から
実行する手があります。
カレントディレクトリに INCM_BBS.ini をコピーして実行すれば、そこに
*.cm$ が出力されます。
（DOSのファイラーがあれば便利）
http://kt.sakura.ne.jp/~timeflow/M/
[0460] 02/12/05 16:01 ゆう(yxtrs31Q3CY): Re:458)Re: 表示方法はないはず…
一 五明さん、GETWILD'74さん、お返事ありがとうございました。
とりあえずはできないということですね。。。済みません細かくて（笑）
あと、もう一つ質問いいでしょうか。
001.cm$ファイルに本文が出力されないのです。
かいつまむと、
unless($local){ # ローカル変換でなければ接続
&httpget('>001.cm$',"") || exit;
}
で接続し、
print &gettitle; # CMTヘッダ出力
では「001.cm$」ファイルに出力されるのですが、
本文取得後、出力時に
print "S:$num,$rnum,$date,\n",$head; # 記事ヘッダ出力
&wrtmes($_,$udata); # 本文の出力
としてもファイルには出力されていないのです。
出力フォーマットはエラーログに出力した内容を無理やり「001.cmt」にコピーすると
INCM本体で表示されるので、間違いはないと思います。
わかりにくい説明ですみません。
よろしければお教えください。
[0459] 02/12/05 09:14 GETWILD'74(FkAfNAHAw2U): Re:458)Re: 表示方法はないはず…
> いろいろ仕様は出し合ってたんですが、決定する前にGAEさんの転職引っ越し、
>多忙化、ソース紛失etc.で開発中断で、そのままだったと思います。
でもexe形式だと出来るんですよね？
FreeBoardプラグインでは表示されてますし。
私も前に表示しようとして悩みました。
過去ログ見ても案だけで答えがなかったです。
iオプションでの詳細設定書き換えもexeでないと出来ないみたいですし。
[0458] 02/12/05 07:22 一 五明(0iDqLDdaPWc): Re:455)表示方法はないはず…
>だと思うのですが、コメントはどの部分が表示されるのでしょうか？
タイトルの通りです(^^;
いろいろ仕様は出し合ってたんですが、決定する前にGAEさんの転職引っ越し、
多忙化、ソース紛失etc.で開発中断で、そのままだったと思います。
http://kt.sakura.ne.jp/~timeflow/M/
[0457] 02/12/04 17:58 RayZ(aF.bt0qmNVI): Re:454)RE22: DiscussPlusについて質問です
本当に何度もすみません。m(._.)m
結果、出来ました。ありがとうございました。
（45行目〜）
$_=<HTTP>; print LOG $_;
/\.cgi?(id=[^\&\n]+)\&/; $id=$1;
#14/12/04 ここから加筆
if(!$id){ $uri=~/\.cgi\?(id=[^\&\n]+)\&/; $id=$1; }
#14/12/04 ここまで
（136行目〜）
# $_=$a; ##14/11/28
$_=$a;## $upurl = "http://$host$uri"; $upurl =~ s/[^\/]+$/regist.cgi/; ##14/11/28
s/\nUPURL=.*\n/\nUPURL=$upurl\n/ if $upurl;
s/\nPARAM2=.*\n/\nPARAM2=$newptr\n/ if $newptr;
というように質問系掲示板の過去ログをみて試してみました。
（過去ログをしっかり読まずにすみませんでした。2000番以降は手許にあったのですが）
本当にすっきりしました。ありがとうございました。
[0456] 02/12/04 17:28 ゆう(yxtrs31Q3CY): プラグインのプロパティ コメント について
初心者です。
プラグインをカスタマイズしているのですが、
INCM本体でプラグインのプロパティを表示した際、
プラグイン情報で、
対応→「for」の後の文字列を表示
作者→「by」の後の文字列を表示
バージョン→「ver」の後の文字列を表示
だと思うのですが、コメントはどの部分が表示されるのでしょうか？
しょうも無い質問で申し訳ありません。
[0455] 02/12/04 17:21 ゆう(yxtrs31Q3CY): プラグインのプロパティ コメント について
初心者です。
プラグインをカスタマイズしているのですが、
INCM本体でプラグインのプロパティを表示した際、
プラグイン情報で、
対応→「for」の後の文字列を表示
作者→「by」の後の文字列を表示
バージョン→「ver」の後の文字列を表示
だと思うのですが、コメントはどの部分が表示されるのでしょうか？
しょうも無い質問で申し訳ありません。
[0454] 02/12/04 16:36 GETWILD'74(Vy2HhQBvukc): Re:452)RE21: DiscussPlusについて質問です
>ということは、今まで投稿したつもりが蹴られてしまったのは、
>ただ単に混みあってただけ、ということなのでしょうね。
送信ログのエラーからするとそうとは限らないと思います。
>「今のままで・・」というのは、®ist=登録する は不要ということ
>なのですね。
はい、私は付けない状態で投稿できてました。
>やはり投稿ができないようなのですが、
>何か外部のファイルを参照するようなことがあるのでしょうか？
外部のファイルって何でしょう？
CMLIB15のことでしたら参照してません。
質問系掲示板に似たような質問がありました。
No.1549からのツリーです。
「会議室設定が見つかりません。」
というエラーからして、やはりidがきちんと設定されていないような気がします。
[0453] 02/12/04 14:12 RayZ(qHYlp62kbSE): Re:452)RE21: DiscussPlusについて質問です
・・・・すみません。
やはり投稿ができないようなのですが、
何か外部のファイルを参照するようなことがあるのでしょうか？
[0452] 02/12/04 13:31 RayZ(2ORpWptmE/A): Re:451)RE20: DiscussPlusについて質問です
>>POST,（略）=write&page=1&reply=$Sr&sort=1&back=block&frame=「®ist=登録する」>（「」は実際にはつけない）ということと理解してよいでしょうか？
>>重ね重ね質問ばかりで申し訳ありません。
>
>それでいいのですが、今のままで投稿できるみたいです。
>間違って投稿してしまって分かりました。(^^;
え、、、そうなのですか？？
ということは、今まで投稿したつもりが蹴られてしまったのは、
ただ単に混みあってただけ、ということなのでしょうね。
「今のままで・・」というのは、®ist=登録する は不要ということ
なのですね。
GETWILD'74様には、いろいろとご教示頂き、本当に感謝しております。
また一 五明様のBBSで長々と申し訳ありませんでした。
これからもより一層皆様方のご健勝をお祈りしております。
本当にありがとうございました。
[次のページ]