■掲示板に戻る■ 全部 1- 101- 201- 301- 最新50 [PR]ぜろちゃんねるプラス[PR]  

ぜろちゃんねるスクリプトを改造するスレ Part2

1 :名無しさん@ぜろちゃんねる:2009/02/17(火) 22:36:11 ID:???0
ぜろちゃんねるスクリプトに、
haneやらkageやらdameやら
teletypeやらpreやらnukeanasanやら
おみくじやら何やらの機能を付けたりして改造するスレです。

ぜろちゃんねるろだ
http://zeroch.ps.land.to/

2 :名無しさん@ぜろちゃんねる:2009/02/21(土) 18:27:38 ID:GOfQeKz20
お願い致します。
○○/kako/index.html(過去ログページ)に、今古い過去ログが一番上にあり、
下に行くについて新しい日付のものへといっているのですが、それを逆にすることはできますでしょうか?
知ってる方がいましたら、どうか宜しくお願い致します!


3 :!kab-:2009/02/22(日) 19:21:22 ID:???0
>>2
kako.idxを開いて昇順を降順に並び替えると、
過去ログの表示が昇順に変わるのでそれだけでいいのでは?


それと質問なんですが2chの過去ログなど外部のログを移転する際、
今はdatをアップしてsubject.txtを書き換えてadmin.cgiから入ってindex更新しています。
これをadmin.cgiから入らずにアップローダのように外からアップして更新することって可能ですか?
使用しているのは060227版です。


4 :名無しさん@ぜろちゃんねる:2009/02/22(日) 22:17:58 ID:???0
remake.cgiつかえばー?

5 :2:2009/02/22(日) 22:23:34 ID:Vr+x/BvA0
>>3
レス有難うございます。
私のバージョンは20070124版なのですが、「kako.idx」とは、
「bbs/掲示板フォルダ名/kako/kako.idx」
ですよね?
私がsortして逆順にしたいのは
「bbs/掲示板フォルダ名/kako/index.html」
です。このファイルに生成されているデータを逆順にsortするために「module/celeborn.pl」の
sub OutputIndex{}の中を色々いじってみたのですがエラーばかり吐かれてしまい、途方にくれていました。
もしかしたら完全な勘違いをしているのかもしれませんが・・・
どうかご教授ください!




6 :2:2009/02/22(日) 22:45:48 ID:Vr+x/BvA0
連投申し訳有りません。
>>2>>5の件が解決しました。
celeborn.plのsub OutputIndex{}のなかでforeachをする直前に
「@$pInfo2 = sort { $b cmp $a } @$pInfo; 」
を入れたら逆順にsortされました。

以上報告になります。
有難うございました。

7 :名無しさん@ぜろちゃんねる:2009/02/23(月) 17:18:12 ID:???0
>>4
remake.cgiゲットしたけどロダも内封してるとなおGJ

8 :名無しさん@ぜろちゃんねる:2009/02/23(月) 19:12:15 ID:???0
ろだぐらいいくらでもあるでしょ

9 :名無しさん@ぜろちゃんねる:2009/02/27(金) 13:10:43 ID:???0
>>8
そこをなんとか。。。

10 :名無しさん@ぜろちゃんねる:2009/03/29(日) 22:08:02 ID:???0
過去ログを、
http://アドレス/板アドレス/123/1234567890.htmlではなく、
http://アドレス/板アドレス/1234/12345/1234567890.htmlのようにするにはどうすればいいのでしょうか。

11 :10:2009/03/30(月) 00:05:13 ID:???0
バージョン書き忘れた…
最新版(070124)です。

12 :名無しさん@ぜろちゃんねる:2009/05/04(月) 02:39:48 ID:???0
そういえば最近その改造したな
参考になるかどうかは分からないけど

/test/mordor/のbbs.pool.plの過去ログ生成の部分を以下に変更

539行目

