トップページ⇒php
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を用意すればなお良し)
を必ず明記しよう。
0222PPCM2001/07/28(土) 02:29ID:1MtF.ejs
いやぁありがとうございます。ダメダメさん。
タイトルのしたにある表みたいのを真ん中に寄せたいとおもってるん
ですが、そのことです。説明不足ですいません。
〜行目というのはCGIエディタでひらいたときのことですか?
0223ダメダメさん2001/07/28(土) 02:45ID:???
やっぱりhtmlじゃ無いですか。。。。
表みたいなのって言うのは投稿部分の事かなぁ・・・・
120行目の</center>を切り取って適当に下のほうにずらせば良いですけど  
0224PPCM2001/07/28(土) 03:02ID:1MtF.ejs
いやぁマジありがとうございます。
またわからないことがありましたらおおしえねがいます。
どうも!!
0225名無しさん@お腹いっぱい。2001/07/28(土) 03:06ID:???
いや今度はWeb製作管理板逝ってくれ
頼むから
0226PPCM2001/07/28(土) 14:59ID:1MtF.ejs
そこいったらここに来いっていわれました
0227名無しさん@お腹いっぱい。2001/07/28(土) 15:57ID:???
質問がCGIとぜんぜん関係ないからだよ
ここに来いといった馬鹿も含めて逝け
0228名無しさん@お腹いっぱい。2001/07/29(日) 20:56ID:???
逝くのはここに誘導した馬鹿だけでいいじゃん。
>>226
証拠を晒しageよう。
0229Web制作板住人2001/07/29(日) 22:16ID:???
>>228
http://natto.2ch.net/test/read.cgi?bbs=hp&key=988822165&st=818&to=828&nofirst=true
あまりに質問の仕方が横柄なので放置していたら誘導レスがついてしまいました。
ご迷惑をおかけして申し訳ない。
0230質問2001/07/31(火) 02:39ID:RFZYeG1k
プチ☆ボードの改造で分からない所があるので質問しようと思います。

プチボードで、レスが沢山付くととてもスレッド自体が長くなり、見にくくなると
常連の方から指摘を受け、自分でもその様に思い、改造してみました。

 プチボードの中でも、2ch風アレンジ版のfifnelさんのスクリプト
