スクリプト改造工房 Part3
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん@お腹いっぱい。
2001/05/02(水) 21:59ID:nr93n3doという人がいましたらここで聞いてください。
ひょっとしたらアドバイス出来るかもしれません。
前スレ
Part1 http://tako.2ch.net/test/read.cgi?bbs=perl&key=958370869
Part2 http://tako.2ch.net/test/read.cgi?bbs=perl&key=986986227
#板移動に伴い「CGI改造工房」→「スクリプト改造工房」に改名
なお、質問するときは
1)そのスクリプトのある場所(URL必須、拡張子".txt"でアップすればなお良し)
2)どんな風に改造して欲しいのか? (完成イメージHTMLを用意すればなお良し)
を必ず明記しよう。
0556501
01/11/25 03:41ID:???つーか久しぶりに来たらえらい騒ぎになってる(汗;
ゴメンねー、結構大きいファイルと思ったからまさかオンメモリにしてるとは
思わなかったよ(;´ω`) 慣れない事するもんじゃ無いね、反省してます。
ちゅう事で518氏は正しいので、反論されてる方は確認されたし
スレッドが消えるのは困ったねー、また話に乗ろうか?(笑
0557461
01/11/25 23:17ID:9En76V3nあれ以来飛ばなくなって、すっきりしてたんですけど
複数スレッド削除したり移動したりすると、datファイルが
サーバー上からほとんど消えて、スレッド一覧には同じ個所に複数リンク
する状態になります
seek SUBW,0,0;
truncate SUBW,0;
これは、ない方が良いのかな?無い方が調子良いような・・・・
それともサーバーが中途半端に、バグってるのかな?
0558名無しさん@お腹いっぱい。
01/11/27 14:28ID:???普通のチャットにぼっとを入れたいのですが
ttp://www.ct.sakura.ne.jp/~e_e/yuichat/yui.shtml
ttp://dream.lib.net/room/cgi/e_lchat.html
Light chat にゆいぼっとを組み込みこもうとしたんですが
皆目見当がつきません。
識者の皆様私はどうしたらいいでしょうか
よろしくお願いいたします
0559名無しさん@お腹いっぱい。
01/11/28 18:00ID:3zC+SFDuというのは、お絵かき掲示板で絵にタイトルをつけたいんですが
なかなかうまくいく方法が見つかりません。
0560名無しさん@お腹いっぱい。
01/11/29 13:43ID:NbUAArBIttp://dream.lib.net/room/cgi/s_lchat.html
見た目がこんな感じでぼっとを入れたいってことですか?
だったらゆいちゃっとをこういうデザインに改造した方が
よっぽど楽だと思いますけど・・・
0561558
01/12/01 12:29ID:JbWwCol+ありがとうございます。デザインだけなら良いのですが
ROMがわかるようにしたり、「こっそり入室」の機能を取り入れたりしたいです。
削るだけならともかく 機能を付け足すのができないので模索中です。
0562名無しさん@お腹いっぱい。
01/12/01 20:46ID:???がほしいのですが、お持ちの方ゆずっていただけませんか?
お願いします。
0563名無しさん@お腹いっぱい。
01/12/02 07:36ID:???配布中止/配布元不明スクリプトが欲しい人はダウンロード板へ
http://pc.2ch.net/download/
0564名無しさん@お腹いっぱい。
01/12/04 01:33ID:9jPmANFY>http://dx.sakura.ne.jp/~fbrand/fifnel/app/yybbs_2ch_12.lzh
のYYBBS改造版を使用してレス数に制限を付けるにはどうしたらいいでしょうか?
レス数が50(例えば)になったらそのスレッドは書き込めなく・・みたいな感じです。
よろしくお願いします。
0565名無しさん@お腹いっぱい。
01/12/04 04:45ID:???else {print "このスレッドには書けません";}
って感じ?
0566564
01/12/04 22:46ID:0Jo8+Yifちょっと分からないです(いや漏れがアホでw)
返信フォームの
>while (<IN>) {
内に追加すればいいのかなと言うくらいしか分からないです。
すんません。
この場合レス数を別途格納(rescntに?)しておく必要があるのでしょうか?
http://www.geocities.co.jp/Bookend-Ryunosuke/5174/yybbs.txt
テキストをageました。
どうぞよろしくお願いします。
(1)「レス」ボタン自体表示させないのか
(2)レスを送信したときに書き込めないってエラーを出すのか
どっちの仕様で?
(2)ならregistの中で
if ($in{'reno'} > $max) { &error("これ以上レス出来ません無理"); }
とかで弾けそう
0568567続き
01/12/05 17:21ID:???$maxはどっかで決めといてね
# テーブル表示するループ
foreach(@data){
# 略
if($reno eq ""){
if($topic_num){
$res_count_list{$topic_num} = $res_count; # <= 追加
print "<a href=\"#topic_$topic_num\">[<b>$topic_num</b>] : $topic($res_count)</a> \n";
# 略
}
$res_count_list{$topic_num} = $res_count; # <= 追加
print "<a href=\"#topic_$topic_num\">[<b>$topic_num</b>] : $topic($res_count)</a> \n"
if($topic_num);
# スレ表示するループ
foreach(@data){
# 略
if (!$reno) {
if ($res_count_list{$no} <= $max) { # <= 追加
print "<form action=\"$script\" method=$method>\n";
print "<input type=hidden name=mode value=res>\n";
print "<input type=hidden name=no value=$no>\n";
print "<input type=submit value='返信'></td></form>\n";
}
}
# 略
}
0570564
01/12/06 01:45ID:EtZtL7OT(1)の仕様の方が良さそうなのでそっちでやってみました。
んで、無事レス数を制限することが出来ました。
Thanks!
マジ感謝っす。
0571名無しさん@お腹いっぱい。
01/12/07 08:02ID:PKhGzuvDtackynote2をトクトクで使ってます。
右の日記表示フレームでバナー広告を使い、
左のフレーム(カレンダー側フレーム)の広告を
popupにしたいのですができますか?
0572名無しさん@お腹いっぱい。
01/12/07 08:44ID:???>>1を読んで出直してきたほうがいいよ。
0574名無しさん@お腹いっぱい。
01/12/07 12:03ID:???0575名無しさん@お腹いっぱい。
01/12/09 00:49ID:fllV62IYKENTさんのYYBBSのレスや親記事などの文字のサイズを変更したいのですができますでしょうか。
よろしくお願いします。
0576名無しさん@お腹いっぱい。
01/12/09 00:51ID:???じゃっ
0577名無しさん@お腹いっぱい。
01/12/09 01:31ID:???0578名無しさん@お腹いっぱい。
01/12/09 06:32ID:???yybbs.cgiをメモ帳で開いて、編集→置換を選択
上の欄に
<center>
下の欄に
<center><font size=7>
と入れて「すべて置換」をクリックすればよい
0579名無しさん@お腹いっぱい。
01/12/09 11:15ID:???0580名無しさん@お腹いっぱい。
01/12/09 21:31ID:???0581名無しさん@お腹いっぱい。
01/12/09 21:34ID:???エンピツやらでしか書けないメモ帳だろ
0582575
01/12/09 22:52ID:cDYnbl9Mでさっそく試してみたのですがメモ帳に置換機能がなかったのでviviを使って置換してみました。
ですが、上部にあるリンクなどの文字は小さくなったのですが、レスや親記事の文字は変化がありませんでした。
やはりメモ帳でなければいけないんでしょうか?
レス頂けると嬉しいです。
0583名無しさん@お腹いっぱい。
01/12/09 23:22ID:???# 本文の文字大きさ(ポイント数:スタイルシートで有効)
$b_size = '10pt';
↑この数字を変える。
と言うか、ネタは他でやって欲しい…。
0584575
01/12/11 00:09ID:ut9/0weD調べてみてやっと意味が判ってきました、最新バージョンにはちゃんと文字の大きさを変える設定があるんですね。
すいません確認すべきでした、ネタじゃないです。
本来ならそれにすべきなんでしょうが、バージョン4,5以前のyyBBSの文字をどうしても変えたいんです、バージョン4,5には文字の大きさを変える設定部分がないんです。
無理でしょうか?
0585名無しさん@お腹いっぱい。
01/12/11 00:25ID:???HTMLは分かる?、だったらBBSを表示してfontタグ入れたい辺りを
適当にコピーして、ソースからその部分を検索してタグを入れれば良いよ
" を書きたい時は \" と書こう。
0586名無しさん@お腹いっぱい。
01/12/11 01:11ID:???無理じゃない。でもソースが無いと具体的に答えられる人は居ないだろう。
0587575
01/12/11 09:49ID:0N0HYFRSあとその改造をした場合過去ログの生成とかに重大な問題とか発生しませんよね?、ちょっと怖くて。
0588575
01/12/11 09:51ID:0N0HYFRStxtをアップできる場所を探してきますね。
0589575
01/12/11 10:16ID:JBoTRLM2アップしました、これの親記事とレスの文字のサイズだけを変えたいんです、どうしてもこのバージョンがいいのです。
よろしくお願いします。
0590You ◆.TNjr64A
01/12/11 14:10ID:Y3FoQV4aこれだけ書き加えれば大丈夫みたいなソースは無いでしょうか?
また、それを外部HTMLファイル(例:index.shtml)に呼び出すことは可能でしょうか?
教えてちゃん系になってることは十分承知なのですが過去ログ見てもさっぱりわからなかったので
お願いできませんか?
一応yybbs.cgiの初期設定状態でのファイルをtxtにして上げておきます。
http://web-ryuu.virtualave.net/yybbs.txt
宜しくお願いします。
こういう時は直リンでいいと思う。。
「html_log」で2箇所変更
foreach ($page .. $page_end) {
print "<table border=0 cellspacing=0><tr>\n";
print "<td>[<b>$num</b>] <font color=$sbj_color><b>$sbj</b></font></td>\n";
print "<td width=10></td><td>投稿者:<font color=$link><b>$name</b></font></td>\n";
print "<td><small>投稿日:$date</small></td><td>$url</td></tr></table>\n";
print "<blockquote><font color=\"$color\" style=\"font-size: 10pt;\">$com</font></blockquote>\n"; # <= 変更
## レスメッセージを表示
$flag = 0;
foreach $line (@lines) {
print "<table border=0 width=100% cellspacing=0><tr>\n";
print "<td><font color=$rc><b>$rname</b> > <span style=\"font-size: 10pt;\">$rcom</span>"; # <= 変更
print "<small>($rd)</small></font></td></tr></table>\n";
}
}
0593You ◆.TNjr64A
01/12/11 18:19ID:Y3FoQV4a有り難うございます。
何とかやってみます。
0594名無しさん@お腹いっぱい。
01/12/11 18:57ID:qDkXU0ASttp://dream.lib.net/room/cgi/e_lchat.html
名前を入れないで入室するとIPが名前の代わりに表示されますよね
これを 名前もアドレスも入れないとエラーで入れないようにしたいんですが
どうしたらいいでしょうか。
よろしくおねがいします!
0595名無しさん@お腹いっぱい。
01/12/11 19:35ID:???あんたもしかして、ささ?
0596594
01/12/11 19:57ID:qDkXU0AS0597,,,
01/12/11 21:36ID:???0598575
01/12/12 09:52ID:j2q6LnF6なんだが感動だなー2chでこんなに優しくされた事ないです。
できるなら何か御礼がしたい気分です
0599461
01/12/12 11:14ID:T7t6jzkC漏れのスクリプトの修正個所を教えておくれ
0600名無しさん@お腹いっぱい。
01/12/12 17:21ID:K3A+PKZm0601あほ
01/12/12 17:36ID:o5WLFesJタグをつかえるようなわざはありますか?
さんざん答えてもらってるじゃん?
まだ未解決ならその部分を教えてくれ
イチイチ話追ってらんないし
0603名無しさん@お腹いっぱい。
01/12/13 04:06ID:RKUdAeD4ソースの中にコメントとして表示させたいのですが、どうやってやるのか教えてください。
0604Kusakabe Youichi
01/12/13 04:23ID:???>ゆいちゃっと2000で、ROMさんがいたら、
>ソースの中にコメントとして表示させたいのですが、どうやってやるのか教えてください。
どこの方言でしょうか? ねこみみです:)
0605名無しさん@お腹いっぱい。
01/12/13 05:40ID:???0606名無しさん@お腹いっぱい。
01/12/13 06:58ID:???0607よしだみつお
01/12/13 14:07ID:???『改造クン』とかいう引きこもり精神病の電波小僧
(現在2チャンネラー)が運営している最低なHPスペースです。
ユーザーの事など全く考えずに、こづかい稼ぎだけが目的で営利主義に走ってやがります。
天罰を与えてやりましょう!!
イタズラ登録をしまくって下さい。悪用しちゃってもいいですよ!!
鯖に負荷かけまくって責任とらせるってのも面白いかも(プ
http://k-server.org/ http://k-server.org/ http://k-server.org/
http://k-server.org/ http://k-server.org/ http://k-server.org/
http://k-server.org/ http://k-server.org/ http://k-server.org/
http://k-server.org/ http://k-server.org/ http://k-server.org/
この文章のコピー・転載を歓迎いたします。
0609ななし
01/12/13 23:01ID:sPciwiZN↑はランダムにテキストを表示するスクリプト(入手先失念)なのですが、
.docomo.ne.jp等の携帯からのアクセスにだけ動くようにするにはどのようにすれば良いでしょうか?
ご教授願います。
それを使って分岐
他の携帯はどっかでuser-agent調べて追加してね
$mobile = 0;
$agent = $ENV{'HTTP_USER_AGENT'};
if ($agent =~ /^DoCoMo/i) { # i-mode
$mobile = 1;
} elsif ($agent =~ /^J-PHONE/i) { # J-SKY
$mobile = 1;
} elsif ($agent =~ /^UP\.Browser/i) { # EZweb
$mobile = 1;
}
0612名無しさん@お腹いっぱい。
01/12/17 00:47ID:P4Cb9Kj6↑のスクリプトなんですが、レスでageないようにするにはどうしたらいいでしょう?
個人のHPに使うので、ageなくても良いんですよ
0613名無しさん@お腹いっぱい。
01/12/17 01:47ID:???# foreach (0..@lines) {
# my($mno,$mnum,$mres_num,$mdate,$mname,$msubject...(後略)
# if ( ($res_num eq $mnum) and ($mres_num eq '') ) {
# splice(@lines, $_, 1);
# unshift (@lines,"$new_code<>$regist_num<>$oya_num<>$res_name<>\n...(後略)
# }
# }
上の部分を消して(一応コメント化)、次を追加
unshift(@lines, "$new_code<>$regist_num<>$oya_num<>$res_name<>\n");
で逝けるような
0615614
01/12/17 01:52ID:???このスレから来たのか(w
0616名無しさん@お腹いっぱい。
01/12/18 09:42ID:???その、米塩の広告のあるページが見つかりません。
どなたかご存知ですか?
0617名無しさん@お腹いっぱい。
01/12/18 09:49ID:???0618名無しさん@お腹いっぱい。
01/12/18 10:06ID:???0619105
01/12/18 21:38ID:UFIXd/em↑の107です。
自分のIPアドレスは記録無視して来客のIPアドレスだけログ取るのって出来るんでしょうか?
そういう機能の付いたアクセス解析もあるそうなんですけど、今のとても気に入ってるんで
改造してそういう機能を付加していただけないでしょうか、お願いしますm(__)m
ソースは↓です、at-worksさんという方の作でこれの源流はKENTさんのやつらしいです。
0620105
01/12/18 21:42ID:UFIXd/em----------------------------------------------------------------
#!/usr/local/bin/perl
#=====================================================================
# access cgi アクセス情報取得ファイル report.cgi (2001/12/11)
#---------------------------------------------------------------------
# Original Script
# Access Report v2.0 (2001/04/01)
# アクセス解析システム
# Copyright(C) Kent Web 2001
# [email protected]
# http://www.kent-web.com/
#---------------------------------------------------------------------
# modified by himura
# access cgi ver.1.90 (2001/12/11)
# mail: [email protected]
# site: http://www.din.or.jp/~himura/at-works/
#---------------------------------------------------------------------
# ログデータ構造:"NO , DATE , REF , USER_AGENT , PIXEL , HOST , ADDR , DOC , "
# データログ構造:"DATES , ACCESS , "
#=====================================================================
# 環境設定
# 設定ファイル
require './access.ini';
# チェック用リスト
require $checkpl;
0621名無しさん@お腹いっぱい。
01/12/18 21:46ID:/iqeHLWFhttp://pc.2ch.net/test/read.cgi/php/992473384/3
0622105
01/12/18 21:46ID:UFIXd/em-------------------------------------------------------------------------------------------------------------------------
#=====================================================================
# UserAgent 情報を取得
$user_agent = $ENV{'HTTP_USER_AGENT'};
$user_agent =~ s/</</g;
$user_agent =~ s/>/>/g;
# UserAgent のチェック
if ($user_agent) {
foreach (@killua) {
if ($_ eq '') { next; }
$_ =~ s/\./\\./g;
$_ =~ s/\?/\\?/g;
$_ =~ s/\+/\\+/g;
$_ =~ s/\*/\.\*/g;
if ($user_agent =~ /$_/) { &putimage; }
}
}
#---------------------------------------------------------------------
# cookie チェック
if ($cookie_check) {
&cookie_get;
$co_check = time - $cookie_check * 60;
if ($get{$cookie_name} > $co_check) { &putimage; }
}
0623名無しさん@お腹いっぱい。
01/12/18 21:47ID:???0624名無しさん@お腹いっぱい。
01/12/18 21:49ID:???いいかげんにしろ。圧縮してどっかのあぷろだに上げればいいだろが。
0625105
01/12/18 21:49ID:UFIXd/em出来ればCGI側の機能で取らないようになってたらありがたいです。
素人考えですけど↓の部分じゃないのかなぁとか思ってるんですが・・・
-------------------------------------------------------------
#---------------------------------------------------------------------
# ホスト情報を取得
unless ($x_forwarded) {
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
} else {
$host = '';
$addr = $ENV{'HTTP_X_FORWARDED_FOR'};
}
if ($get_remotehost) {
if ($host eq '' || $host eq $addr) {
$host = gethostbyaddr(pack('C4', split(/\./, $addr)), 2);
}
}
if ($host eq '') { $host = $addr; }
# 除外 host のチェック
foreach (@myhost) {
if ($_ eq '') { next; }
$_ =~ s/\./\\./g;
$_ =~ s/\*/\.\*/g;
if ($host =~ /$_/) { &putimage; }
}
0626105
01/12/18 21:51ID:UFIXd/emあ、やはりそうなんですか。すいません。出直してきますm(__)m
0628105
01/12/18 22:58ID:UFIXd/em全部読み返したら本当に恥ずかしい。
ソースは配布元のリンク一応張ってたんスけど
ttp://www.din.or.jp/~himura/at-works/access/download/access.lzh
他スレhttp://pc.2ch.net/test/read.cgi/php/992473384/108の
108さんが教えてくれたのですこし自分で考えてみようかなと
分からなかったらまた来ます、マジすんませんでした。
0629名無しさん@お腹いっぱい。
01/12/26 00:04ID:???0630名無しさん@お腹いっぱい。
01/12/28 18:22ID:e4G5Ne9N姓名相性診断スクリプトttp://www.rescue.ne.jp/cgi/i-sho/i-sho.txtで
占った名前のログをとるようにすることってできますか・・・?
0631名無しさん@お腹いっぱい。
01/12/28 19:25ID:???できます・・・!
0632名無しさん@お腹いっぱい。
01/12/28 20:02ID:e4G5Ne9Nどうやればできますか・・・?
0633名無しさん@お腹いっぱい。
01/12/28 20:22ID:wdZ4AWJ7http://muvc.net/taron/index.html
0634630
01/12/28 20:34ID:e4G5Ne9N0635理由不純
01/12/28 20:40ID:???0636630
01/12/28 21:34ID:e4G5Ne9Nすいません。
分かりやすいサイト等ありましたらぜひお教え下さい。
0637名無しさん@お腹いっぱい。
01/12/28 22:10ID:???http://pc.2ch.net/test/read.cgi/php/1003900311/
0638 ◆.t4dJfuU
01/12/30 16:56ID:nMRi1i2q0640名無しさん@お腹いっぱい。
02/01/03 13:23ID:heDaELZUhttp://www.kent-web.com/bbs/aska.html?
こんな掲示板です。お願いします。
素直にツリー型の掲示板を使おうYO!
0642640
02/01/03 23:03ID:heDaELZUアドバイス有り難う御座います。
ですが、ツリー型のものと現行のものを使い分けたいという理由と
ログをどうしてもリセットしたくないという理由がありまして...。
0643名無しさん@お腹いっぱい。
02/01/04 03:45ID:???0644名無しさん@お腹いっぱい。
02/01/04 03:51ID:1cmj203Dいや、出来るね。そこまで面倒なことしたくないから作らないけど。
INDEXの表示しだいじゃないの?デザインっていうのか(藁
参考になりそうなプログラムがあがってきそうな予感がするのでage
0645名無しさん@お腹いっぱい。
02/01/04 03:52ID:???バカ?
0646名無しさん@お腹いっぱい。
02/01/04 04:31ID:3hR8qo3U0647名無しさん@お腹いっぱい。
02/01/04 04:31ID:0+IJSzBl0648名無しさん@お腹いっぱい。
02/01/04 14:56ID:dA7RPxAO0649名無しさん@お腹いっぱい。
02/01/04 15:08ID:dA7RPxAOだから re:[XX] をパースしてログを変換しないとダメだった。
それだったら他のツリー形式の掲示板にログを変換するのと
あまり手間が変わらない気もするね。
0650名無しさん@お腹いっぱい。
02/01/04 16:47ID:ZcIQHoBD0651643
02/01/04 17:23ID:813/eY5p簡単には出来ないよ、と言いたかっただけ
ツリー状にするなら深さにしても幅にしてもターミネータ入れたり
しなきゃなんないから、最悪ログ2つ作れば良いんだけど
きっぱり否定すれば>>644みたいな人が現れて、改造してくれるかな
と思ったから言ってみた (笑)
644は僕じゃ無いよ、煽りはいやん
0652643
02/01/04 17:24ID:???↓
645は僕じゃ無いよ、煽りはいやん
間違えた・・・
0653名無しさん@お腹いっぱい。
02/01/04 17:43ID:???>>650
ソースうpすれ
0654名無しさん@お腹いっぱい。
02/01/04 17:52ID:???0655名無しさん@お腹いっぱい。
02/01/04 18:06ID:ZcIQHoBD0656デフォルトの名無しさん
02/01/04 18:16ID:???■ このスレッドは過去ログ倉庫に格納されています