$Logs->Add($key,$Dat->GetSubject(),time(),'/' . substr($key,0,4) . '/' .substr($key,0,5));

610行目
$logDir = $Sys->Get('BBSPATH') . '/' . $Sys->Get('BBS') . '/kako/' . substr($key,0,4) .'/' .substr($key,0,5);



13 :10:2009/05/05(火) 03:43:43 ID:???0
>>12
出来ました。
ありがとうございます。

14 :名無しさん@ぜろちゃんねる:2009/05/06(水) 23:14:41 ID:???0
携帯の各種識別子取得方法ってがいしゅつだったっけ?

15 :名無しさん@ぜろちゃんねる:2009/05/06(水) 23:16:08 ID:MwLxzt0o0
ageとくか

16 :名無しさん@ぜろちゃんねる:2009/05/06(水) 23:46:07 ID:???0
>>14
既出だけどかなり古いし完全ではないかもね
うちの環境だけかもしれないがauのは取得できるようになったけど既出の改造してもdocomoが未だに取得出来ないし

17 :名無しさん@ぜろちゃんねる:2009/05/06(水) 23:47:00 ID:MwLxzt0o0
>>16
ほしい?

18 :名無しさん@ぜろちゃんねる:2009/05/06(水) 23:48:18 ID:MwLxzt0o0
>>16
取得できないのは製造番号じゃなくてimodeID?

19 :名無しさん@ぜろちゃんねる:2009/05/07(木) 00:16:45 ID:???0
iモードIDだね
くれる?のなら欲しいよ
docomoユーザーあまり居ないけど出来るなら書込めるようにしてあげたいし

20 :名無しさん@ぜろちゃんねる:2009/05/07(木) 12:39:46 ID:3C3n5dzo0
遅くなったけど貼るかなあ。
bbs.cgiの580行目ぐらい
sub GetProductInfo
{
my ($oConv,$agent) = @_;
my $product = undef;
my$host = $oConv->GetRemoteHost();
#docomoの場合
if($host =~ /\.docomo\.ne\.jp/){
$docomo = $ENV{'HTTP_X_DCMGUID'};
$product = $docomo;
}
#auの場合
elsif($host =~ /\.ezweb\.ne\.jp/){
$kddi = $ENV{'HTTP_X_UP_SUBNO'};
$product = $kddi;
}
#softbankの場合
elsif($host =~ /\.jp-.\.ne.jp/){
$agent =~ /SN([A-Za-z0-9]+)/;
$product = $1;
#$product = $ENV{'HTTP_X_JPHONE_UID'};
}
else{
$product = $oConv->GetRemoteHost();
}
return $product;
}

read.cgiの393行目ぐらい
$Page->Print("<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\">\n");
r.cguの300行目辺り
$Page->Print("<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\" utn>\n");

取得できるようになったら幸いです。


21 :名無しさん@ぜろちゃんねる:2009/05/08(金) 08:20:37 ID:???0
>>20
早速使わせてもらってdocomoユーザーの協力を得て行った動作報告を

