982コメント390KB

スクリプト改造工房 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を用意すればなお良し）
を必ず明記しよう。

0256コメント無しさん

2001/08/04(土) 06:20ID:5S9xJi7Q

>>255=248
ただアップされてって、どういうことよ？
じゃあ、リンクが間違ってるだけじゃないの？

ちゃんとソース見ようと思ったけど、Perlだから汚くて読みたくなかった。。。

0257名無しさん＠お腹いっぱい。

2001/08/04(土) 08:41ID:???

何となく設置してみたけど、僕には難しいですぅ・・

1、転送されたファイル名はDATEで得た時間+拡張子になるので、出来ればファイル2つ
　を一気に上げた方が具合が良さそうです。
2、それが上手く行けば後は添付ファイル2の存在をチェックして、出力するHTMLを
　スイッチすれば上手く行くと思うです。

2は簡単だったけど、1が良く解らない、、、バイナリ転送かぁ・・
同じ転送ルーチンに投げれば良いのか、　んー　勉強不足ですぅ
ソースもごちゃってるぅぅ
256さまーー　　　(^^;)

0258257

2001/08/04(土) 11:53ID:???

一応出来たけど　とても人に見せる気にならない・・・(汗;;
穴もいっぱい有りそうだし、、だれか助けてーー

0259名無しさん＠お腹いっぱい。

2001/08/04(土) 12:27ID:DYf6StlI

>穴もいっぱい有りそうだし、、だれか助けてーー
ソース見せないのに助けられるかって。

0260完全変態

2001/08/04(土) 12:32ID:???

沢山のMIDIを取り揃えてお待ちしております。
その数★900曲★以上！　全部作者に無断で改変・転載でがんばってます！！
http://destiny.prohosting.com/kanzen/cgi-bin/bbs5/wforum.cgi
http://www.destiny.prohosting.com/J/
全部私のコレクション（笑い）です。
どんどんお持ち帰りくださいませ！
（JASRAC反対！　私は断固闘う所存です。
　みなさんのDLは強力なパートナーとなるのです。）

0261248

2001/08/04(土) 13:40ID:BjQYo7uo

ファイルが時間（20010803164137.jpg）みたいに、秒までの名前で
決まるので、1つ目はそのまま、2つ目にアップするファイルは分までで
名前が決まるように（200108031641.zip）して、アップしてみたんです。
$r_dateをいじって。

名前が違うから、ファイルは上がるのですが･･･。

257様、穴があってもいいです、ぜひ見せてください･･･。（切実）

0262257

2001/08/04(土) 13:43ID:D6eDJpGA

お勉強なんで変な所有ったら指摘願います、、(＿＿
http://www.geocities.com/uso8800/tboard006.txt
##########と
##########//////////で囲った所が、書き換え追加部分です

編集時に添付ファイルを削除出来ないのは仕様みたいです、
何か危ない気がするです、、元の状態より強度下がったりしたら最悪。。。

0263257

2001/08/04(土) 13:52ID:???

おぉ、ニアミスですね　(^^)　　僕はひよこなんでプロの人を待った方が
良いカモ･･･

0264248

2001/08/05(日) 13:32ID:OpAruGbc

>>257様
アップありがとうございます！今のところローカルで無事に動いているので
大丈夫みたいです！
すごく嬉しい。本当にありがとうございました！感謝です！

0265名無しさん＠お腹いっぱい。

2001/08/05(日) 23:24ID:???

(^^)　←これ嫌い

0266名無しさん＠お腹いっぱい。

2001/08/05(日) 23:55ID:???

>>265
俺はあんたが嫌い。

0267コメント無しさん

2001/08/06(月) 01:09ID:???

>>266
（・∀・）ｶｺｲｲ！

0268257

2001/08/06(月) 06:36ID:???

　。　　　　　　　　＿　　　。　　　　　　。
　　　　　　　／／￣＼　　　。
　　　　　　　　 |／　　；イヽ　゜　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　～　　|＼／### ≫l　＜　　　＜　では_gunzipさんのマネっこで行くっすぅ・・
～　　　　|／＼＿_＿＿_／　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

ログ見ると分かるんですが、ログファイルにpwdがモロ書きされます。
(意図は不明、多分自発言を消せるBBSとサブルーチンを共用してるからかと)
出力を殺すかログファイル名と過去ログ保存ディレクトリを変更しないと
いたづらされると思います。

0269名無しさん＠お腹いっぱい。

2001/08/07(火) 15:15ID:???

http://www.haide.net/~seirei/bbs.txt
上のHTML表示の掲示板に最大記事件数越えたら古い記事から削除って機能つけたいんだけど、
どうもうまく行かないんです。
たぶん記事がとで囲まれているから
それを消せば良いんだろうけど、配列にはいってるから単純にs///;でやれないし・・。
だれか知恵を貸して下さいな。

0270.

2001/08/07(火) 16:26ID:???

>>269
出力はHTMLでも、データは別に持った方が簡単じゃないか?

0271名無しさん＠お腹いっぱい。

2001/08/07(火) 16:38ID:oD/S8Pdo

>>270
我もそう思うニダ

>>269
で、一番最後のデータを消すだけだったら

pop(@html); とか…

$html[-1] = ""; とか…なんてどうでしょうか

0272名無しさん＠お腹いっぱい。

2001/08/07(火) 17:00ID:???

>>269
Perl初心者コーナーでの解答では解決しないのかい？
まぁ配列加わると状況が違うんだろうが。(s修飾子）

0273名無しさん＠お腹いっぱい。

2001/08/07(火) 17:01ID:???

>>269
Perl初心者コーナーでの解答では解決しないのかい？
まぁ配列加わると状況が違うんだろうが。(s修飾子）

0274269

2001/08/07(火) 17:23ID:???

解決しなかったです。
だから、中身見てもらった方がいいかなと思ってこっちにしました。

0275名無しさん＠お腹いっぱい。

2001/08/07(火) 20:04ID:???

>>269
じゃあこんなんで。
(my $str = join '', @html) =~ s/.*//s;

0276269

2001/08/07(火) 20:26ID:???

>>275
一体どんな処理しているんですかね？やっぱり素人なんでわからないです。
ちょこっとだれか教えていただけないですか？意味不明なままだとせっかくの物か使えなさそうなんで。

0277名無しさん＠お腹いっぱい。

2001/08/07(火) 20:51ID:???

>>276
そんな君にぴったりのサイトを紹介するよ
http://www.Google.com/

0278名無しさん＠お腹いっぱい。

2001/08/07(火) 22:26ID:3OXjY8h6

>>277
googleは先頭が大文字でもつながるのか(w

0279ななそ

2001/08/07(火) 22:29ID:???

>>278
厨房発見！

0280名無しさん＠お腹いっぱい。

2001/08/08(水) 05:57ID:7PpHuotE

KCatchでエラーを発見した時、特定のメールアドレスにエラーメッセージを送り、
画面には「エラーです」と表示するやり方を教えて。
ソース表示の、TEXT形式希望。　画面表示は505エラーでもいいです。

継承して、make_outputの最後でなんかして、use KCatch qw( source mode=plain);を
どっかに入れればいいと思うんですが、詳しいところがわかりません。

0281269

2001/08/08(水) 08:20ID:???

>>275
ありがとうございます。うまく行きました。

0282名無しさん＠お腹いっぱい。

2001/08/08(水) 15:30ID:???

>>280
そのくらいなら
#!/usr/bin/perl
eval{

# スクリプト

} or do{
&mail_send($@);
# その他後始末
}
sub mail_send{
# ...
}
__END__
とでもしたほうがいいんじゃないか？

0283名無しさん＠お腹いっぱい。

2001/08/10(金) 01:35ID:HduNKd3M

age

0284280

2001/08/10(金) 05:13ID:w7wqIewU

>>280
デバッグと通常試用とで大きな修正したくないんです。

継承というか関数の上書きをしたいんですが、やりかたがわかんないです。

0285280

2001/08/10(金) 23:29ID:???

ああっ、ただKCatch別名でコピーしてmake_outputでメールを送ればいい話でした・・・
いったい何をしようとして書き込んでいたんだろう＞俺
逝ってきます・・・

0286名無しさん＠お腹いっぱい。

2001/08/11(土) 01:17ID:???

おお!　俺もそんな風にしたかったんで使わせてもらいます
最後にコピペする時間違えたりして鬱になってたんで　　　（汗

0287名無しさん＠お腹いっぱい。

2001/08/11(土) 13:47ID:???

┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
┃　　ただいま、ラウンジで大盛り上がりのブラウザ戦争ゲーム！　.　 ┃
　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿　
　　　　　　　　　∥|＊ENDLESS BATTLE@2ch＊|∥
　　　　　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　モナ―国総帥が覚醒しました　　　　 , o　　, o 　　∧∧∧∧
　　　　￣￣￣∨￣￣￣￣￣￣￣￣　　　／／／／　　|捨て身で＞
　　　　　　∧ ∧ 　 ∧ ∧　　　　　　　　　　| |( ﾟДﾟ)|　　＜　要塞に　＞
　　　＿__（ _冂二冂(,,ﾟДﾟ)　　　　　　　　 ∩ >->_>->_　　|当たる！＞
　∧⊂／￣|二|￣＼つ∧二ヽ　　　　　 ((_(∴ヽヽ＼(∴ 　∨∨∨∨
　ι匚|＿／＿＼＿匚i_|∪∪i］　　～／oヽヽ ,>─>ヽ　.　　　　.
　＼／∠　／　／　＼_／二／　　　く｡◎◎)=)_＿/)=) 　　　　
　　　　　　　　　　　　　　　　　.　　　　　　　　　　　　　　　　　　
　　恨み！復讐！英雄の誕生！生身の人間とのどろどろした戦闘！
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
┃http://corn.2ch.net/test/read.cgi?bbs=entrance&key=997472675　.┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛

0288age

2001/08/21(火) 05:50ID:Rn7WjR4s

KENTさんの「プチボード」をツリー表示にしたいのですが
どこをいじればよいのでしょうか？

初心者質問ですがよろしくお願いいたします。

0289名無しさん＠お腹いっぱい。

2001/08/21(火) 09:32ID:F15AqhNE

>>288
ソース

0290頼もう

2001/08/21(火) 13:52ID:KxW7lOz6

えっと、一行掲示板のshortmessage
http://shortmessage.hypermart.net/
でIPかホストを取得してログファイルから参照できるようにしたいのだが、
どのような文をどこに注入したらよいのか教えてくれ。いや、教えてください。

0291名無しさん＠お腹いっぱい。

2001/08/21(火) 17:28ID:ngiYKYk6

50人くらいの名簿が Web 上で更新できる CGI を探しています。

0292名無しさん＠お腹いっぱい。

2001/08/21(火) 17:30ID:ngiYKYk6

あらすれ違いでした。

0293288

2001/08/21(火) 19:13ID:vVNYOH/g

ソース必須を見落としてました。すみませんでした。
http://www.kent-web.com/bbs/index.html
よろしくお願いします。

0294名無しさん＠お腹いっぱい。

2001/08/21(火) 20:21ID:???

>>290
まず「環境変数」を検索して調べる。話はそれから。

0295名無しさん＠お腹いっぱい。

2001/08/21(火) 23:28ID:???

>>293
素直にツリータイプのスクリプトを使ったら良いんじゃないのか？
単に外観の問題なら知識なんぞなくても簡単に操作可能だぞ。

0296名無しさん＠お腹いっぱい。

2001/08/22(水) 01:08ID:???

いやさすがにそれは外観を軽視しすぎだろ。
でも外観の問題は板違いだけど。

0297頼もう

2001/08/22(水) 01:57ID:vqU40BMw

>>293
いやいや一応自分で色々検索したり他のスクリプトを参照しながら
やってみたのだが、さすがに門外漢には無理だったのだ。。。

0298名無しさん＠お腹いっぱい。

2001/08/22(水) 01:58ID:???

>>296
295じゃないが、(CGI、Perlの)知識なんぞなくても・・・
っていうことじゃないかな？

0299名無しさん＠お腹いっぱい。

2001/08/22(水) 06:08ID:???

>>290
161行目を
unshift(@readed,"$name\t$comment\t$date\t$ENV{'REMOTE_HOST'}\n");

0300名無しさん＠お腹いっぱい。

2001/08/22(水) 09:23ID:???

環境変数を理解しても改造はできな・・・ハァハァ・・・

0301293

2001/08/22(水) 11:05ID:e64SIyNk

ツリー形式で一行レスを使いたかったもので
自分では探したんですが複数レス可能なツリーでわざわざ一行レス機能をつけてる掲示板なんてみあたらなかったのです。

0302293

2001/08/22(水) 11:11ID:???

探してますスレッドで聞いてみます。

0303名無しさん＠お腹いっぱい。

2001/08/22(水) 13:36ID:???

>>301
それならツリー形式のやつを改造した方が簡単じゃない？
つーかなんでそんなわけわからんことを....

0304頼もう

2001/08/22(水) 23:05ID:vqU40BMw

>>299
回答ありがとうございます。スバラシイです。できてしまいました。
おかげで、嫌がらせ書き込みにもなんとか対応できるようになりました

0305亮

2001/08/24(金) 14:54ID:???

検索エンジンの登録欄にcookieで掲示板の新規投稿欄みたく
一度投稿すると必要事項(名前やURL等)を記憶して
次回から必要事項を記入しなくても済むようにしたいのですが
cookieの発行・取得は出来たのですがCGIに書きこんでも
↑のようになってくれません。一体どうしたらいいのでしょうか？
使用している検索エンジンCGIは
＜　http://www8.lunartecs.ne.jp/~arahan/　＞にある
簡易検索エンジン(wsearch)を使用させてもらってます。

sub set_ {
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60);
$yearg += 1900;
if ($secg < 10) { $secg = "0$secg"; }
if ($ming < 10) { $ming = "0$ming"; }
if ($hourg < 10) { $hourg = "0$hourg"; }
if ($mdayg < 10) { $mdayg = "0$mdayg"; }
$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong];
$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg];
$date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";
$cook="yomi\:$yomi\,url\:$url\,user\:$user\,mail2\:$mail2\,pass\:$pass";
print "Set-Cookie: KEY=$cook; expires=$date_gmt\n";
}

sub get_ {
$cookies = $ENV{'HTTP_COOKIE'};
@pairs = split(/;/,$cookies);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ s/ //g;
$DUMMY{$name} = $value;
}
@pairs = split(/,/,$DUMMY{'KEY'});
foreach $pair (@pairs) {
($name, $value) = split(/:/, $pair);
$COOKIE{$name} = $value;
}
$c_yomi = $COOKIE{'yomi'};
$c_url = $COOKIE{'url'};
$c_user = $COOKIE{'user'};
$c_mail2 = $COOKIE{'mail2'};
$c_pass = $COOKIE{'pass'};

}

0306名無しさん＠お腹いっぱい。

2001/08/24(金) 15:36ID:???

> if ($secg < 10) { $secg = "0$secg"; }
こんなダサいこと最初にやり始めたのは誰なんだ？
それともまさかPerl4時代はsprintf()は無かったのだろうか。

0307名無しさん＠お腹いっぱい。

2001/08/24(金) 15:53ID:???

良く解らんけど
$c_yomi = $COOKIE{'yomi'};
$c_url = $COOKIE{'url'};
$c_user = $COOKIE{'user'};
$c_mail2 = $COOKIE{'mail2'};
$c_pass = $COOKIE{'pass'};
にデータが入ってるの?　だったらそれを突っ込むだけだと思うんだけど･･
>>↑のようになってくれません
この意味が良く解らない、
テキストだったらテキストエリアに突っ込んで
チェックボックスならselectedにすれば良いかと･･･
ソース見てないから変な事言ってるかもしれない

0308≠307

2001/08/24(金) 15:58ID:???

ソース見てみた。

････糞だ。糞すぎる。

0309名無しさん＠お腹いっぱい。

2001/08/24(金) 16:00ID:???

つーか

http://www.imjnews.com/bcp/cgireqbbs2/wwwforum.cgi?id=14&az=msg&number=137&page=
http://www8.lunartecs.ne.jp/~arahan/cgi/wforum/wforum.cgi?no=45&reno=no&oya=45&mode=msgview&page=0

マルチポストうざい。

0310307

2001/08/24(金) 16:05ID:???

はは･･･　じゃ他にまかせた　　ｗ

0311名無しさん＠お腹いっぱい。

01/08/26 17:34ID:7JoFqvcE

KENTのJoyfulNoteなんですが、
投稿フォームの項目を５つ程追加したくて、

form name を tuika1～tuika5

表示は

$tuika1 $tuika2 $tuika3 $tuika4 $tuika5 $comment

↑
こういう感じにしたいのですが、どうしてもうまくいきません。。
どなたか教えていただけませんでしょうか？

よろしくおねがいします。

Joyful Note　http://www.geocities.com/hzhges/joyful.txt

0312名無しさん＠お腹いっぱい。

01/08/26 19:58ID:pZXUWIx.

どうしたいのか全然解んないよ、これ添付ファイル付けれる奴だと
思うんだけど、単にCommentみたいなテキストフィールドを追加したいの?
良く理解出来ないんで、大雑把に書いとく

投稿部分に変数名に合わせたフィールドを追加（comment2とか）
　　　　↓
$in{comment2} って感じで出てくるから記事表示部とログ書き込み部にそれを追加

0313名無しさん＠お腹いっぱい。

01/08/27 01:39ID:Capa5Cts

> if ($secg < 10) { $secg = "0$secg"; }
こんなダサいこと最初にやり始めたのは誰なんだ？

KENT

0314230

01/08/28 12:02ID:0OFf5.gc

　fifnel板（petit2ch風味）改造について230で質問させていただいた者です。
不躾ながら、又質問させていただこうと思いました。
プチボードは一行レスがつくとどうしても長くなる為、2chのように「レスを全部読む」機能
をつけて、ラスト10レスのみを表示させたいと思っています。
　こちらの機能も、自分で何とかやってみよう、と思い、2ch掲示板のスクリプトを参考に、
http://url/petit.cgi?mode=res&resno=$numの形式でレスを全て表示させようとしましたが、失敗しました。

心やさしい方、出来ましたら改造よろしくお願いいたします。
＃231さん、ありがとうございました。著作権表示に加えさせていただきました。
petit board 2ch風味 by fifnel　-> http://www28.tok2.com/home/up2ch/petit.txt

0315230

01/08/28 12:05ID:0OFf5.gc

すいません、スクリプトはこちらで見てください。
トクトクって拡張子をtxtからjpgにして置くとちゃんとtxt表示されるんですね。
txtのままだと広告が入って見づらかったので、直しました。

0316230

01/08/28 12:05ID:0OFf5.gc

http://www28.tok2.com/home/up2ch/petit.jpg

0317名無しさん＠お腹いっぱい。

01/08/28 13:05ID:0OFf5.gc

知らんかった

0318名無しさん＠お腹いっぱい。

01/08/28 13:12ID:paG6GuIk

>>315-317 自動判別しないブラウザだと壊れた画像が表示される。

0319230

01/08/28 13:23ID:0OFf5.gc

http://cgi4ever.netfirms.com/petit.txt
アップしなおしました。ソースを表示で見て下さい。
引き続きレスを全部読む、をお願い致します。

>>318
ありがとうございました。

0320名無しさん＠お腹いっぱい。

01/08/28 19:17ID:zmbZVQFg

何だか礼儀正しい人だとおもいました
で、設置してみたらレスがグチャグチャになっちゃうんで
一気に萎えちゃったよぅ　　（´Д｀；）

0321230=314

01/08/28 19:45ID:8UDvGpp6

>>320さん
申し訳ありませんでした。昔私が改造し損ねたままにしておいたものをUPしてしまいました。
ファイル入れ替えました。今度は大丈夫かと。
http://members.tripodasia.com.hk/reach01r/petit.txt
http://www.dx.sakura.ne.jp/~fbrand/fifnel/bbs/　設置サンプルです。fifnelさんのメインBBSです。

レスを全部読む、機能と、petit.cgi表示時には末端10レスをスレッドに表示、が私の希望です。

--
まとめてみました。

0322230=314

01/08/28 19:53ID:8UDvGpp6

http://www28.tok2.com/home/up2ch/petit.cgi
配布してあるものをそのまま設置。
fifnelさんの掲示板はアレンジしてあったので。

0323318

01/08/29 01:18ID:YevndLiI

お礼言われちゃったので少しやってみる。
未テスト。
　全レス表示はモード追加するか別ファイルで作るかせんといかんので
後日か、別の人か、自作かになる。

＞最新10レス
　446行あたりの
foreach $line (@lines) {
を
for(my $i = 0; $i < $表示レス数 and $line = $lines[$i]; $i++) {
にして、
　初めの『設定項目』あたりに
$表示レス数 = 10;
とかを追加する。
　変数名は適当なのに変えてくれ。

＞関係ないがバグ取り
　173行とかの色は000000でなく#000000と頭に#をつけるよろし。

0324314

01/08/29 02:52ID:hlHEKPjk

ウーン、レス全てが表示されなくなってしまった。
>>318さんありがとうございました。
頑張ってみます。

0325318

01/08/29 03:58ID:YevndLiI

>>324
ああっ、すみません！
スレごとのレス数じゃなくて板全ての発言数でやってました・・・

0326名無しさん＠お腹いっぱい。

01/08/29 12:57ID:OkEBscjU

どれを落せば良いんだ　　（・∀・）?

0327326

01/08/29 13:10ID:OkEBscjU

んと　242行目の　@lines = reverse(@lines); これコメントあうち
で　446行目の　レスメッセージを表示の上に以下挿入

#######################################################
$cc = 0;
foreach $pair (@lines){
($rnumb,$rkb,$rdb,$rnameb,$remb,$rsubb,$rcomb,$rurlb,$rhob,$rpb,$rcb) = split(/<>/, $pair);

if ("$sing" ne "$rkb"){
$cc = 0;
}
if (("$num" eq "$rkb")&&($cc < $res_view)) {
unshift (@linesb,$pair);
$sing = $rkb;
}
$cc++;
}
#######################################################

んでもって448行目の@lines を@linesb にんでちょっとしたに
レスを全部読むをつける

0328326

01/08/29 13:15ID:OkEBscjU

ああインデントが　　　（-＿－
474行目にこれ挿入
#######################################################

print " <a href=\"./$script?mode=resview&thread=$num\">レスを全部読む</a>";
print "　<a href=\"#menu\">掲示板のトップへ</a> <a href=\"$script\">リロード</a>";

#######################################################

なんかゴチャゴチャするから放置スレに書こうか。。
http://corn.2ch.net/test/read.cgi?bbs=php&key=990300726&ls=50

0329326

01/08/29 13:22ID:OkEBscjU

うざいから　ここに上げた　　　（爆
一日で消すからよろぴく、、あんまり動作確認してないっす
配列こねくり廻してるからすげ遅そうッス

www2.makani.to/akutoku/upload/dat/999058833.txt

0330326

01/08/29 13:26ID:kt3pSaeg

ああ。。。　　$res_viewって所今３になってるから適当にいじって
汚くコメント入ってるから適当に整理して、ほとんどコピペだから適当に

0331314

01/08/29 16:12ID:DRY/FidA

ファイルが無い～（泣　１日経ってませんよね。。。
変だな～＜www2.makani.to/akutoku/upload/dat/999058833.txt

0332３２６

01/08/29 19:08ID:kt3pSaeg

んまっ、じゃこっちで。

http://home.kimo.com.tw/jhvnsqtpe/petit.txt
今気付いたけど、レスを読む画面にクレジット入れるの忘れてた。。
ちゃんと付けといて

0333314

01/08/29 21:04ID:DRY/FidA

ありがとうございます、無事出来ました。
マジ感謝です(T_T)

0334MiniBBS-EX1.18

01/08/29 21:43ID:n2S171Ys

MiniBBS-EX1.18を初期設定のまま使ってますが、下記の様に設定を変更したいです。
どなたか教えていただけないでしょうか。

・投稿欄のＥメール欄の下にある「公開しないでメールを受けたい」
　および「公開する又は記入しない」の選択をなくし、Ｅメール欄に
　入力してもしなくてもよいようにしたい。
・記事の投稿者名を大きくしたい。
・記事への返信を不可能にしたい。

スクリプトの場所：　http://www.rescue.ne.jp/cgi/minibbs-ex/

0335すいません

01/08/29 22:04ID:DRY/FidA

yybbsで、レス記事にレス番号をつけたいのですが、何方かご教授願います。

15 名前:名無しさん

こんな感じに。インクリメントを理解してません。。

0336名無しさん＠お腹いっぱい。

01/08/29 23:21ID:VbjuCPCY

理解しろよ　　ｗ

line 416 $hoge = ();#---追加
line 420 if ($reno eq "") { $i++; $hoge = ();}#---修正
line 471 print "<td>$hoge</td><td>$comment</td></tr></table>\n";#---修正
line 472 $hoge++;#---追加

0337便乗しようっと＠≠335

01/08/30 01:06ID:HEStrGwI

プチボードの時は？＜レス番号つける

0338名無しさん＠お腹いっぱい。

01/08/30 11:13ID:oDDcn6yA

ﾊｧ?(ﾟДﾟ) プチボードって何?　　ｼﾗﾈｰﾖ

0339便乗しようっと＠≠335

01/09/03 16:22ID:Nc2zbCIQ

http://www.kent-web.com/のpetit boardです。

0340便乗

01/09/03 19:01ID:hQsTWuf2

プチボードに、２ｃｈのような上位10スレなどのタイトルつけたいんだけど

0341名無しさん＠お腹いっぱい。

01/09/03 19:06ID:EbbrgK8E

>>340
http://dx.sakura.ne.jp/~fbrand/fifnel/app/#petit

0342さらに便乗

01/09/03 19:30ID:Nc2zbCIQ

＞yybbsで、レス記事にレス番号をつけたいのですが、何方かご教授願います。
＞15 名前:名無しさん
＞こんな感じに。インクリメントを理解してません。。
これをhttp://dx.sakura.ne.jp/~fbrand/fifnel/app/#petitの2ch風アレンジの複数行モードでもやりたいのですが、
どうすればいいでしょうか。
http://dx.sakura.ne.jp/~fbrand/fifnel/bbs2/のように
No.1 ふぃふ xx年yy月zz日
と、No.でレス記事番号をつけたいです。

0343名無しさん＠お腹いっぱい。

01/09/09 02:47ID:ZccdRMt2

http://www.sky-t.com/hf/cgi/woman.cgi
のようなレスのときパスワード記入、パスワードは管理人が任意に設定可能、
みたいな掲示板を探してます。
http://hp.bird.to/cgi-bin/bbsp4.cgi
↑ベースはこんな感じがいいのですがって全然違いますか？
上記のような機能がついていればこの掲示板でなくても可能です。
当方ＣＧＩはアップロードに苦労するほどの超初心者です。
どなたか知っていれば教えてください。お願いします

0344名無しさん＠お腹いっぱい。

01/09/09 03:31ID:???

んー、スレ立ててないのに免じて答えてあげたいんだけども
そんなBBSは一杯有ると思うよ。
一応僕が尊敬してるKENTさんのBBSを紹介するよ　：-)

http://www.kent-web.com/bbs/sample/aska.cgi
http://www.kent-web.com/bbs/sample/yybbs.cgi
上(aska)は見た目が違う(テーブルじゃ無い)けど、機能は同じ、
下(yy)は見た目は同じ(テーブルとアイコン表示)だけど、機能が違う(レスが付けられる)。

どっちかを貰って改造すれば、良いと思うんだけど、もしかしたらaskaに
テーブル付けてタグをループに入れるのとかは結構大変かもしれないなあ。
後、ここのスクリプトは結構改造ものが有るから丁度いいのが有るカモ
しれないけど、僕は知らない。
上の方の検索とかで探してみると良いよ。どこのWEBでもサンプル設置
してあるからね。　もしかしたらその物ズバリってのが有るカモしれない。

0345344

01/09/09 03:38ID:???

ああ、改造してって言ってるのか　ｗ
取り合えず【こんなCGI探してます】スレの検索で色々探せば?
>当方ＣＧＩはアップロードに苦労するほどの～～
ならaskaを普通に設置してまずは動かしてみなよ。
ここのはFAQとか沢山有るから、みんなに大人気なんだ　（････

0346名無しさん＠お腹いっぱい。

01/09/09 10:05ID:???

ＤＬ面倒なので誰かテキストアプしてくれよ＞ヘッドラインつけたい人々

0347名無しさん＠お腹いっぱい。

01/09/10 18:45ID:IA/gamiU

0348　　

01/09/10 19:10ID:???

そこに気付いてない奴多し、落して解凍してメンドイんだよ
無料ページにテキストも上げられない奴に、何教えても無駄無駄～

0349名無しさん＠お腹いっぱい。

01/09/10 20:35ID:V3sRXBmo

配布している所：http://www2a.biglobe.ne.jp/~yama/cgi.html
txtのある場所ｗ：http://www.bekkoame.ne.jp/~yama1356/host_pl/host.pl.txt

これがうまく作動しません。ちょっと自力で

# リモートアドレスを取得
$addr = $ENV{'HTTP_X_FORWARDED_FOR'};

# HTTP_X_FORWARDED_FOR 対策
if($addr =~ /(.*)\.(.*)\.(.*)\.(.*)\, (.*)/) {
$addr = "$1\.$2\.$3\.$4";
} elsif($addr =~ /unknown\, (.*)\.(.*)\.(.*)\.(.*)/) {
$addr = "$1\.$2\.$3\.$4";
} elsif($addr =~ /(.*)\.(.*)\.(.*)\.(.*)\, unknown/) {
$addr = "$1\.$2\.$3\.$4";
}

# リモートホストに変換
$host = $addr;
$host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr;

こういうものを組み込んで見たら作動した・・・。
それが完全なものか分からないのでその部分だけ教えて下さい。

これは書き込む所が違ったかな？
一応改造なんですが・・・・・・。

0350な＝

01/09/10 21:17ID:???

えっと上手く行かないと言うのはリモホが取れないと言う事ですか?
$ENV{'HTTP_X_FORWARDED_FOR'};の値はREMOTE_ADDRやREMOTE_HOSTと
違ってクライアント（アクセス制限される人）が改竄出来ます。
だから普通は$ENV{'HTTP_X_FORWARDED_FOR'};は見ないんです。

0351名無しさん＠お腹いっぱい。

01/09/10 21:23ID:gPFl9Thk

あ、すみません、あの$addr = $ENV{'HTTP_X_FORWARDED_FOR'}・・・・
奴はｆ2ｓでリモートホストを取得させるのに使う奴なんです。
これはちゃんと取れるサーバーでやるんでアレは「埋め込んでみたらできた」
ってことで・・・・・。

0352な＝

01/09/10 21:30ID:???

んー、上手く言ってるのかなぁ?
これをrequireして
&host'teku_win;ってするとアクセス制限されるとエラー画面に
飛ばされるだけだよ。BBSのかの一行目に入れるとログも何も見れなく
なる。要はホスト=IP変換して、上の方の$pwd* と突きあわせてるだけ
だから、不安なら自分のHOST追加したりして確認してみれば?

他の理由だったらｺﾞﾒｿ。ちょっと出ていくから
帰ったらまた読むよ。

0353な＝

01/09/10 21:34ID:???

あ、その正規表現自分で足したのか、、取り合えず(.*)だと甘くないかな。
ｽﾏｿ、また後で

0354名無しさん＠お腹いっぱい。

01/09/10 21:49ID:???

良くこれを配る気になるもんだ　　（-＿-

0355349

01/09/10 22:18ID:???

一行目変えて#!usr/bin/perlの下にrequireと記述して掲示板にアクセスしたが失敗。
他に制限ファイルないですかね？(版違い?)
とりあえずproxyの排除ができればいいんですが・・・・・・。

0356名無しさん＠お腹いっぱい。

01/09/10 22:32ID:???

全体に言いたい事が分からない　：-）
>一行目変えて#!usr/bin/perlの下にrequireと記述して掲示板にアクセスしたが失敗。
アクセス出来ませんでした。が出ておしまい、勿論ROMも出来ない。
上でも言ってるけど、逆引き出来てるかが分からないのなら制限HOSTに自分のHOSTを
追加して確認してみてくれ。
X_FORWARDED_FORに常にIPADDRESSが格納されてるなら

#!/usr/bin/perl
print "Content-type: text/plain\n\n";
$host = gethostbyaddr(pack('C4',split(/\./,$ENV{'HTTP_X_FORWARDED_FOR'})),2);
print "$host\n";

こんなのを入れて上手くいってるか確認してみればいい。
もし逆引きに失敗したら(そう言うサーバーも有る)
|| $addr;　
でIPADDRESSが入るから、制限HOSTにIPADDRESSを
指定してないと常に閲覧投稿可能な状態になる
それが嫌なら || の後ろからでもエラーに飛ばしてしまえ。
俺はf2sが良く解らんからこれくらいしかいえないよ

■ このスレッドは過去ログ倉庫に格納されています