自作CGIを評価するスレ (672ﾚｽ)
上下前次1-新
514: 04/01/05 13:20 ID:8h9t8BrG(1) AAS
>>513
落としたYo
とりあえず使えそう・面白そうな物だったら、朴らせてもらうわ（ｗ
515: 04/01/12 07:57 ID:fR13iSUk(1) AAS
age
516(4): 04/01/17 13:56 ID:kOvCn6Ho(1) AAS
携帯＆PC対応の掲示板作りました。
外部ﾘﾝｸ[cgi]:fine.tok2.com
です。
517: 04/01/17 14:22 ID:??? AAS
>>516
それで金を取ろうと思う神経を疑うよ
518: 04/01/17 18:12 ID:??? AAS
上と下に出てる「1」って何だ？
519: 04/01/17 19:01 ID:??? AAS
>>516
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
外部ﾘﾝｸ[txt]:fine.tok2.com
以下略
省1
520: 04/01/17 19:15 ID:??? AAS
>>516
ディレクトリ丸見えだねぇ
521(1): 04/01/18 02:22 ID:??? AAS
ところで、ちゃんと評価してるのって最初のほうだけだね。
522(1): 04/01/18 03:41 ID:??? AAS
>>521
・ここは見た目じゃなくコードを評価するスレだ。
・use strict; しろ。
・perlstyle 読め。
・デカいの持ってきても面倒だから読まんぞ。
…のどれかに該当していたら、まともなレスは返ってこない。
523: 04/01/18 21:22 ID:??? AAS
コードの見た目を評価するスレの間違い。
524: >>516 04/01/25 15:17 ID:yPaa9elS(1) AAS
DirectoryIndexの設定をしているtoktokも問題かと思うが。
Forbiddenにしたみたいだけど、
せめてファイル名変えなよ。
525: 04/03/06 14:54 ID:??? AAS
誰も居ない……ケチつけるなら今のうち。
if-elsifの書き方、
if{
..
}elsif{
..
}
より
if{
..
省5
526(1): 04/03/19 18:15 ID:??? AAS
>>522
perlstyleなんて知らなかった…ありがとう、勉強になったよ。
527: [ ] 04/05/03 22:01 ID:??? AAS
>>526
> perlstyle
ﾊｧ?
528(3): 04/05/09 20:52 ID:??? AAS
例えば既成の掲示板のCGIとかから
require 'axlog.pl';
AxLog::getlog('ログファイル名','ログ最大記録数');
の用に呼び出して使うアクセス解析。
何となく作ったんですが評価お願いします。
アクセス解析 外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com
ログビューワー 外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com
省6
529(2): 528 04/05/09 21:13 ID:??? AAS
すいません、上の奴.txtで終わってるのに何故か実行しようとしてエラーになるので
ファイル名変更しました。
アクセス解析 外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com
ログビューワー 外部ﾘﾝｸ[txt]:torihamlog.s55.xrea.com
530(1): 04/05/09 21:49 ID:??? AAS
>>529
とりあえず axlog.pl をザッと見た感じ。
> 39: my $logfile = ($_[0]) ? $_[0] : "log.dat";
my $logfile = $_[0] || "log.dat";
か
my $logfile = defined $_[0] && length $_[0] ? $_[0] : "log.dat";
> 48: $ENV{'TZ'} = "JST-9";
local するか、呼び出し元と条件を揃える (設定しない) 。
> 58 〜 62
my($path) = $ENV{'SCRIPT_NAME'} =~ m|^(.*/)|;
省3
531(1): 04/05/09 22:26 ID:??? AAS
>>529
axlogv.cgi 。
> 6: use vars qw/$pw $logfile $gzip_send $gzip/;
不要。
> 47 〜 53:
my $gzip = $^O =~ /Win/
? "gzip.exe -1 -c"
: "/bin/gzip -1 -c"
;
> 69: if ($mode eq "css") { Style_Sheets(); }
省5
532(2): 528 04/05/10 19:23 ID:??? AAS
>>530-531
評価ありがとうございます。
色々参考になります。
cssについてはファイルを一つにまとめたかったからです。
やっぱあんまり良くないですか？
>> 74: else { print "Status: 403 Forbidden\n\n"; exit; }
>エラーメッセージを吐いた方が親切。
if ($mode eq "css") { Style_Sheets(); }
elsif ($pass ne $pw) { Error('パスワードが違います。') }
elsif (($pass eq $pw) && ($mode eq "view") && ($ENV{'REQUEST_METHOD'} eq "POST")) { View(); }
省2
533: 04/05/11 00:31 ID:??? AAS
>>532
・CSS を変更する為にスクリプトを編集する危険を冒す必要がある。
・外部に CSS を持つのに対し、常に二倍の回数実行される。
・CSS を使い回す時に悩む事になる。
これらのデメリットを考慮の上で、なお一つにまとめるメリットの方が
勝ると判断したならいいんじゃないか?
上下前次1-新書関写板覧索設栞歴
あと 139 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.009s