掲示板トップ(例:http://0ch.mine.nu/jikken/)                 から書き込むと950エラー
スレ     (例:http://0ch.mine.nu/test/read.cgi/jikken/1234877645/)を開いてからだと書き込めた
とのこと

あとログには7桁のiモードIDのみ記録され、同じiモードIDでもスレのIDは固定されずに書き込む度に変わってしまうみたい
数回書き込みしてくれたのは1人なのでこれについてはまだ不確定だけど
auからの書き込みは取得もID固定も問題なし

ちなみにtest070124使用で、何も弄っていない状態で>20に書き換えた時と
下記辺りの改造をしたままの状態で更に>20に書き換えた時とで試してみたけど結果は同じだった
http://0ch.mine.nu/test/read.cgi/jikken/1046702960/637-639
http://0ch.mine.nu/test/read.cgi/jikken/1046702960/563-565

何にしても取得出来るようにはなったのでdocomoユーザーにも書き込んでもらえるようになったよ
本当にお疲れ様、そしてありがとう

22 :名無しさん@ぜろちゃんねる:2009/05/08(金) 08:23:46 ID:nFoDYIiQ0
その既出の改造法ってどこにあるの?

23 :名無しさん@ぜろちゃんねる:2009/05/08(金) 10:05:31 ID:nFoDYIiQ0
varda.plの564行目あたり
$Page->Print("<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\">");
でindexからでも書き込めるかな

24 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:26:29 ID:???0
>>23
改造乙。
俺も昨日試させて貰ってvarda.plにはそれと同じ書き換えしたけど書き込みOKだったよ。
ただやはりIDは固定されないね。auは固定されるけど。

25 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:28:14 ID:oK+ath/k0
>>24
改造法がどこにあるのかわからない
わかればそれに合わせて作るんだけど。

26 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:34:37 ID:qmxSr0Og0
なぜ"<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\" utn>"
と末尾にutnをつけないのかと小一時間(ry

27 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:35:46 ID:qmxSr0Og0
ちなみに、なんでutnが必要かって言うと、imodeはこれつけないと端末固有番号送信しない仕様だから。

28 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:35:57 ID:oK+ath/k0
必要ないでしょ
BBMから切り捨てられたものがなぜ必要なのか聞きたいよ

29 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:36:57 ID:oK+ath/k0
>>27
はあ?
日本語でおk

30 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:39:33 ID:???0
>>25
俺は20の改造しかしてないけど何の改造法を探してるんだ?

31 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:41:18 ID:oK+ath/k0
>>30
既出の改造法があるんじゃないの?
IDを固定化できる

32 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:41:32 ID:qmxSr0Og0
>>28-29
ってか>>20の改造でもつけてるじゃん。今はそれつけなくても端末固有番号送信すんの?
docomo携帯なんてもってないから俺には確かめようがないけどさ。

33 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:42:37 ID:qmxSr0Og0
ちなみにutnつけてないってのは>>23のことね。安価つけなかったからわかりにくかったかもだけど。

34 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:47:19 ID:oK+ath/k0
>>32
imodeidはリクエストヘッダにあるからそれを取得してる
>>20を見ればわかると思うのだが
utnをつけてるのは元のソースに追加しただけだから。

35 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:51:00 ID:qmxSr0Og0
>>34
あ〜調べてみたらそうみたいだ。
拡張ヘッダの方にあるIDはGETパラメータにguid=ONつければ取得可能になってるのか今は。

36 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:51:09 ID:???0
>>31
20の改造でログに記載されるHOSTが
auは「xxxxxxxxxxxxxx_mb.ezweb.ne.jp」だけど
ドコモは「xxxxxxx」と7桁のimodeIDしか取得していないのからそれがID生成に支障をきたしてるんじゃない?
実際ドコモはID固定されているし。

37 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:52:30 ID:qmxSr0Og0
ちなみに
ttp://www.nttdocomo.co.jp/service/imode/make/content/ip/index.html#imodeid

>利用時の注意点

> * 注意ユーザのiモードID利用設定がOFFの場合にはiモードIDの拡張ヘッダは付与されません。

って記述あるから確認したほうがいいかも

38 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:53:33 ID:oK+ath/k0
いやまあなんというか…IDはIDで別のモジュール管轄だから(galadriel.pl)

>>37
送信しなかったらエラーが出るようになってるのもソースを見ればわかると思うんだけど

39 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:57:28 ID:qmxSr0Og0
>>38
今確認したらそうなってたわスマソ。
>my $product = GetProductInfo($Sys->{'CONV'},$ENV{'HTTP_USER_AGENT'});
>if($product eq undef){
>  return 950;
>}

ここか。


40 :名無しさん@ぜろちゃんねる:2009/05/09(土) 03:58:50 ID:???0
>実際ドコモはID固定されているし。
auの間違いだった。

>>38
管轄は知ってるけどIDに関する改造なんて21が貼ってる
http://0ch.mine.nu/test/read.cgi/jikken/1046702960/637-639
くらいしかないと思うが。
ていうかどこからID固定の改造の話が出てきたのかがわからない。

41 :名無しさん@ぜろちゃんねる:2009/05/09(土) 04:00:23 ID:qmxSr0Og0
galadriel.plのMakeIDって関数だとIPからID生成する仕様になってるな。

42 :名無しさん@ぜろちゃんねる:2009/05/09(土) 04:17:16 ID:oK+ath/k0
かなり適当だけど作ってみる

43 :7M. ◆dq7M./4Uw. :2009/05/09(土) 06:44:49 ID:dxEZ3Y9g0
携帯からの場合はシリアルからID作る様にすればいいんじゃないですかね。

44 :名無しさん@ぜろちゃんねる:2009/05/09(土) 09:40:29 ID:oK+ath/k0
早く起きてしまった…
シリアルの一部を抜き出してそれを$hostに入れるって感じで出来るかな

45 :名無しさん@ぜろちゃんねる:2009/05/09(土) 10:54:24 ID:oK+ath/k0
動作保証はしません。
galadriel.plのMakeIDのところを変える

sub MakeID
{
my $this = shift;
my ($server,$column,$hosts) = @_;
my @times = localtime(time());
my (@nums,$ret,$host,$str,$capID);

# 種の生成
#ezweb端末番号から
if($hosts =~ /\.ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'}
$host = substr($host , 3 , 4) #上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3) #上から三つ取得
}
#端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]{5})(\1+)/; #上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums = split(/\./,$ENV{'REMOTE_ADDR'}); # ez番号を分解
$host = substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1); # 上位3つの1桁目取得;
}
$str = $host . substr(crypt($server,$times[4]),-5); # server名結合
$column = -1 * $column;
# IDの生成
$ret = substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret =~ s/\./+/g;
return $ret;
}

vara.plの135行目あたり
$id = $oConv->MakeID($oSys->Get('SERVER'),8,$oForm->Get('HOST'));
に変更

46 :名無しさん@ぜろちゃんねる:2009/05/09(土) 20:24:50 ID:???0
>>45
galadriel.plにMakeID部分の書換えをすると、500 Internal Server Errorでぜろちゃんねる管理にログイン出来なくなります

47 :名無しさん@ぜろちゃんねる:2009/05/09(土) 20:57:27 ID:oK+ath/k0
#ごめんごめん
#馬鹿なミスしてしまった

sub MakeID
{
my$this = shift;
my($server,$column,$hosts) = @_;
my@times = localtime(time());
my(@nums,$ret,$host,$str,$capID);

# 種の生成
#ezweb端末番号から
if($hosts =~ /\.ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}
#端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]{5})(\1+)/;#上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums= split(/\./,$ENV{'REMOTE_ADDR'});# ez番号を分解
$host= substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1);# 上位3つの1桁目取得
}
$str= $host . substr(crypt($server,$times[4]),-5);# server名結合
$column= -1 * $column;
# IDの生成
$ret= substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret=~ s/\./+/g;
return $ret;
}

vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8,$oForm->Get('HOST'));
に変更


48 :名無しさん@ぜろちゃんねる:2009/05/09(土) 23:01:46 ID:???0
ez番…号?

49 :名無しさん@ぜろちゃんねる:2009/05/09(土) 23:08:07 ID:oK+ath/k0
ez番号であってるんだけど
サブスクライバIDって呼んでほしかったの?
どうでもいい

50 :名無しさん@ぜろちゃんねる:2009/05/09(土) 23:11:28 ID:???0
横からですが貰って行きますー

51 :名無しさん@ぜろちゃんねる:2009/05/09(土) 23:22:06 ID:???0
携帯がauだからdocomo利用者が来てくれないことには確認できないのが辛い

52 :名無しさん@ぜろちゃんねる:2009/05/09(土) 23:39:34 ID:oK+ath/k0
よく見たらezweb端末番号になってたな
まあ

            /)
           ///)
          /,.=゙''"/
   /     i f ,.r='"-‐'つ____   こまけぇこたぁいいんだよ!!
  /      /   _,.-‐'~/⌒  ⌒\
    /   ,i   ,二ニ⊃( ●). (●)\
   /    ノ    il゙フ::::::⌒(__人__)⌒::::: \
      ,イ「ト、  ,!,!|     |r┬-|     |
     / iトヾヽ_/ィ"\      `ー'´    /