(http://www28.tok2.com/home/up2ch/petit.txt)を改造しようと思っています。
スレッド一覧にレス数を表示させるための変数$res_countを使って、一定数のレスが
付いたらスレッドに書き込めないようにして、レスフォームをそのスレッドから消すように
したいのですが、Force264の掲示板スクリプトを参考に改造してみましたが、失敗に
終わりました。
 どのように改造すればよいのか分からないので、レスお待ちしております。
0231名無しさん@お腹いっぱい。2001/07/31(火) 05:19ID:eQ.igmlA
>>230

>レスフォームをそのスレッドから消すように

# レスフォーム表示するとこ
if ($res_count[$_] <= 10) {
print "<form action=\"$script\" method=$method>\n";
print "<input type=hidden name=hiroyuki value=\"$res_count[$_]\">\n"; # ←これ追加

〜〜〜〜〜〜〜省略〜〜〜〜〜〜〜

}



>スレッドに書き込めないように

#--------------------#
# ログ書き込み処理 #
#--------------------#
sub regist {
if ($FORM{'hiroyuki'} + 1 >= 10) { &error("このスレッドには書けません!"); }

# 他サイトからのアクセスを排除
if ($base_url) {
$ref_url = $ENV{'HTTP_REFERER'};
$ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($ref_url !~ /$base_url/i) { &error("不正なアクセスです"); }
}

〜〜〜〜〜〜〜省略〜〜〜〜〜〜〜



・・・こんな感じで如何でしょう。
0232名無しさん@お腹いっぱい。2001/07/31(火) 05:24ID:???
あ・・・

if ($FORM{'hiroyuki'} >= 10) { &error("このスレッドには書けません!"); }

こうかも・・・
02332302001/07/31(火) 16:29ID:F4BSapMo
>>231さん、ありがとうございました。お陰で出来ました。
ただ、レスフォームを表示させない場合に、テーブルが次のスレッドとくっついてしまいますが。
それは自分でやってみます。ありがとうございました。
0234ななしさん。2001/08/01(水) 12:56ID:???
しょぼい質問ですぅ。"こんなスクリプト"スレでHTML出力型のBBSと
言うのが有って、僕も改造してみてます。
そこで質問なんですが、ファイルへの出力はprint文乱発するしか
無いでしょうか
今は....

open (FH,'>index.html');
print FH<<"HTML"
ズラズラっと
HTML
ifとか{
ここでprint文乱発
}
print FH<<"HTML"
またズラズラっと
HTML

こんな感じなのですが、ソースが大変な事になってきました。
2ch型スレの17さんのスクリプトも参考にさせて頂いたのですが。
0235名無しさん@お腹いっぱい。2001/08/01(水) 21:52ID:GTs7.NHc
 結局はprint文使うけど、設定ファイルでも作って、変数に読み込んでおけば?

#config.pl
$head = <<"HEAD"
ずら
HEAD

#bbs.cgi
require "./config.pl"
print $head;
0236名無しさん@お腹いっぱい。2001/08/02(木) 01:34ID:JEer0IOo
KENTWEBさんのアスカボードに
2chタイプのようなキャップ機能を付けたいんですけど
どうすれば良いでしょうか
0237名無しさん@お腹いっぱい。2001/08/02(木) 03:31ID:???
>>236
貴方はどれくらいPerlの知識がありますか?
それによって随分回答が違ってきます。
0238名無しさん@お腹いっぱい。2001/08/02(木) 04:38ID:???
http://www.megabbs.com/program/index.html
0239名無しさん@お腹いっぱい。2001/08/02(木) 11:22ID:jcWHRKc2
redhat7.1を入れたのですが、入っているPHPは
国際化バージョンなのでしょうか。
またそうでなければ、どのようにすれば国際化
バージョンにできるでしょうか
0240名無しさん@お腹いっぱい。2001/08/02(木) 11:55ID:???
>>239
思いっきりスレ違い。

redhat7.1に入ってるのが国際化されているかは知らないけど、

<?php
phpinfo();
?>

ってスクリプトで設定状況を確認できるから確かめろ。
で、国際化されていなかったら、phpのインストールし直し。

インストール方法はGoogleで「PHP 国際化 インストール」で
検索すりゃすぐ見つかるだろ。
0241ななしさん@2342001/08/02(木) 17:33ID:???
>>235
なるほど! 工夫すれば今よりずっとすっきりするような気がして
きました
後は、ずっと見てると慣れてくるかなー  (^_^;)
ありがとうございます。頑張ります
0242名無しさん@お腹いっぱい。2001/08/02(木) 17:37ID:???
>>236
どこかにキャップ機能つけたAskaを作ってたところがあるから探してみればどうよ。
配布はしてなかったけど。
0243JAPU@現実逃避2001/08/02(木) 19:16ID:???
>>236

付けてみたけどどうよ?
http://www.japu.org/tmp/aska211+cap.zip
0244名無しさん@お腹いっぱい。2001/08/02(木) 19:40ID:???
うご!!
0245名無しさん@お腹いっぱい。2001/08/02(木) 22:59ID:???
誰もJAPUたんが改造するとは思ってなかっただろう・・・
0246名無しさん@お腹いっぱい。2001/08/02(木) 23:30ID:???
きっと現実逃避なんだよ…
0247JAPU@ほえほえ2001/08/03(金) 21:12ID:???
たまには現実逃避することもあります。:)
0248名無しさん@お腹いっぱい。2001/08/03(金) 23:56ID:j5R7lMk2
どなたか知恵を貸してください。

http://sk.redbit.ne.jp/~tboard/cgiroom.html
こちらにある、TBOARD 006を改造して、画像と圧縮ファイルを2つアップし、
表示される画像をクリックすると、圧縮ファイルがDLできるようにしたいと
思うのですが、どのように改造すればよろしいでしょうか?
ずっとあれこれやってみても、失敗ばかりで前に進めません。

どうかよろしくお願いいたします!
02492482001/08/04(土) 00:10ID:1VM0mCoA
CGIは、こちらです。
http://isweb2.infoseek.co.jp/~nanaco/test/tboard006.txt

よろしくお願いいたします。
0250名無しさん@お腹いっぱい。2001/08/04(土) 02:52ID:???
んー?ソース見たけどどう改造したいのかよく判らない。
2つ一気にアップロードしたいってこと?
0251名無しさん@お腹いっぱい。2001/08/04(土) 03:03ID:???
単純に、ブラウザで画像を左クリックした時にファイルの
保存画面を出したいんじゃ無いかな? いや俺は248じゃ無いけどね

じゃなきゃjpgをgzipする意味って・・・・
02522482001/08/04(土) 03:12ID:1VM0mCoA
基本的には、画像貼り付け日記帳なのですが、ファイルが1つしかアップできない
のです。

改造したいのは画像ファイルと圧縮ファイルを2つ同時にアップして、表示
される画像ファイルをクリックすると、同時にアップした圧縮ファイルを
DLできるようにしたいのです。
写真を1枚日記に見本として貼り付けて、その写真をクリックすると、一緒に
アップした何枚か圧縮した写真のzipファイルを落とせるようにしたいのです。

時間でファイル名が決まるらしいので(200108031649.jpgみたいに)、その辺を
いじって、何とか2つファイルをアップするところまではできたのですが、
そこから先に進めません・・・。

難しいでしょうか?
0253名無しさん@お腹いっぱい。2001/08/04(土) 03:33ID:bcXT6vOo
http://dream.lib.net/room/cgi/e_analize_f.htmlの
Flash Analyzerが読み込めるログを吐き出す
http://dream.lib.net/room/cgi/e_analize.htmlの
ACCESS ANALYZERを
SSIで利用できるようにしてもらえませんか?
テキストカウンター付きでおねがいします。
0254名無しさん@お腹いっぱい。2001/08/04(土) 04:06ID:???
>>252
画像アップできたのならそのファイルに向けてリンクはるだけじゃない?
02552482001/08/04(土) 04:20ID:1VM0mCoA
>>252
それができないんです・・・。
ただアップされて、終わりなんです。
$fileflagが関係しているのでしょうか?
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さまーー   (^^;)
02582572001/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は強力なパートナーとなるのです。)
02612482001/08/04(土) 13:40ID:BjQYo7uo
ファイルが時間(20010803164137.jpg)みたいに、秒までの名前で
決まるので、1つ目はそのまま、2つ目にアップするファイルは分までで
名前が決まるように(200108031641.zip)して、アップしてみたんです。
$r_dateをいじって。

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