53 :名無しさん@ぜろちゃんねる:2009/05/10(日) 03:13:54 ID:???0
ソフバンの行がw

54 :名無しさん@ぜろちゃんねる:2009/05/14(木) 22:01:03 ID:???0
>>47
とりあえずezwebについてはID固定を確認出来ました
docomoは利用者が全然来てくれないので未確認

55 :名無しさん@ぜろちゃんねる:2009/05/14(木) 22:36:24 ID:???0
うちの掲示板に組み込んで試したけど
docomoはID固定ならずでしたよ

56 :名無しさん@ぜろちゃんねる:2009/05/14(木) 22:41:28 ID:Qemn4XCs0
む、なんかバグがあるっぽいな…

57 :名無しさん@ぜろちゃんねる:2009/05/14(木) 22:46:21 ID:Qemn4XCs0
あーあ、そういうことかwww
アホすぎるだろ俺

58 :名無しさん@ぜろちゃんねる:2009/05/14(木) 22:58:55 ID:Qemn4XCs0
即席だけど、こうやったらできるかなあ…
sub MakeID
{
my$this = shift;
my($server,$column) = @_;
my@times = localtime(time());
my(@nums,$ret,$host,$str,$capID);
my$IP = $ENV{'REMOTE_ADDR'};
my$hosts = gethostbyaddr(pack('c4',split(/\./, $IP)), 2) || $IP;

# 種の生成
#ez番号から
if($hosts =~ /\.ezweb\.ne\.jp$/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp$/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}
#softbank端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp$/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]{5})(\1+)/;#上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums= split(/\./,$ENV{'REMOTE_ADDR'});# ip番号を分解
$host= substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1);# 上位3つの1桁目取得
}
$str= $host . substr(crypt($server,$times[4]),-5);# server名結合
$column= -1 * $column;
# IDの生成
$ret= substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret=~ s/\./+/g;
return $ret;
}

vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8);
に戻して
変更いらない



59 :名無しさん@ぜろちゃんねる:2009/05/14(木) 23:20:15 ID:???0
名前:名無しさん[] 投稿日:2009/05/14(木) 17:22:36 ID:3usbh9YAO
てす1

名前:名無しさん[] 投稿日:2009/05/14(木) 17:23:07 ID:+yNQ/sn2O
てす2

やっぱダメぽいですね

60 :名無しさん@ぜろちゃんねる:2009/05/14(木) 23:22:26 ID:???0
>>59
ログに記録されるホストはどうなってる?

61 :名無しさん@ぜろちゃんねる:2009/05/14(木) 23:28:46 ID:Qemn4XCs0
んじゃ確実な方やるか
sub MakeID
{
my$this = shift;
my($server,$column,$hosts) = @_;
my@times = localtime(time());
my(@nums,$ret,$host,$str,$capID);

# 種の生成
#ez番号から
if($hosts =~ /\.ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}
#softbank端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]{5})(\1+)/;#上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums= split(/\./,$ENV{'REMOTE_ADDR'});# ip番号を分解
$host= substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1);# 上位3つの1桁目取得
}
$str= $host . substr(crypt($server,$times[4]),-5);# server名結合
$column= -1 * $column;
# IDの生成
$ret= substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret=~ s/\./+/g;
return $ret;
}
vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8,$oConv->GetRemoteHost());
に変更

62 :名無しさん@ぜろちゃんねる:2009/05/14(木) 23:34:13 ID:???0
>>60
1242289356<>22<>0ch BBS 2007-01-24<>210.136.161.165
1242289387<>22<>0ch BBS 2007-01-24<>210.136.161.162

ログ履歴です

63 :名無しさん@ぜろちゃんねる:2009/05/14(木) 23:38:28 ID:Qemn4XCs0
何故IPが記録されているのやら

64 :名無しさん@ぜろちゃんねる:2009/05/15(金) 00:31:57 ID:???0
>>63
うちの掲示板でもIPで記録される時もあればiモードIDで記録される時もあるよ

65 :名無しさん@ぜろちゃんねる:2009/05/15(金) 00:34:04 ID:AbwZvyhI0
再現できない

66 :名無しさん@ぜろちゃんねる:2009/05/15(金) 00:36:14 ID:AbwZvyhI0
galadrielのgetremotehostでIPが戻ってきちゃってるのかなー
それぐらいしか原因思いつかない

67 :64:2009/05/15(金) 00:49:59 ID:???0
>>66
ログ確認してみたらうちの掲示板では>>47の改造をした直後からIPでしか記録されなくなってる

68 :名無しさん@ぜろちゃんねる:2009/05/15(金) 00:59:52 ID:AbwZvyhI0
>>47でログに影響が出るわけない

69 :64:2009/05/15(金) 01:14:18 ID:???0
別に>>47に原因があるとは思ってないし言ってもないよ、でもiモードIDでは一切記録されてないのは事実

70 :名無しさん@ぜろちゃんねる:2009/05/15(金) 01:18:14 ID:AbwZvyhI0
じゃあ、>>47を元に戻した状態でiモードIDが記録されるか確認して

71 :7M. ◆dq7M./4Uw. :2009/05/15(金) 07:13:37 ID:eTlfXevc0
docomoだけの不具合?
なら書き込みフォームにguid=ONが抜けてるとかとかとか。。。

72 :名無しさん@ぜろちゃんねる:2009/05/15(金) 07:30:29 ID:5lRNBTbU0
さすがにそれはないですね。

73 :7M. ◆dq7M./4Uw. :2009/05/15(金) 09:13:43 ID:eTlfXevc0
そですか。
それなら、vara.plのID作成部分で変にGetRemoteHostとかやっちゃってるのが原因かなぁ。
MakeIDの中でIPをgethostbyaddrして、キャリアを分ける、あとはキャリア毎のシリアルからID生成とかすれば、、。

あとまぁ、あんま心配は要らないかもしれないんですが、
DoCoMoの携帯は設定によってはGUID送ってくれないので、
からっぽだった時の対策を何かしとくといいかもしれません、

74 :名無しさん@ぜろちゃんねる:2009/05/15(金) 15:00:59 ID:AbwZvyhI0
140行目あたりに次の行追加
$Sys->{'FORM'}->Set('HOSTS',$ENV{'REMOTE_HOST'});
vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8,$oForm->Get('HOSTS'));
で、>>61って感じで。

>>73
それが原因なんですかね

75 :名無しさん@ぜろちゃんねる:2009/05/17(日) 09:56:19 ID:???0
>>74
16日に1件だけドコモからの書き込みがあったみたいなので
ログを確認してみたらその書き込みだけHOSTに何の記録もなく空欄でした
HOSTが記録されないのでは恐らくID固定はされない気がします

76 :名無しさん@ぜろちゃんねる:2009/05/17(日) 10:16:57 ID:0lt/bALw0
気がしますって^^;
まあID作成関数とログは何の関係もないから…とだけ
取得できない理由かあ…再現できないから対処のしようもないし
環境が原因でなければ何が原因なのか…