257様、穴があってもいいです、ぜひ見せてください・・・。(切実)
02622572001/08/04(土) 13:43ID:D6eDJpGA
お勉強なんで変な所有ったら指摘願います、、(_ _
http://www.geocities.com/uso8800/tboard006.txt
##########と
##########//////////で囲った所が、書き換え追加部分です

編集時に添付ファイルを削除出来ないのは仕様みたいです、
何か危ない気がするです、、元の状態より強度下がったりしたら最悪。。。
02632572001/08/04(土) 13:52ID:???
おぉ、ニアミスですね (^^)  僕はひよこなんでプロの人を待った方が
良いカモ・・・
02642482001/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表示の掲示板に最大記事件数越えたら古い記事から削除って機能つけたいんだけど、
どうもうまく行かないんです。
たぶん記事が<!--comment数字-->と<!--endcomment数字-->で囲まれているから
それを消せば良いんだろうけど、配列にはいってるから単純に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修飾子)
02742692001/08/07(火) 17:23ID:???
解決しなかったです。
だから、中身見てもらった方がいいかなと思ってこっちにしました。
0275名無しさん@お腹いっぱい。2001/08/07(火) 20:04ID:???
>>269
じゃあこんなんで。
(my $str = join '', @html) =~ s/<!--comment\d+-->.*<!--endcomment\d+-->//s;
02762692001/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);を
どっかに入れればいいと思うんですが、詳しいところがわかりません。
02812692001/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
02842802001/08/10(金) 05:13ID:w7wqIewU
>>280
デバッグと通常試用とで大きな修正したくないんです。

継承というか関数の上書きをしたいんですが、やりかたがわかんないです。
02852802001/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 .┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
0288age2001/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
あらすれ違いでした。
02932882001/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:???
環境変数を理解しても改造はできな・・・ハァハァ・・・
03012932001/08/22(水) 11:05ID:e64SIyNk
ツリー形式で一行レスを使いたかったもので
自分では探したんですが複数レス可能なツリーでわざわざ一行レス機能をつけてる掲示板なんてみあたらなかったのです。
03022932001/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≠3072001/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:???
はは・・・ じゃ他にまかせた  w
0311名無しさん@お腹いっぱい。01/08/26 17:34ID:7JoFqvcE
KENTのJoyfulNoteなんですが、
投稿フォームの項目を5つ程追加したくて、

form name を tuika1〜tuika5

表示は

$tuika1<br>$tuika2<br>$tuika3<br>$tuika4<br>$tuika5<br>$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
031423001/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
031523001/08/28 12:05ID:0OFf5.gc
すいません、スクリプトはこちらで見てください。
トクトクって拡張子をtxtからjpgにして置くとちゃんとtxt表示されるんですね。
txtのままだと広告が入って見づらかったので、直しました。
031623001/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 自動判別しないブラウザだと壊れた画像が表示される。
031923001/08/28 13:23ID:0OFf5.gc
http://cgi4ever.netfirms.com/petit.txt
アップしなおしました。ソースを表示で見て下さい。
引き続きレスを全部読む、をお願い致します。

>>318
ありがとうございました。
0320名無しさん@お腹いっぱい。01/08/28 19:17ID:zmbZVQFg
何だか礼儀正しい人だとおもいました
で、設置してみたら レスがグチャグチャになっちゃうんで
一気に萎えちゃったよぅ  (´Д`;)
0321230=31401/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=31401/08/28 19:53ID:8UDvGpp6
http://www28.tok2.com/home/up2ch/petit.cgi
配布してあるものをそのまま設置。
fifnelさんの掲示板はアレンジしてあったので。
■ このスレッドは過去ログ倉庫に格納されています