77 :名無しさん@ぜろちゃんねる:2009/05/17(日) 11:04:18 ID:???0
ログ記録を捨ててまでID固定したいって人もいないのでは?

78 :名無しさん@ぜろちゃんねる:2009/05/17(日) 20:39:21 ID:LmDZbEig0
ホスト情報の取得自体に失敗してるのだとしたら関係おおアリじゃね?docomo携帯と判別できないからIPからID作成されるし。

79 :名無しさん@ぜろちゃんねる:2009/05/17(日) 20:40:23 ID:LmDZbEig0
ホスト情報ってか、ホスト名だな。

80 :7M. ◆dq7M./4Uw. :2009/05/18(月) 03:45:24 ID:2pSTYC8Y0
動作確認してないからわかんないんですけど、
こんな感じでどーすか。

sub MakeID
{
my $this = shift;
my ($server,$column) = @_;
my @times = localtime(time());
my (@nums,$ret,$host,$str);

# 種の生成
@nums = split(/\./,$ENV{'REMOTE_ADDR'}); # IPを分解

my $hosts = gethostbyaddr(pack('c4',@nums), 2);
if($hosts =~m/docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}elsif($hosts =~m/ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}elsif($hosts =~m/jp-[cdhknqrst]\.ne\.jp/){
$ENV{"HTTP_USER_AGENT"} =~m|SN([A-Za-z0-9]{5})(\1+)| and $host = $1;
}else{
$host = substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1); # 上位3つの1桁目取得
}
$str = $host . substr(crypt($server,$times[4]),-5); # server名結合
$column = -1 * $column; # 桁設定

# IDの生成
$ret = substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret =~ s/\./+/g;

return $ret;
}

81 :名無しさん@ぜろちゃんねる:2009/05/18(月) 04:14:24 ID:lkzYUQPw0
>>61のvara.plと>>74の改造をしたうえでそれもってこと?
それとも>>80のみでいいのかな?

82 :7M. ◆dq7M./4Uw. :2009/05/18(月) 06:55:22 ID:2pSTYC8Y0
あ、これはこれ単品での改造です。
vara.plはノータッチのままで。

83 :名無しさん@ぜろちゃんねる:2009/05/20(水) 00:02:15 ID:???0
2 名前:エージェント・774[] 投稿日:2009/05/19(火) 17:50:36 ID:RUmvn/HYO
3 名前:名無しさんの次レスにご期待下さい[] 投稿日:2009/05/19(火) 17:50:56 ID:N+MJh5F+O

携帯(ドコーモ)IDはダメぽです。ランダムはスルーで

84 :名無しさん@ぜろちゃんねる:2009/05/23(土) 21:49:24 ID:???0
?guid=ON

85 :名無しさん@ぜろちゃんねる:2009/05/24(日) 03:49:16 ID:QO5+3RtU0
ホストログに、GUIDは表示されている?

86 :名無しさん@ぜろちゃんねる:2009/05/26(火) 08:01:30 ID:???0
IPで記録されるみたい

87 :名無しさん@ぜろちゃんねる:2009/05/26(火) 13:51:55 ID:39G2henI0
pack('c4',@nums);//小文字c
じゃなくて
pack('C4',@nums);//大文字C
じゃね?小文字だと符号付きchar扱いになるはず。

88 :名無しさん@ぜろちゃんねる:2009/05/26(火) 15:06:21 ID:???0
>>80の改造をしてからの投稿
129 名前:[] 投稿日:2009/05/26(火) 08:18:13 ID:KjFgOQ56O
てすと1
1243293493<>8<>0ch BBS 2007-01-24<>210.136.161.2

130 名前:[] 投稿日:2009/05/26(火) 08:18:28 ID:Yz2FI8dUO
てすと2
1243293508<>8<>0ch BBS 2007-01-24<>210.153.84.9

>>87のcを小文字から大文字に変更
131 名前:[] 投稿日:2009/05/26(火) 08:19:58 ID:x3U9ZR6AO
てす1
1243293598<>12<>0ch BBS 2007-01-24<>210.153.86.109

132 名前:[] 投稿日:2009/05/26(火) 08:20:57 ID:D3JQnc92O
てす2
1243293657<>10<>0ch BBS 2007-01-24<>210.153.86.17

小文字から大文字に変更したら投稿時間の縛りが出来るようになりましたが
IDは依然固定されないままです。

89 :名無しさん@ぜろちゃんねる:2009/05/26(火) 16:26:15 ID:39G2henI0
ってか、docomoのGUID送信って、>>84のパラメータをbbs.cgiの後にくっつけないとダメじゃね?
ソースのフォーム生成箇所もいじらないとダメなはず。

90 :名無しさん@ぜろちゃんねる:2009/05/26(火) 22:10:36 ID:A4LQ6o/M0
パラメータ改造はホストログ出力改造のときに一緒にだしたとおもうんだけどな。
パラメータだけで送信されるはず。

91 :名無しさん@ぜろちゃんねる:2009/05/26(火) 22:54:48 ID:???0
>>89
i?guid=ONは>>20などで既出だよ
だからすでにくっつけ済み、だけど固定出来ない

92 :名無しさん@ぜろちゃんねる:2009/05/26(火) 23:02:35 ID:A4LQ6o/M0
機種判定は、galadrielのGetAgentModeを使った方がいいのかもしれないな

93 :名無しさん@ぜろちゃんねる:2009/05/26(火) 23:39:54 ID:A4LQ6o/M0
GetAgentModeが古かったので、こっちに差し替えたほうがいいかも
sub GetAgentMode
{
my $this = shift;
my ($UA) = @_;

$_ = $UA;
if (m/DoCoMo/){ return 1; } # docomo携帯
if (m/SoftBank|Vodafone|J-PHONE/){ return 2; } # J-Phone携帯
if (m/KDDI/){ return 3; } # au携帯
if (m/WILLCOM|DDIPOCKET|MobilePhone|Windows CE|/){ return 4; } # willcom
if (m/jig browser/){ return 5; } # jigブラウザ
if (m/ibisBrowser/){ return 6; } # ibisBrowser
if (m/OpenBrowser/){ return 7; } # e-mobile
return 0;
}

94 :名無しさん@ぜろちゃんねる:2009/05/26(火) 23:46:47 ID:A4LQ6o/M0
あ、
>if(m/WILLCOM|DDIPOCKET|MobilePhone|Windows CE|/){return 4;}# willcom

if(m/WILLCOM|DDIPOCKET|MobilePhone|Windows CE/){return 4;}# willcom
に差し替えておいて。

95 :名無しさん@ぜろちゃんねる:2009/05/26(火) 23:54:16 ID:vZwJW9FI0
そろそろどの改造をしたら良いのかまとめた方がいいんじゃないか?
さすがにややこしくなってくる頃だと思うけど

96 :名無しさん@ぜろちゃんねる:2009/05/26(火) 23:58:16 ID:???0
>>93の改造したけど無理ぽ

97 :名無しさん@ぜろちゃんねる:2009/05/27(水) 00:21:50 ID:Oc3NOtDA0
>>93の改造は、今のところは無関係です。

98 :名無しさん@ぜろちゃんねる:2009/05/27(水) 00:23:05 ID:Oc3NOtDA0
>>95
えーっと
7Mさんがやってくれた>>80>>20>>23かな?

99 :名無しさん@ぜろちゃんねる:2009/05/27(水) 00:30:50 ID:8wS0QBa60
>>87


100 :名無しさん@ぜろちゃんねる:2009/05/27(水) 00:32:34 ID:8wS0QBa60
おい日付が変だぞwwwwwなんで水曜日になってんのwwww

73KB
続きを読む

名前: E-mail(省略可)
READ.CGI - 0ch+ BBS 0.7.4 20131106
ぜろちゃんねるプラス